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Ms.  Lorraine  Rice 

NASA  - Lyndon  B.  Johnson  Space  Center 
Houston,  Texas  77058 

Subject:  Delivery  of  Final  Report  and  MOTIF  Comp  Builder,  NASA  Grant  9-339, 
Specification  Driven  Language;  SwRI  Project  05-2768 

Dear  Ms.  Rice: 

Attached  is  the  final  report  for  the  Specification  Driven  Language 
research  grant,  NASA  Grant  9-339.  The  final  report  consists  of  three 
separate  papers  and  two  appendices.  The  final  report  papers  describe  the 
research  performed  during  the  grant.  The  first  paper  describes  the 

Specification  Driven  Language  research.  The  second  paper  describes  the 

state  of  the  Image  processing  field  and  how  Image  processing  techniques 
could  be  applied  toward  automating  the  generation  of  Comps.  The  third 
paper  describes  the  development  of  a flight  certified  compiler  for  Comps. 

The  first  appendix  contains  source  code  listings  of  the  original  NASA 
Computation  Development  Environment  (CODE)  prototype.  The  second  appendix 
contains  the  source  code  listings  of  the  X Windows  MOTIF  version  of  the 
Comp  Builder.  A Masscomp  1/4"  tape  is  also  included  which  contains  the 
MOTIF  Comp  Builder  source  code  in  "tar"  format. 


If  you  have  any  questions  or  comments,  please  feel  free  to  contact 
Timothy  J.  Barton  at  (512)  522-3540,  or  Dr.  Steven  W.  Dellenback  at  (512) 
522-3914. 
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Introduction 


1.0  Introduction 


Southwest  Research  Institute  (SwRI)  was  awarded  a grant  by  NASA-Johnson  Space  Cen- 
ter (JSC)  to  perform  research  in  the  area  of  Specification  Driven  Languages  (NASA  Grant 
NAG  9-339).  The  purpose  of  the  research  was  to  investigate  alternative  programming  tech- 
niques/concepts which  could  be  utilized  in  the  software  development  environments. 


This  final  report  is  a summary  of  the  work  performed  under  the  previously  cited  grant.  In 
summary,  the  grant  focused  on  the  following  areas  of  research: 

• Investigated  what  techniques  NASA  and  other  organizations  are  using  as  an  al- 
ternative form  of  program  development.  Primary  research  included  a thorough  in- 
vestigation of  three  NASA  developed  languages: 


Computation  Development  Environment  (CODE), 
Space  Station  User  Interface  Language  (UIL),  and 
Ground  Operations  Aerospace  Language  (GOAL). 


• Performed  an  in  depth  analysis  and  a proof-of-concept  prototype  implementation 
of  a NASA-JSC  defined  language  (Computation  Development  Environment  - 
CODE  or  Comp  Builder)  in  a UNIX/X  Windows  environment  The  effort  involved 
enhancing  the  language  specification  as  well  as  extensive  research  into  alterna- 
tive user  interfaces. 

• Performed  preliminary  investigation  into  what  type  of  alternative  user  interfaces 
could  be  developed  for  future  software  development  environments.  In  the  future, 
the  ability  to  directly  generate  software  programs  from  engineering  drawings  will 
play  a major  role  in  NASA’s  success  in  rapidly  developing  and  controlling  complex 
systems.  A white  paper  detailing  various  alternatives  was  developed  and  is  in- 
cluded in  this  report. 

• Performed  preliminary  research  into  how  compiler  concepts  could  be  applied  to  a 
language  definition  so  that  a compiler  could  be  developed  which  would  generate 
flight  certified  software.  Such  a tool,  with  an  appropriate  user  interface,  should 
drastically  shorten  the  program  development  cycle.  A white  paper  discussing  the 
various  attributes  that  a flight  certified  compiler  should  contain  was  developed  and 
is  included  in  this  report. 


The  results  of  the  research  areas  described  above  are  contained  in  the  remaining  sections  of 
this  final  report. 
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1.0  CODE  Language  and  Implementation  Evaluation 


In  order  to  establish  a baseline  for  the  Specification  Driven  Language  grant,  a review  of  ex- 
isting NASA  languages  was  performed.  SwRI  investigated  the  following  languages  and 
their  constructs: 


• Computational  Development  Environment  (CODE) 

• Ground  Operations  Aerospace  Language  (GOAL) 

• Systems  Test  and  Operations  Language  (STOL) 

• TAE  Command  Language  (TCL) 

• User  Interface  Language  (UIL)  for  Space  Station  Freedom 


These  languages  were  investigated  to  identify  currently  employed  concepts  acceptable  to  the 
target  Specification  Driven  Language,  referred  to  as  the  Mission  Operations  Application  Lan- 
guage (MOAL).  It  was  determined  that  none  of  the  languages  currently  used  or  under 
development  would  fulfill  the  requirements  of  the  MCC  environment.  These  languages  did 
however  have  various  constructs  that  were  integrated  into  the  definition  of  the  MOAL. 

Initial  investigation  was  focused  on  the  CODE  development  environment  and  its  language 
due  to  its  relationship  with  MCC.  CODE  was  developed  by  MCC/MOD  and  had  already 
demonstrated  that  an  "English-like"  language  tailored  to  MCC  requirements  could  be  devel- 
oped. SwRI  evaluated  both  the  CODE  language  and  its  implementation.  The  evaluation  of 
the  CODE  language  and  the  evaluation  of  the  CODE  implementation  are  included  as  appen- 
dices to  this  report. 


1.1  CODE  Language  Evaluation 

The  initial  research  of  this  grant  was  the  evaluation  of  the  CODE  language  and  its  con- 
structs. As  a means  of  evaluating  the  CODE  language,  SwRI  developed  a Backus-Naur 
Form  (BNF)  representation  of  the  CODE  language.  The  BNF  representation  permits  a 
more  scientific  appraisal  of  the  language  under  study.  The  BNF  allows  the  implementation 
of  the  language  to  be  isolated  from  the  basic  language  itself.  This  was  important  because  the 
work  on  this  grant  focused  on  both  the  language  definition  and  implementation. 


The  BNF  representation  of  the  CODE  language  is  contained  as  Appendix  A of  this  report, 
an  evaluation  of  the  language  is  contained  as  Appendix  B of  this  report,  and  an  evaluation  of 
the  CODE  implementation  is  contained  as  Appendix  C of  this  report. 
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2.0  MOAL  Language  and  Environment  Research 

As  CODE’S  usage  is  expanded  from  INCO  to  more  MCC  flight  controller  positions  and  more 
NASA  programs  (Space  Station  and  various  payloads),  the  requirements  of  the  language  are 
changing.  SwRI  pursued  the  research  and  development  of  both  an  improved  language  and  an 
improved  development  environment  SwRI  developed  a BNF  representation  for  a language 
referred  to  as  the  Mission  Operations  Application  Language  (MOAL).  SwRI  also  developed 
an  X Windows  based  CODE  development  environment  for  evaluation  purposes  and  to  pro- 
vide a platform  for  definition  of  the  MOAL  BNF. 


2.1  MOAL  Language  Research 

SwRI  developed  a BNF  representation  for  the  proposed  MOAL  language.  The  MOAL  lan- 
guage was  designed  to  be  an  extension  to  the  NASA  CODE  language.  The  new  language 
was  designed  to  support  all  of  the  MCC  flight  control  positions  instead  of  only  INCO.  The 
MOAL  was  also  designed  to  support  the  requirements  of  various  payloads,  such  as  TSS. 
SwRI  used  the  following  sources  of  information  to  develop  the  MOAL  BNF: 

• The  MOAL  was  based  primary  on  the  CODE  language  BNF  due  to  its  proven  ap- 
plicability to  the  MCC  environment. 

• The  MOAL  was  also  based  on  the  requirements  of  the  other  MCC  positions  and 
the  requirements  of  various  payload  users.  These  requirements  were  compiled  by 
NASA  in  the  Comp  Builder  and  Comp  Manager  Level  B Requirements. 

• Research  into  the  UIL  and  GOAL  also  determined  several  aspects  of  the  MOAL 
BNF. 


Appendix  D of  this  report  contains  the  MOAL  BNF. 


2.2  MOAL  Environment  Research 

SwRI  performed  research  toward  defining  an  improved  environment  for  the  MOAL  language. 

This  research  has  been  conducted  in  primarily  three  areas: 

• The  first  area  of  research  involved  the  graphical  interface  of  the  CODE  program. 
The  original  CODE  program  utilized  a proprietary  Masscomp  graphics  interface. 
For  evaluation  purposes,  this  interface  was  converted  to  an  MIT  X Windows 
graphics  interface.  The  first  version  of  the  X Windows  Comp  Builder  utilized  the 
Hewlett-Packard  (HP)  widget  set  and  served  as  a baseline  for  implementation  of 
an  improved  user  interface.  The  X Windows  prototype  also  included  several  per- 
fomance  enhancements  to  the  basic  structure  of  the  Comp  Builder  software.  The 
X Windows  prototype  was  well  received  by  NASA  and  served  as  the  basis  for 
the  WEX  2.5  version  of  the  Comp  Builder. 
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The  second  version  of  the  X Windows  Comp  Builder  utilized  the  Open  Software 
Foundation  (OSF)  MOTIF  widget  set.  The  MOTIF  version  of  the  Comp  Builder 
served  as  a test-bed  platform  for  the  development  of  the  MOAL  BNF  and  several 
enhancements  to  the  user  interface. 

• A preliminary  investigation  into  alternate  input  techniques  for  the  MOAL  environ- 
ment was  conducted.  This  investigation  resulted  in  the  Image  Processing  paper 
included  in  a later  section  of  this  document. 

• A preliminary  investigation  into  a flight  certified  environment  was  also  conducted. 
This  investigation  resulted  in  the  Flight  Certified  Compiler  paper  included  in  a lat- 
er section  of  this  document. 
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Appendix  - A CODE  BNF 

The  following  is  a BNF  representation  of  CODE.  A list  of  the  BNF  rules  precedes  the  BNF. 

1.0  CODE  BNF  Rules: 

The  following  symbols  are  meta-symbols  belonging  to  the  BNF  formalism: 

::  = !{}.. 

The  non-terminal:  <group>  is  the  start  symbol. 

The  terminal:  PI  represents  the  arithmetic  constant  3.159. 

Comments  can  be  entered  before,  after,  or  between  any  non-terminals  or  terminals.  The 
following  is  the  BNF  for  a comment: 

comment  ::=  /*  { <alphanumeric>  } */ 

1.1  BNF: 

action_stmnt 

alphanumeric 
comp 

defined_func 
digit 
factor 
float 

float_no_zero 
func_designator 


::=  <set_statement>  I <print_stmnt> 

::=  <letter>  I <digit>  I <id_char> 

::=  <header>  <statement_list> 

::=  cos  I acos  I sin  I asin  I tan  I atan  I exp  I log  I sqrt  I power 
::=  0..9 

::=  <variable>  I ( <simple_expr> ) I <func_designator>  I - <factor> 
::=  <float_no_zero>  { <digit>  I . } (1  decimal  point  max) 

::*  1..9  I . 

::=  <defined_func>  ( <factor>  { , <factor>  } ) I 
<identifier>  ( <factor>  { , <factor>  } ) 
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group 

header 

hex_char 

id_char 

identifier 

if_statement 

integer 

letter 

local 

MSID 

no_lead_zero 

number 

operator 

print_statement 

quoted_string 


::=  <comp>  { <comp>  } 

::  = /*  <create_str>  <author_str>  <gname_str><cname_str> 
<purpose_str>  */ 

A..F  I a..f 

::=  <letter>  { <alphanumeric>  } 

::=  if  <rel_expression>  then  <statement_list>  endif  I 
if  <rel_expression>  then  <statement_list> 
else  <statement_else>  { <statement_list>  } endif 

::=  <no_lead_zero>  { <digit>  I <hex_char>  } 

::=  A..Z  I a..z 

::=  <identifier> 

::=  <identifier> 

::=  1..9  I <hex_char> 

::=  <integer>  I <float> 

::=  + I - I or  I * I / I and  I bitAnd  IbitOr  I bitXor  I shiftL  I shiftR 

::=  print  1 <quoted_string>  I 
print2  <quoted_string>  I 
print3  <quoted_string>  I 
print4  <quoted_string>  I 
print5  <quoted_string> 

::= " { <alphanumeric>  } " 
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rel_expression 

rel_operator 

set_statement 

set_var 

sign 

signal 

simplc_expr 

statement 

statcment_else 

statement_list 

variable 

author_str 

cname_str 

create_str 

gname_str 

purpose_str 


::=  <simple_expr>  <rel_operator>  <simple_expr> 

::=<  I > I o I = I >=  I <= 

::=  set  <set_var>  = <factor> 

::=  <signal>  I <local> 

::=+  I- 

::=  <identifier> 

::=  <sign>  <factor>  I <factor>  <operator> 

<simple_expr> 

::=  <if_statement>  I <action_stmnt> 

::=  <action_stmnt>  I <variable>  = <factor> 

::=  <statement>  { <statement>  } 

::=  <set_var>  I <MSID>  I <number>  I <quoted_string>l  PI 

::=  Author:  { <alphanumerics>  } 

::=  Comp  Name:  xxxxxxx 
::=  Creation  Time:  xxxx:xx:xx:xx 
::=  Group  Name:  xxxxxxx 
::=  Purpose:  { <alphanumerics>  } 
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Appendix  - B CODE  BNF  Evaluation 

The  CODE  grammar  is  more  compact  than  a traditional  High  Order  Language  (HOL)  due  to 
the  fact  that  CODE  has  no  formal  data  typing  within  the  language  (the  CODE  environment 
maintains  a table  of  data  types),  a limited  number  of  statements  and  a slighdy  restricted  re- 
lational expression  capability. 

The  representation  of  CODE  in  a BNF  form  facilitated  the  following  evaluation: 

• CODE  was  designed  to  meet  the  needs  of  Mission  Operations  Directorate 
(MOD)  INCO  flight  controllers.  This  required  only  the  following  three  statements: 

Conditional  control  statement  - if 
Assignment  statement  - set 
Output  statement  - print 

CODE  users  have  already  requested  additional  conditional  and  assignment  state- 
ments. 

• The  IF  statement  allows  invalid  statements  to  be  added  after  the  ELSE.  There 
are  two  sets  of  statements  available  when  constructing  the  ELSE  portion  of  an  IF 
statement: 


if  rel_expr 
then 

{ group  1 } 

else 

group2 
{ group  1 } 

endif 


The  first  statement  following  the  ELSE  allows  the  user  to  select  an  MSID,  SIG- 
NAL, or  LOCAL,  and  then  assign  a value  to  these  variables.  These  selections 
should  not  be  valid  unless  they  are  contained  in  a SET  statement.  The  ELSE  por- 
tion of  the  IF  statement  should  allow  only  the  same  statements  as  the  THEN  por- 
tion. 

• The  CODE  language  allows  a value  to  be  assigned  to  an  MSID.  This  is  not  a val- 
id operation,  as  MSIDs  are  values  which  are  read  from  data  acquisition  and  are 
not  modifiable  by  the  CODE  software. 

• A user  function  must  contain  one  argument.  CODE  forces  an  argument  to  be  sup- 
plied in  user  function  calls.  It  is  standard  programming  practice  in  HOL’s  to  allow 
function  calls  with  no  arguments.  The  CODE  language  should  allow  these  types 
of  function  calls. 
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* The  CODE  program  does  not  allow  a SET  statement  to  be  added  to  a Comp  after 
a SET  statement  is  added  which  contains  a user  function  call  on  the  Right  Hand 
Side  (RHS).  Two  or  more  SET  statements  can  be  added  to  a Comp  as  long  as 
none  of  them  contains  a user  function  call.  The  CODE  program  should  allow  multi- 
ple SET  statements  to  be  added  which  contain  user  function  calls.  Example: 


set  varl  = 100 

set  var2  = userFuncl(  userFunc2(  5 ) ) 

/*  at  this  point,  CODE  will  not  allow  another  SET  statement  to  be  */ 
/*  added  to  the  Comp,  but  will  allow  a PRINT  or  IF  statement  */ 


The  irregularity  described  above  always  occurs  when  the  SET  statement  is  the 
first  statement  in  a Comp. 

• Traditionally,  in  both  C and  PASCAL,  expressions  are  allowed  to  evaluate  to  a 
simple  expression.  The  CODE  language  only  allows  expressions  to  be  evaluated 
to  two  simple  expressions  separated  by  a relational  operator.  This  restricts  the 
type  of  expressions  that  can  be  constructed.  The  CODE  language  designers  may 
have  intentionally  designed  CODE  in  this  manner.  If  a relational  operator  is  al- 
ways required,  the  user  is  not  required  to  know  that  0 evaluates  to  FALSE,  while 
any  other  value  evaluates  to  TRUE. 

Traditional  HOL 

expression  ::=  <simple_expr>  I <simple_expr> 

<rel_operator>  <simple_expr> 

CODE 

rel_expression  <simple_expr>  <rel_operatot>  <simple_expr> 


This  feature  of  the  CODE  language  is  not  standard  when  compared  with  tradition- 
al HOL’s,  but  is  appropriate  for  the  non-programmer  audience  served  by  CODE. 

• CODE  allows  the  RHS  of  a SET  statement  to  be  a <factor>.  Traditional  HOL’s 
allow  an  <expression>  non-terminal  on  the  RHS  of  an  assignment  statement. 
This  permits  greater  flexibility  in  the  assignment  of  data  values  to  variables. 


Traditional  HOL 

set_statement  ::=  set  <set_var>  = <expression> 
CODE 

set_statement  set  <set_var>  = <factor> 
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• The  PRINT  statement  should  only  allow  WEX  application  level  messages  to  be 
output.  The  current  CODE  will  allow  the  running  comp  to  generate  host  level 
messages.  The  WEX  version  of  CODE  should  restrict  the  type  of  messages  gen- 
erated. This  issue  is  environment  dependent,  in  this  case  the  WEX  environment 
determines  the  valid  set  of  PRINT  statements.  Even  though  the  valid  PRINT 
statements  are  environment  dependent,  the  language  BNF  has  determined  that 
all  PRINT  statements  are  valid  at  any  time.  The  CODE  language  should  be  modi- 
fied to  only  allow  those  PRINT  statements  that  are  valid  for  WEX  applications. 

• The  CODE  BNF  should  allow  the  formal  definition  and  construction  of  user  func- 
tions. The  CODE  language  and  environment  do  not  allow  the  definition  of  user 
functions.  User  functions  must  be  constructed  outside  the  CODE  environment. 
The  CODE  language  should  include  the  constructs  necessary  to  define  and  refer- 
ence user  functions  built  within  the  CODE  environment. 

• The  CODE  documentation  should  either  define  the  order  of  precedence  for  expres- 
sion evaluation  or  inform  the  user  of  the  dependence  on  the  host  C compiler. 
CODE’S  order  of  precedence  of  expression  evaluation  is  directly  tied  to  the  C 
compiler  used  to  install  the  Comps.  CODE  will  allow  the  following  Comp  state- 
ment to  be  generated: 

if  PI  * tan  ( 1 ) + PI  > 1 

This  statement  should  be  valid,  but  the  order  of  expression  evaluation  is  unknown 
without  understanding  how  the  Comp  is  translated  into  the  resulting  ’C’  languge 
program. 

• The  CODE  language  allows  the  negation  of  a text  string.  Example: 


set  Varl  = userFuncl(  - "text  string"  + 1 ) 


• CODE  allows  integers  and  floating  point  numbers  to  be  30  characters  long.  This 
allows  the  user  to  enter  numbers  which  are  too  large  to  be  represented  using 
standard  integer  arithmetic.  This  is  both  a CODE  language  and  CODE  implemen- 
tation issue. 

• The  CODE  language  allows  the  user  to  build  Comps  which  contain  the  assign- 
ment and  evaluation  of  mixed  type  expressions.  These  expressions  may  be  cast 
by  the  C compiler  or  may  cause  fatal  errors  during  the  installation  process.  Exam- 
ple: 


set  Varl  = .5  + "text  string"  + 10 


This  is  another  case  of  an  issue  which  should  be  addressed  by  both  the  CODE 
language  and  CODE  implementation. 
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Appendix  - C CODE  Implementation  Evaluation 


After  the  evaluation  of  the  CODE  language,  the  CODE  program  was  evaluated  from  a soft- 
ware design  aspect.  SwRI  evaluated  CODE’S  stability,  portability,  and  overall  system 
design. 

The  following  is  a list  of  problems  and/or  deficiencies  identified  in  the  NASA/MOD  version  of 
CODE.  Several  of  the  following  items  relate  to  the  hardware  differences  between  the 
MASSCOMP  systems  used  by  the  CODE  developers  and  SwRI’s  MASSCOMP.  These 
items  are  irrelevant  in  a strictly  homogeneous  hardware  environment,  but  such  an  environ- 
ment should  not  be  assumed  due  to  the  rapid  advancement  of  workstation  hardware 
development.  A homogeneous  hardware  environment  also  adds  requirements  to  the  various 
contractors  which  develop  and  support  NASA  software.  An  X Windows  version  of  the  Comp 
Builder  was  requested  by  several  NASA  contractors  because  Masscomp  workstations  were 
not  available  to  them,  but  X Window  capable  Sun  workstations  were  available. 

• The  CODE  program  needs  to  determine  the  resolution  of  the  monitor  before  dis- 
playing the  token  strings.  CODE  currently  uses  a font  which  is  larger  than  the 
boxes  allocated  for  the  strings.  The  font  can  be  changed  to  a smaller  font  which 
fits  nicely  in  the  boxes,  but  the  portions  of  the  text  which  exceeded  the  size  of  the 
boxes  are  not  cleaned  up  and  remain  on  the  screen  until  CODE  is  exited. 

• The  user  interface  should  be  improved  such  that  the  user  is  not  required  to  contin- 
ue switching  back  and  forth  between  the  mouse  and  the  keyboard.  A function 
needs  to  be  added  so  the  user  can  mouse  an  area  to  continue  processing  instead 
of  hitting  the  RETURN  key.  This  enhancement  was  made  in  the  X Windows  ver- 
sions of  the  Comp  Builder. 

• In  the  case  that  the  RTDS  environment  variable  is  not  defined,  CODE  currendy 
exits,  leaving  the  graphics  on  the  screen.  CODE  should  restore  the  screen  and  re- 
move the  graphics.  CODE  should  also  allow  the  user  to  enter  the  RTDS  path  if 
the  user  so  desires.  This  enhancement  was  made  in  the  X Windows  versions  of 
the  Comp  Builder. 

• The  CODE  program  currendy  uses  5 meg  of  static  data  space  for  tables  and  ar- 
rays that  it  maintains  internally.  This  amount  should  be  reduced  through  the  use 
of  dynamic  memory  allocation.  The  following  data  structures  are  examples  of 
structures  that  should  be  dynamically  allocated: 


SignalTable  - 800  structures  of  3081+  bytes  = 2,464,800 

MSIDTable  - 4000  structures  of  72  bytes  = 288,000 

Group Vars  - 500  structures  of  100+ bytes  = 50,000 

Comp  - the  Comp  string  20,000 


• The  READ  process  tries  to  rm  (delete)  a file  using  the  file  pointer  instead  of  the 
ASCII  name  of  the  file.  This  will  produce  undetermined  and  potentially  disas- 
trous results.  The  source  file  archive.c  contains  the  incorrect  code: 
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tmpfile  = fopen( ... ); 

system(  "rm  tmpfile  2»/tmp/code.err" ); 

• The  READ  process  uses  the  variable  "found"  before  it  is  initialized.  This  could 
produce  undetermined  results  should  the  Masscomp  compiler  change  or  if  the 
CODE  program  is  ported  to  another  version  of  the  Masscomp  operating  system  or 
to  another  hardware  platform,  such  as  a Sun. 

• The  CODE  program  contains  a bug  in  the  software  that  performs  the  DELETE 
function.  The  following  steps  will  cause  the  CODE  program  to  abort: 

Retrieve  a Comp 

Delete  several  tokens  from  the  end  of  the  Comp  using  DELETE 
Save  the  Comp 
Retrieve  the  Comp 

The  next  time  the  Comp  is  retrieved,  the  CODE  program  will  abort  due  to  a mem- 
ory Segmentation  Fault  and  a "core"  file  will  be  created. 

• The  DELETE  function  should  be  modified  to  let  the  user  delete  any  token.  The 
current  DELETE  function  only  allows  the  user  to  delete  the  last  token  in  the 
Comp.  If  the  user  wanted  to  delete  the  first  token  in  the  Comp,  the  entire  Comp 
would  have  to  be  deleted  one  token  at  a time  or  the  user  could  use  the  VI  editor  to 
delete  the  token. 

• CODE  allows  integers  and  floating  point  numbers  to  be  30  characters  long.  This 
allows  the  user  to  enter  numbers  which  are  too  large  to  be  represented  using 
standard  integer  arithmetic.  This  issue  was  also  identified  in  the  language  evalua- 
tion section  of  this  report.  Both  the  CODE  language  and  the  CODE 
implementation  should  address  this  issue. 

• Using  some  Masscomp  configurations,  the  VI  window  does  not  size  itself  correct- 
ly within  the  Work  Area.  VI  is  unusable  as  the  CODE  editor,  the  user  must  use 
VED  to  edit  the  Comp  string. 

• The  date  calculation  performed  in  get_header.c  does  not  compute  the  date  correct- 
ly. Subsequently,  the  date  recorded  in  the  header  of  all  Comps  is  incorrect 

• Several  path  specifiers  should  be  corrected.  There  are  currently  paths  which  are 
built  containing  multiple  forward  slashes.  These  paths  could  cause  portability 
problems  should  a new  version  of  the  Masscomp  operating  system  not  support 
this  type  of  path  specifier.  The  following  line  in  init_code.c  is  an  example: 

UserFuncsLib,  ”/home//rtds/..." 

• In  init_code.c,  if  the  MSID  Table  is  not  found,  the  loop  control  variable  MSIDTble 
is  not  initialized.  During  the  installf)  routine,  MSIDTble  is  used  to  access  arrays 
in  memory.  This  uninitialized  variable  could  cause  the  CODE  program  to  access 
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invalid  sections  of  memory  producing  undetermined  results.  MSEDTble  should  be 
explicitly  initialized  for  portability. 

• In  init_gp.c,  the  call  to  signal()  which  is  to  trap  Control-C  is  commented  out.  A 
Control-C  entered  in  the  prompt  area  will  abort  the  program  leaving  the  CODE 
graphics  on  the  screen.  The  Control-C  signal  handler  should  be  implemented. 

• It  is  possible  to  build  comps  using  the  tokens  available  on  the  screen  (it  is  not 
necessary  to  use  VI  or  VED)  that  when  compiled  produce  C code,  which  may  be 
invalid.  The  produced  C code  makes  several  calls  to  fltmsg_issue()  before  the  flt- 
msg_init()  call. 

• Using  a Masscomp  5500,  the  tokens  in  the  bottom  right  comer  of  the  MATH  to- 
ken box  were  not  mouseable  during  HELP  mode.  If  the  tokens  are  selected,  the 
CODE  banner  is  displayed,  and  the  FONT  is  changed.  This  an  example  of  hard- 
ware dependency  that  should  be  eliminated  where  possible. 

• The  documentation  needs  to  be  updated  to  include  all  the  tokens  available  during 
HELP  mode.  There  are  currently  as  many  undocumented  tokens  as  there  are  doc- 
umented tokens.  A user  friendly  program  should  have  all  the  help  messages 
defined. 

• The  large  font  may  not  be  used  during  HELP  mode,  as  the  first  lines  of  every 
screen  are  scrolled  out  of  the  top  of  the  Work  Area  window. 

• The  comp  string  display  routine  does  not  allow  the  user  to  view  an  entire  comp  if 
it  is  larger  than  the  Work  Area  window.  Only  the  last  section  of  the  comp  (that 
portion  that  fits  within  the  Work  Area  window)  is  visible.  There  is  no  means  to 
view  the  top  of  the  comp  except  for  VI  or  VED. 

• The  openFile()  routine  needs  to  let  the  user  see  the  message  longer  (ideally  a 
mouseable  continue  box).  Currently,  the  message  disappears  from  the  screen  too 
fast  for  the  user  to  read. 

• CODE  does  not  type  check  the  arguments  to  user  functions  to  ensure  they  match 
the  required  parameters.  Passing  the  wrong  parameters  to  a user  function  at  best 
case  will  cause  the  comp  to  abort,  in  worst  case  will  cause  the  comp  to  continue 
execution  with  side  effects;  possibly  undetected  side  effects. 

• The  UNIX  system  program  lint  generated  several  pages  of  irregularities  when  it 
examined  the  CODE  program  C source  code.  The  following  errors  are  typical  of 
the  numerous  anomalies  discovered  by  lint: 


Redefinition  of  variable  data  types 

Usage  of  uninitialized  variables 

Declaration  of  unused  variables 

Incorrect  number  of  arguments  passed  to  functions 
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Appendix -D  MOAL  BNF 

1.0  Notes: 

The  following  symbols  are  meta-symbols  belonging  to  the  BNF  formalism: 


=!{}.. 


The  non-terminal:  <group>  is  the  start  symbol. 

See  Appendix  E of  the  Comp  Builder  and  Comp  Manager  Level  B Requirements  (JSC- 
23459)  for  the  Naming  Conventions  and  limitations  of  the  non-terminal:  <identifier>. 

See  Appendix  C of  the  Comp  Builder  and  Comp  Manager  Level  B Requirements  (JSC- 
23459)  for  the  data  representation  and  precision  limits  of  the  referenced  data  types. 

The  statement  terminator  is  the  newline  character  (carriage  return).  An  exception  is 
<expressions>,  which  may  require  multiple  source  lines. 


1.1  BNF 

add_operator  ::=  + 1 - 1 or  I xor 

alphanumeric  ::=  <digit>  I <letter>  I <special_chai> 

char  ::=  ’ A..F  I a..f  ’ 

comp  ::=  <comp_header>  { <parm_list>  } { <eonst_list>  } 

{ <var_list>  ) <statement_list> 

const_decl  ::=  const  <data_type>  <identifier>  - <eonst_def> 

const_def  ::=  <unsigned_num>  I <sign>  <unsigned_num>  I <chai>  I 

<identifier>  I <sign>  <identifier>  I <string>  I 
<matrix>  I <matrix_id> 

const_list  ::=  <const_decl>  { <const_decl>  ) 

data_type  ::=  integer  I unsigned  I float  I char  I double  I 

matrix  I short 


Page  13 


Specification  Driven  Language  Research 


MOAL  BNF 


defined_func 

digit 

expression 

factor 

function 

functioned 

group 

hex 

identifier 

if_stmnt 

letter 


:=  cos  I acos  I sin  I asin  I tan  I atan  I cuber  Hog  I cosh  I exp  I 
sinh  I tanh  I sqr  I log  10 1 start  I terminate 

::=  0..9 

::=  <simple_expr>  <rel_operator>  <simple_expr>  I 
<simple_expr> 

::=  not  <factor>  I <function_id>  I ( <expression> ) I 
<unsigned_num>  I <identifier> 

::=  <func_header>  { <parm_list>  } <retum_decl> 

{ <const_list>  } { <var_list>  } <statement_list> 
<retum> 

::=  <defmed_func>  ( { <parms>  } ) I <tidentifier> 

( { <parms>  } ) 

::=  <comp>  { <comp>  I <function>  I <procedure>  } 

::=  A..F  I a..f  I <digit> 

::=  <letter>  { <alphanumeric>  } 

::=  if  <expression>  then  <statement_list>  endif  I 
if  <expression>  then  <statement_list>  else 
<statement_list>  endif 

A..Z  I a..z 


local_id 
matrix 
matrix  id 


::=  <identifiei> 

::=  [ <value>  { , <value>  } ] 
::=  <identifier>  I 
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mesg_level 

MSID_id 

mul_operator 

parms 

parm_decl 

pann_list 

pausc_stmnt 

PPLJd 

print_stmnt 

procedure 

proc_id 

rel_operator 

return 

retum_decl 

set_statement 

set  var 


<identifier>  [ <unsigned_int>  { , <unsigned_int>  } ] 

::=  <identifier>  1 0..5 
::=  <identifier> 

::=  *1/1  and 

::=  <expression>  l<identifier>  =>  <expression>  { , 
<identifier>  =xexpression> } 

::=  parm  <data_type>  <identifier> 

::=  <parm_decl>  { <parra_decl>  } 

::=  pause  ( <expression> ) 

::=  <identifier>  l<identifier> 

[ <unsigned_int>  { , <unsigned_int>  } ] 

print  ( <mesg_level>  , <string> ) 

::=  <proc_header>  { <parm_list>  } { <const_Iist>  } 

{ <var_list>  } <statement_list> 

::=  <identifier>  ( { <parms>  } ) 

::=  < I > I <>  I = I >=  I <= 

retum(  <expression> ) 

return  <data_type> 

::=  set  <set_var>  = <expression> 

::=  <local_id>  I <martrix_id>  I <PPL_id>  I <W/S_parm_id> 
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sign 

simple_expr 

special_char 

statement 

statement_list 

string 

term 

unsigned_hex 

unsigned_int 

unsigned_num 

unsigned_real 

variable 

var_decl 

varjist 

value 

W/S_parm_id 


::=  +1- 

<simple_expr>  <add_operator>  <term>  I <term>  I 
<sign>  <term> 

::=  <print_stmnt>  I <set_statement>  I <if_stmnt>  I 
<while_stmnt>  I <pause_stmnt>  I <proc_id> 

::=  <statement>  { <statement>  } 

" { <alphanumeric>  } " 

<factor>  I <term>  <mul_operator>  <factor> 

Ox  <hex>  { <hex>  } I OX  <hex>  { <hex>  } 

::=  <digit>  { <digit>  } 

::=  <unsigned_int>  I <unsigned_real>  I <unsigned_hex> 
::=  <unsigned_int> . <unsigned_int> 

::=  <set_var>  I <MSID_id> 

::=  var  <data_type>  <identifier> 

::=  <var_decl>  { <var_decl>  } 

::=  <identifiei>  I <sign>  <identifier>  l<unsigned_num>  I 
<sign>  <unsigned_num> 

::=  <identifier> 
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while_stmnt 

comp_header 


func_header 

proc_header 


::=  while  <expression>  loop  <statement_list>  endloop 

::=  Position  Name: 

Group  Name: 

Comp  Name: 

Author: 

Creation  Date: 

Last  Update: 

Purpose: 


::=  Function  Name: 
Author: 

Creation  Date: 
Last  Update: 
Purpose: 

::=  Procedure  Name: 
Author: 

Creation  Date: 
Last  Update: 
Purpose: 
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1.0  Introduction 

NAS  A- JSC  currently  maintains  engineering  diagrams  and  schematic  drawings  of  many  of  the 
subsystems  contained  within  the  shuttle.  These  diagrams  and  drawings  are  often  converted 
into  a drawing  containing  logic  symbols  and  text  which  describe  an  algorithm  for  monitoring 
the  status  of  the  subsystem.  Figure  1-1  contains  an  example  of  a logic  drawing  which  de- 
scribes an  algorithm. 


YELLOW 


V75X2171E  = 0 DSC  OF1  BITE 


V76V1500A  = 0 PCM  CT  AC1  0 A 
VOLTS 

V75V0120A  = 0 PCM  CT  CNTL  AB1 
VOLTS 


Figure  1-1  Example  Logic  Drawing 


The  algorithms  described  by  the  logic  drawings  will  perform  range  checking  of  data  points  to 
determine  the  operational  stability  of  the  subsystem.  These  drawings  are  interpreted  by  a 
human  and  implemented  using  programming  language  type  constructs.  A more  efficient 
method  of  software  generation  would  be  to  provide  an  automatic  process  which  could  "scan" 
the  schematic  drawing,  as  would  a human,  and  develop  a program  with  minimal  (or  no)  pro- 
grammer involvement. 

Implementation  of  such  a system  would  require  an  orchestration  of  systems  from  the  follow- 
ing technologies  and  topics:  Image  Digitization,  Image  Processing,  Pattem/Image  Recogni- 
tion, and  Automatic  Code  Generation.  To  gain  understanding  of  the  current  capabilities  of 
these  technologies,  this  paper  will  address  each  area  individually.  The  intention  of  this 
breakdown  is  to  provide  insight  into  the  current  state  of  the  related  technologies,  what  tools 
are  available  in  each,  and  where  the  fields  are  headed.  Special  emphasis  will  be  given  to 
viewing  the  individual  technologies  in  light  of  the  problem  at  hand. 
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2.0  Definition  of  the  Fields  of  Image  Scanning 

A widely  held  misconception  is  the  idea  that  all  scanners  (hardware  and  software  combined) 
automatically  interpret  the  documents  they  digitize.  This  is  not  the  case.  For  scanners  set 
up  to  perform  interpretation  of  text  alone  (Optical  Character  Recognition),  this  is  true,  but  for 
a mix  of  text  and  graphics,  this  is  not  the  case.  Another  widely  held  misconception  is  the 
idea  that  the  hardware  issues  present  more  of  a challenge  than  the  supporting  software. 
Presently,  this  is  not  the  case.  It  is  important  to  first  understand  the  various  components  of 
document  scanning  and  the  terms  that  are  used  to  identify  them. 

2.1  Image  Digitzation/Optical  Scanning 

Image  Digitization  identifies  the  conversion  of  a physical  image  to  a digital  image  stored 
within  a computer.  Image  Digitization  is  primarily  a hardware  intensive  function.  No  at- 
tempt is  made  to  enhance  the  quality  of  the  digital  representation  or  to  interpret  the  content 
of  the  digital  image.  This  paper  will  use  the  term  scanner  to  identify  the  hardware  that  gener- 
ates a digital  image  and  the  term  scanning  to  identify  the  process  of  generating  a digital  im- 
age. 

2.2  Image  Processing 

Image  processing  identifies  the  manipulation  of  a digital  image.  Edge  enhancement,  noise 
filtering,  and  image  cut  and  paste  operations  are  examples  of  image  processing  techniques. 

2.3  Image  Recognition/Pattern  Recognition 

Image  recognition  identifies  the  processing  of  a digital  image  to  determine  the  logical  con- 
tents of  the  image.  OCR  is  an  example  of  image  recognition.  OCR  software  attempts  to  de- 
termine the  actual  characters  of  a digital  image. 

2.4  The  Complete  Package 

Image  scanning  often  involves  the  integration  of  all  three  of  the  aforementioned  disciplines. 
First,  the  image  is  scanned  (digitized).  During  digitization,  the  image  may  be  processed  us- 
ing edge  enhancement  and  noise  reduction  techniques.  Depending  on  the  application,  recog- 
nition of  the  image  may  then  be  performed.  To  provide  a tool  for  the  automatic  generation  of 
algorithms  from  logic  diagrams,  all  three  disciplines  will  be  required. 
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3.0  Image  Digitization 

The  first  step  in  the  scanning  of  a document,  say  the  logic  diagram  in  Figure  1-1,  is  the  digi- 
tization of  the  image.  Image  Digitization  can  also  be  referred  to  as  "scanning."  Image  digi- 
tization is  a more  cumbersome  term,  but  it  more  accurately  describes  the  process  which  is 
performed.  The  term  "scanning"  is  often  used  as  a general  term  for  the  combination  of  image 
digitization,  image  processing,  and  image  recognition. 

3.1  Image  Digitization/Optical  Scanning 

The  goal  of  optical  scanning  is  to  convert  a physical  image  into  a digitized  image,  whether 
that  image  be  a page  of  text,  a picture,  a combination  of  text  and  graphics  (like  a logic  dia- 
gram), or  a three  dimensional  object  A digitized  image  is  a binary  file  of  ones  and  zeros 
stored  within  a computer  that  represents  the  physical  image.  Software  can  use  this  binary 
information  to  reproduce  the  image  on  a computer  screen,  on  a printer,  or  on  a remote  fax  re- 
ceiver. 

3.2  Origins 

The  development  of  scanners  has  its  origins  several  years  ago  in  Japan  where  scanners  were 
applied  to  fax.  Since  Japanese  characters  are  essentially  graphical  in  nature,  fax  is  the  easi- 
est way  to  transfer  documents. 

On  the  other  hand,  scanner  related  software  development  in  the  United  States  has  evolved 
mainly  at  the  shoulder  of  word  processing  and  desktop  publishing  demands.  With  the  large 
volume  of  paper  documents  that  need  to  be  processed,  the  ability  to  scan  in  text  from  a physi- 
cal sheet  of  paper  to  a word  processing  format  where  it  can  be  manipulated  has  received  a lot 
of  attention.  This  process  is  commonly  called  optical  character  recognition  (OCR).  Like- 
wise, the  ability  to  digitize  and  process  pictures  that  could  be  incorporated  into  documents 
has  also  been  a priority  topic  (cut  and  paste  of  document  graphics).  As  we  shall  see  later, 
however,  of  the  two  scanner  software  products  that  developed  around  the  word  processing 
industry,  only  optical  character  recognition  requires  software  interpretation  or  recognition  of 
symbols  within  the  digitized  image.  Image  scanning,  as  it  relates  to  pictures  within  word 
processing  documents,  only  manipulates  the  bits  of  the  image,  not  the  symbols  contained 
therein. 

3.3  How  Scanners  Work 

All  non-color  scanner  technology  is  based  on  the  fact  that  black  pigment  absorbs  white  light, 
and  white  pigment  reflects  it  A similar  principle  is  used  in  color  scanners  that  involves  col- 
ored lights,  filters,  and  pigments.  The  scanner  bounces  light  off  the  image  that  is  to  be  cap- 
tured. If  the  light  reflects  off  the  image,  then  it  reaches  photoelectric  cells  called  Charge  Cou- 
pled Devices  (CCD)  which  measure  the  intensity  of  the  reflected  light  within  their  cell  bound- 
aries. The  size  of  the  CCDs  and  how  closely  they  are  packed  together  determines  the 
resolution  of  the  scanner.  Each  CCD  outputs  a given  voltage  for  a given  intensity  of  reflected 
light.  Zero  voltage  represents  no  reflected  light  detected  and  would  indicate  that  portion  of 
the  image  is  black. 

A controller  in  the  scanner  takes  the  voltage  measurement  from  each  of  the  scanner’s  CCDs 
and  converts  it  into  a whole  number  which  is  stored  in  the  computer.  Because  the  CCDs  can 
output  only  increments  of  the  measured  voltage,  the  true  intensity  is  rounded  to  a closely  cor- 
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responding  voltage  level.  This  is  how  gray-scale  information  from  the  physical  image  is  lost 
in  the  digitized  image.  The  controller  uses  the  numbers  collected  from  the  CCDs  to  create  an 
image  bitmap  file  that  saves  one  number  for  each  pixel  in  the  image  for  later  use  by  a graph- 
ics package  or  other  software.  The  graphics  package,  for  example,  would  take  the  values 
contained  in  the  bitmap  file  and  approximate  the  image  by  lighting  pixels  on  the  screen  ac- 
cording to  the  gray-scale  values. 

Color  scanners  work  using  the  same  basic  principles,  but  color  scanners  use  different  light- 
ing. The  CCDs  in  color  scanners  use  color  filters,  and  the  bitmap  files  contain  intensity  val- 
ues for  each  pixel  for  each  primary  color.  This  also  means  the  image  files  are  three  times 
larger  than  black  and  white  image  files  of  the  same  type. 

3.4  Scanner  Designs 

There  are  currently  four  major,  different  configurations  of  scanners: 

• Flatbed 

• Roller-feed 

• Copyboard 

• Hand-held 

Flatbed  scanners  comprise  the  majority  of  the  scanners  available  in  the  market  currently.  Of 
the  21  scanners  reviewed  by  PC  Magazine  in  the  March  28,  1989  issue,  16  were  flatbed 
scanners.  Flatbed  scanners  are  versatile,  and  they  utilize  a traditional  design  borrowed  from 
small  photocopiers.  Flatbed  scanners  are  preferred  for  ease  of  use  and  for  their  ability  to 
scan  bound  documents  such  as  books  and  magazines. 

Roller-feed  scanners  employ  the  flatbed  scanner  design  with  an  additional  sheet  feeder 
mprhanigm  Manufacturers  often  offer  a sheet  feeder  mechanism  for  their  flatbed  scanners. 

Copyboard  scanners  look  very  much  like  a photograph  enlarger  or  overhead  projector.  Copy- 
board  scanners  consist  of  a flat  platform  with  the  scanning  device  raised  approximately  12" 
above  the  copyboard.  Copyboard  scanners  are  primarily  designed  for  scanning  3-D  objects, 
such  as  circuit  boards,  but  can  be  used  to  scan  flat  documents  as  well.  Copyboard  scanners 
often  require  special  lighting  due  to  the  distance  between  the  scanner  sensors  and  the  sub- 
ject matter. 

Hand-held  scanners  are  a relatively  new  design.  Hand-held  scanners,  such  as  the  Logitech 
ScanMan,  often  utilize  a 4"  wide  scanning  window;  however,  Mitsubishi  Electronics  offers  a 
full  8.5"  wide  hand-held  scanner.  They  have  become  very  popular  because  they  are  inexpen- 
sive, and  they  have  proven  very  useful  for  importing  images  into  desktop  publishing  and  word 
processing  software. 

3.5  Commercially  Available  Scanners 

Scanners  are  now  available  from  a wide  variety  of  vendors  for  various  hardware  platforms. 
Scanners  are  often  available  from  the  same  vendors  that  produce  photocopiers  and  laser 
printers  due  to  the  similarities  of  the  technologies.  The  personal  computer  (PC)  market  ac- 
counts for  the  majority  of  scanners  purchased  currendy  in  the  United  Staio  due  to  its  large 
number  of  users  and  the  type  of  applications  commonly  used  on  PCs.  NAS  A- JSC  currently 
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uses  UNIX  based  MassComp  workstations  to  implement  its  algorithms,  so  a survey  of  the 
workstation  market  is  also  included. 

3.5.1  Commercially  Available  Scanners  for  the  PC 

The  use  of  scanners  as  an  input  peripheral  in  the  personal  computer  arena  has  progressed 
significantly  in  the  last  five  years.  There  are  currently  more  than  150  different  products. 
These  products  range  from  the  $169.00  Logitech  hand-held  scanner  to  the  $15,950.00  Kurz- 
weil  Imaging  System.  According  to  the  market  research  firm  Dataquest,  scanner  sales  have 
increased  an  average  of  250  percent  annually  from  1984  to  1987.  Another  200  percent  in- 
crease was  projected  for  1988.  In  just  three  years,  scanner  manufacturers  have  doubled  res- 
olution, added  gray-scale  capability,  and  standardized  graphics  file  formats. 

The  scanners  reviewed  in  the  May  1989  issue  of  the  DataPro  Research  Bulletin  exemplify 
the  diversity  of  image  scanners  available.  Three  different  scanners  from  three  different  ven- 
dors were  reviewed,  each  representing  a different  segment  of  the  PC  scanner  market.  The 
first  scanner  reviewed  was  the  Hewlett-Packard  ScanJet  Plus,  an  enhanced  version  of  the 
popular  HP  ScanJet.  The  ScanJet  Plus  is  relatively  inexpensive,  retailing  at  $1,595  plus  $595 
for  a PC  interface  kit.  It  is  supplied  with  very  powerful  software  including  OCR  software 
which  allows  generation  of  WordPerfect  files  from  scanned  documents.  It  is  very  easy  to 
use,  and  it  has  an  extensive  range  of  gray  scale.  The  Microteck  Scanners  were  reviewed 
next.  Ranging  from  $995  on  their  low-end  model  to  $3,995  on  their  high  end,  they  have  an 
exceptional  image  quality,  and  they  work  with  many  microcomputer  systems,  including  Sun 
workstations.  Microteck  also  bundles  advanced  SuperPaint  graphics  software  with  their 
scanners.  Finally,  the  Xerox  Pro  Imager,  with  its  $10,000  price  tag,  provides  superior  perfor- 
mance with  1,200  dpi  resolution.  The  Proimager’s  software  also  allows  image  enhancement 
which  goes  beyond  the  average  capabilities  of  graphics  packages  that  may  be  bundled  with 
scanners. 

3.5.1.1  PC  Bundled  Software 

A discussion  on  image  manipulation  and  OCR  is  better  suited  for  the  section  in  this  paper 
that  addresses  image  processing  and  image  recognition,  so  a more  thorough  explanation  of 
the  state  of  those  fields  is  left  until  then.  However,  it  is  worth  mentioning  that  an  important 
trend  in  the  PC  arena  is  the  marriage  of  third  party  software,  such  as  OCR,  with  OEM  scan- 
ner hardware  and  image  manipulation  (graphics  package)  software.  For  example,  Cannon 
and  Chinon  supply  OCR  System’s  ReadRight  with  their  scanners.  Again,  it  is  the  word  pro- 
cessing and  desktop  publishing  industries  that  have  carried  scanner  and  scanner-related 
software  with  it,  thus  the  most  common  areas  of  software  development  have  been  in  OCR 
and  graphics  manipulation.  Twenty-five  percent  of  scanners  sold  currently  have  OCR  capa- 
bility. The  majority  of  existing  scanners  are  used  for  graphics  capture  and  manipulation. 

3.5.2  Commercially  Available  Scanners  for  UNIX  Workstations 

The  current  process  used  by  NASA-JSC  to  build  its  algorithms  utilizes  UNIX  based  Mass- 
Comp  workstations.  Due  to  its  smaller  segment  of  the  computer  market  and  more  complex 
and  diverse  hardware  interfaces,  fewer  optical  scanners  are  available  for  the  UNIX  worksta- 
tions. MassComp  (Concurrent  Computer  Corp.)  currently  does  not  offer  a scanner  or  even 
list  a third  party  vendor  in  their  Solutions  catalog  that  produces  a scanner  targeted  for  the 
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workstation  market.  Microtek  Lab  Inc.  is  currently  the  only  vendor  that  offers  a scanner  for 
the  very  popular  Sun  Microsystems  workstations. 

Often,  a scanner  whose  target  market  is  PCs,  will  be  connected  to  a workstation  through  a 
similar  interface.  The  NASA-JSC  Mission  Operations  Support  Lab  (MOSL)  is  currendy  us- 
ing a Howtek  Scanner  connected  to  a MassComp.  The  Howtek  scanner  is  targeted  toward 
the  much  larger  PC  market  but  can  be  connected  to  any  computer  that  utilizes  a GP-IB  inter- 
face. The  GP-IB  interface  is  not  very  common  on  workstations,  though,  and  the  software 
which  is  typically  bundled  with  the  Howtek  scanners  cannot  be  used  on  the  workstation. 
NASA-JSC  has  had  to  write  their  own  software  to  allow  the  images  from  the  Howtek  scan- 
ner to  be  displayed  on  the  workstation.  Compare  this  with  the  PC  market  where  just  about 
every  scanner  includes  (or  has  available)  an  interface  and  supporting  software  bundled  with 
the  scanner. 

Microtek  Lab  Inc.,  as  mentioned  previously,  does  offer  a scanner  and  software  targeted  for 
the  Sun  Microsystems  UNIX  workstations.  Microtek  offers  two  different  models  of  scanners 
and  bundles  graphics  manipulation  software  for  use  in  the  SunView  window  environment. 
Microtek  Lab  is  at  this  writing  the  only  vendor  available  even  to  Sun  users,  the  largest  work- 
station market  segment.  Compare  this  with  the  PC  market,  where  more  than  150  different 
products  are  available. 

3.6  The  Future  of  Optical  Scanners 

Scanner  developers  will  be  trying  to  get  higher  resolution,  better  color,  etc.  for  a long  while 
yet.  In  addition,  many  scanner  manufacturers  are  converting  from  TIFF  output  formats  to 
true  PostScript  image  output  files.  See  Section  4.3.3  for  a discussion  on  the  various  file  for- 
mats. Scanning  is  heading  toward  a future  of  unification  with  other  computer  input  and  output 
peripherals,  as  well  as  with  other  image  processors  that  are  not  computer  peripherals.  Man- 
ufacturers and  users  would  like  to  see  one  combination  machine  that  acts  as  copier,  scanner, 
laser  printer,  and  fax. 

In  the  UNIX  based  workstation  arena,  more  scanners  and  supporting  software  should  be- 
come available  as  the  workstation  market  continues  to  grow.  As  users  migrate  their  applica- 
tions from  PCs  to  workstations  in  search  of  more  processing  power,  the  need  for  scanners 
and  related  software  will  increase.  The  wide  acceptance  of  X Windows  provides  a non-pro- 
prietary graphics  environment  for  scanner  software  development. 
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4.0  Image  Processing 

Image  processing  refers  to  the  processing  of  an  existing  digital  image.  In  his  book  Robot  Vi- 
sion. Berthold  Klaus  Paul  Horn  defines  image  processing  as  "the  generation  of  new  images 
from  existing  images."  The  definition  of  image  processing  as  used  throughout  this  paper, 
with  the  exception  of  the  title  of  this  paper,  is  the  more  traditional  definition  of  image  pro- 
cessing. Image  processing  can  also  be  thought  of  as  the  processes  performed  between  im- 
age digitization  and  image  recognition. 
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Figure  4-1  Image  Flow 


Image  processing  is  also  used  as  a broader  term  to  describe  the  entire  process  of  scanning 
an  image  through  image  recognition. 

4.1  Classical  Image  Processing  Algorithms 

Classical  image  processing  deals  with  the  raw  digital  images  produced  by  scanners  and  vid- 
eo cameras.  Image  processing  in  these  arenas  is  typically  geared  toward  improving  the  qual- 
ity of  the  digital  image  to  provide  a better  image  for  the  subsequent  image  recognition  or  im- 
age generation  (screen  display  or  printing)  processes.  Many  of  the  early  classical  image  pro- 
cessing techniques  were  derived  or  evolved  from  linear  systems  theory.  Most  of  the  work  in 
classical  image  processing  has  been  done  as  a preprocessing  step  for  machine  vision  and 
pattern  recognition.  In  recent  years,  PC  scanners  and  their  related  software  have  borrowed 
from  classical  image  processing  to  improve  the  quality  of  their  images  for  OCR  and  graphics 
packages. 

4.2  Noise  Reduction 

Images  input  by  scanners  are  naturally  susceptible  to  many  types  of  noise.  Noise  within  a 
gray-scale  image  can  be  easily  removed  by  a form  of  interpolation  or  by  Fourier  transforms 
when  the  noise  is  isolated  and  has  nonnoise  neighboring  points.  This  type  of  noise  is  re- 
ferred to  as  "salt-and-pepper"  noise.  Other  types  of  noise,  even  if  they  affect  only  a small 
percentage  of  the  total  image,  are  very  hard  to  correct  inconspicuously.  A great  deal  of  re- 
search is  being  conducted  currently  to  determine  the  best  numerical  calculations  to  remove 
noise  from  gray-scale  images.  Research  is  investigating  simple  filtering  and  threshold  algo- 
rithms and  complex  Fourier  transforms  to  remove  noise  from  images. 

4.2.1  Edge  Enhancement/Detection 

Edge  detection  and  enhancement  are  an  important  step  in  the  processing  of  an  image.  In  the 
case  of  OCR,  it  is  important  that  the  edges  of  each  character  are  detectable  so  the  character 
can  be  identified.  In  the  case  of  image  recognition  of  a logic  drawing,  it  is  important  that  the 
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shape  of  the  logic  symbols  and  the  lines  connecting  the  symbols  can  be  identified.  Noise  re- 
duction is  an  important  first  step  before  edge  enhancement/detection  can  be  performed.  It  is 
important  that  the  noise  reduction  processes  reduce  noise  around  edge  boundaries,  especial- 
ly short  length  edges.  Shorter  length  edge  segments  must  have  a higher,  cleaner  contrast 
than  longer  length  segments  to  be  detected.  This  fact  is  illustrated  by  the  segment  lengths 
imposed  by  the  Toshiba  engineering  diagram  reader  (See  discussion  in  Section  6.2) 

Edge  enhancement/detection  is  performed  by  detecting  a border  between  two  regions,  each 
of  which  has  approximately  uniform  brightness.  According  to  Horn,  most  work  has  been 
done  on  the  edge  enhancement  process  with  less  work  being  done  on  actual  edge  detection. 
As  image  recognition  progresses,  edge  detection  becomes  critical  so  the  grouping  of  line  seg- 
ments can  be  performed  to  identify  shapes. 

4.2.2  Dithering 

Standard  black-and-white  photographs  may  contain  more  than  one  million  shades  of  gray. 
Current  PC-related  scanner  and  software  technology  does  not  provide  for  the  processing  or 
output  of  this  many  shades  of  gray.  As  a result,  dithering  and  gray-scaling  are  two  methods 
which  are  used  to  improve  the  handling  of  continuous-tone  images. 

Dithering  is  currently  the  most  popular  method  of  improving  continuous-tone  images  in  PC 
image  processing.  As  the  gray  tones  are  measured  by  the  scanner,  they  are  converted  into 
various  bitmap  patterns.  A high  gray  tone  value  is  represented  by  a very  dense  bitmap  pat- 
tern, and  low  gray  tone  is  represented  by  a less  dense  bitmap  pattern.  Dithered  images  are 
editable,  which  means  the  bitmap  for  a region  of  the  image  can  be  altered.  Dithered  images 
are  difficult  to  scale  and  are  also  difficult  to  vary  in  resolution.  Scaling  and  image  resolution 
are  often  modified  for  printing,  so  this  is  a disadvantage  of  dithering.  Dithered  images  are  of- 
ten stored  in  PCX,  PIC,  or  IMG  formats. 

4.2.3  Gray-scaling 

Gray-scaling  is  another  method  used  in  PC  image  processing  to  store  continuous-tone  imag- 
es. Gray-scaling  is  relatively  new  to  the  PC  arena  and  is  not  used  as  widely  as  dithering. 
As  previously  described,  dithering  converts  the  gray  tone  value  returned  from  the  scanner  in- 
to a bitmap  pattern.  Gray-scaling,  on  the  other  hand,  keeps  the  gray  tone  value  in  the  image 
file  to  be  used  later  by  the  display  software  or  hardware  (printer  or  graphics  display).  The 
quality  of  the  displayed  image  is  determined  by  the  range  of  grays  available  to  the  output  de- 
vice. 

The  majority  of  existing  PC  hardware  and  software  does  not  produce  gray-scale  quality  out- 
put Laser  printer  manufacturers  and  software  developers  are  working  feverishly  to  develop 
gray-scale  quality  products.  Big  name  corporations  such  as  Intel,  Hewlett-Packard,  and  Mi- 
croteck  have  either  announced  gray-scale  quality  products  or  will  shortly. 

4.3  Graphics  Packages 

Graphics  packages  provide  the  user  with  the  ability  to  create  and  manipulate  images.  For 
example,  a typical  graphics  package  would  provide  the  user  with  the  ability  to  create  pictures 
consisting  of  lines,  shapes,  surfaces,  colors,  and  text,  as  well  as  the  ability  to  bring  in  a 
scanned  image  stored  in  a standard  scanner  output  format.  With  the  image  loaded  into  the 
graphics  package,  the  user  can  trim  away  parts  of  the  picture,  or  cut  and  paste  portions  of  it 
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as  desired  into  his  word  processing  and  desktop  publishing  documents.  Some  more  ad- 
vanced graphics  packages  even  allow  the  user  to  enhance  the  image  by  changing  color  con- 
tent or  by  similar  functions. 

Applications  that  have  had  less  of  an  impact  on  off-the-shelf  image  processing  software,  but 
more  of  an  impact  on  the  advancement  of  the  field  of  study,  are  applications  applied  to  special 
fields  such  as  astronomy,  medicine,  geology,  and  defense.  For  example,  computer  x-ray  to- 
mography (CT)  scanner  images  are  processed  by  advanced  medical  applications  to  extract 
information  about  body  function  and  to  identify  unusual  growths  without  using  surgery.  To  do 
this,  the  graphics  software  enhances  images,  rearranges  picture  parts,  enhances  color  sepa- 
rations, or  improves  shading. 

4.3.1  Graphics  Packages  for  the  PC 

There  is  an  endless  number  of  PC  paint  and  graphics  packages  that  have  been  developed  dur- 
ing the  micro-computer  revolution.  Many  of  the  packages  originated  mostly  for  entertain- 
ment and  drawing  practice.  However,  the  demands  of  word  processing  and  desktop  publish- 
ing pushed  the  development  of  more  advanced  and  complete  systems.  These  more  advanced 
systems  combine  text,  drafting  capabilities,  freehand  modes,  and  image  processing  functions 
into  all-purpose  packages  that  can  be  used  by  artists,  illustrators,  image  processors,  and 
desktop  publishers. 

Without  question,  the  leaders  in  the  PC  graphics  world  are  Adobe  Corporation’s  Illustrator 
and  Aldus  Corporation’s  Freehand.  Neither  could  be  classified  as  a dominant  number  one, 
but  together  they  seem  to  hold  that  position.  Both  are  list  priced  at  around  $695.  These 
graphics  packages  are  the  deluxe  models  because  they  can  import  and  export  a large  number 
of  different  image  formats,  including  true  PostScript.  They  allow  freehand  drawing  with  many 
different  colors  and  brushes.  The  packages  give  drafting  capability  by  manipulating  squares, 
lines,  arrows,  and  all  shapes  as  separate  entities  that  can  be  moved,  resized,  overlaid,  etc. 
In  addition,  text  of  all  sizes  and  fonts  can  be  mixed  with  the  graphics  and  freehand  drawings. 
Both  are  available  on  the  Apple  Macintosh  computers  and  on  the  IBM  PCs. 

4.3.2  Graphics  Packages  for  the  Workstation 

MassComp  (Concurrent  Computer  Corp.)  workstations  have  a fair  amount  of  graphics  soft- 
ware that  is  intended  to  be  used  as  graphics  routine  libraries  that  are  used  to  build  other  ap- 
plication programs.  In  the  most  recent  release  of  their  Solutions  Catalog,  no  user  interactive 
graphics  package  is  mentioned.  In  summary,  there  is  no  software  on  the  MassComp  that 
will  allow  a user  to  interactively  build  or  manipulate  image  files,  while  there  are  a great  deal 
of  tools  or  libraries  that  might  be  used  by  programmers  to  build  such  a system. 

Sun  Microsystems  lists  in  its  most  recent  issue  of  the  Catalyst  Catalog  two  stand-alone 
graphics  editors  and  two  composite,  desktop  publishing  and  graphics  editors.  The  stand- 
alone packages  are: 

• Artisan  (Media  Logic  Incorporated),  $1,795  gray-scale,  $3,250  color. 

• Graphics  Builder  (Xerox  Corporation),  price  not  listed. 

Both  of  these  provide  standard  graphics  creation  capabilities  such  as  drawing  in  color  with 
different  brushes,  diagram  making,  etc.  Differing  from  most  PC  graphics  packages,  these 
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workstation  packages  offer  image  processing  functions  for  scanned  images  such  as  image 
composition,  color  correction  and  enhancement. 

Desktop  publishing  packages  are  more  prevalent  on  the  workstation.  These  packages  al- 
most always  include  some  form  of  graphics  generation  and  manipulation.  The  following  are 
two  examples  of  desktop  publishing  packages  that  include  a graphics  production  system. 

• FrameMaker  (Frame  Technology  Corporation),  approximately  $2,500. 

• Publisher  (Arbor  Text,  Inc.),  $1,995. 

The  graphics  production  systems  in  these  composite  packages  allow  the  user  full-function 
paint  and  draw  capabilities  like  one  would  find  in  the  MacPaint  and  MacDraw  programs  on 
the  PCs. 

4.3.3  Standard  Graphics  File  Formats 

It  is  obvious  that  with  many  different  scanners,  image  processors,  graphics  packages,  and 
desktop  publishers  on  the  market,  some  standard  in  image  file  formats  had  to  evolve.  There 
are  several  formats  that  are  common,  including  PCX,  PIC,  IMG,  TIFF,  and  PostScript.  TIFF 
and  PostScript  have  emerged  as  solid  standards,  the  leader  being  PostScript.  It  would  be 
useful  to  review  both  of  these  formats  individually. 

4.3.3. 1 Tagged  Image  File  Format  (TIFF) 

Tagged  Image  File  Format  has  become  a standard  for  scanned  image  formats.  The  standard 
was  originally  developed  on  the  Apple  Macintosh  and  is  very  popular  because  it  provides  a 
format  for  porting  image  files  between  PC  and  Mac  graphics  packages. 

TIFF  uses  tags  to  identify  graphic  elements.  The  simplest  component  of  the  TIFF  format  is 
a bitmap  of  an  image.  The  TIFF  format  also  stores  information  about  the  gray-scale  or  color 
of  each  dot  in  the  image.  The  TIFF  format  can  still  be  used,  however,  if  the  software  you  use 
does  not  provide  gray-scale  or  color  information.  In  addition,  TIFF  allows  for  the  simulta- 
neous storage  of  multiple  resolution  bitmaps  of  the  same  image  in  the  same  file.  Thus,  soft- 
ware can  choose  between  the  multiple  resolutions  depending  upon  the  display  used. 

According  to  the  October  1987  issue  of  PC  Magazine,  the  big  disadvantage  of  bitmap  files  is 
that  most  software  arranges  pixels  into  halftone  dots,  freezing  the  print  resolution  of  the  im- 
age. But  if  the  software  captures  gray-scale  information,  TIFF  stores  it  and  makes  it  avail- 
able to  the  software  for  manipulation. 

4.3 3.2  PostScript  Format  (PSF) 

PostScript  Format  and  its  successor  Encapsulated  PostScript  (EPS)  have  become  the  lead- 
ing standards  for  image  formats  across  all  hardware  and  software  platforms.  PostScript  be- 
came the  standard  for  text  in  conjunction  with  the  word  processing  and  laser  printing  fields. 
Its  successor  EPS  stores  images  with  a kind  of  vector  format  that  is  based  on  PostScript 
EPS  is  used  in  graphics  as  well  as  text  and  is  a fundamental  part  of  the  leading  graphics 
packages  on  the  market  today. 
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4.4  Computer  Aided  Design  (CAD) 

For  a number  of  years,  the  biggest  use  of  PC  and  mini-computer  graphics  has  been  in  the  ar- 
ea of  Computer  Aided  Design  (CAD).  CAD  packages  allow  designers  to  interactively  de- 
sign whole  objects  or  parts  of  objects  by  specifying  the  objects  dimensions.  CAD  systems 
allow  the  designer  to  view  the  object  under  design  from  different  viewpoints  and  to  incorpo- 
rate modifications  into  the  design  very  easily.  CAD  systems  allow  designs  to  be  produced 
more  quickly,  and  they  also  produce  renderings  that  are  more  realistic  than  pencil  drafts. 
Electronically  stored  CAD  designs  can  also  be  more  easily  copied  and  modified  than  pencil 
designs. 

4.4.1  CAD  Goals 

The  fundamental  purpose  of  CAD  packages  is  to  capture  a schematic  or  design  from  the 
imagination  of  the  designer.  Most  of  the  CAD  tools  have  focused  on  interacting  with  the  de- 
signer to  provide  him/her  with  ease  of  input,  retrieval,  and  manipulation  of  his/her  designs. 
Many  CAD  software  packages  have  elaborate  facilities  which  allow  design  and  display  of  3- 
D components  or  schematics  with  easy-to-use  interfaces  and  plenty  of  on-line  help. 

CAD  software  allows  part  libraries  to  be  formed  which  can  be  incorporated  as  a portion  of  a 
larger  design  or  reused  in  other  designs.  Design  elements  can  be  assigned  names  and  other 
information  that  give  meaning  to  them.  Relationships  between  elements  can  be  specified  as 
well. 

CAD  systems  are  used  in  a wide  variety  of  fields: 

• Electrical  engineering 

• Automobile  and  aircraft  design 

• Architectural  and  building  design 

• Communications  network  design 

• Water  and  electricity  supply  systems  design 

CAD  systems  allow  designers  to  see  objects  on  a computer  screen  before  they  are  con- 
structed. CAD  systems  often  work  in  parallel  with  simulation  software  to  allow  the  design- 
er to  exercise  objects  before  they  are  constructed.  In  fact,  advanced  IC  design  CAD  systems 
allow  the  schematic  that  is  produced  to  be  tested  with  simulation  software  which  allows  veri- 
fication of  the  correctness  and  functionality  of  the  design.  Many  architectural  CAD  systems 
allow  the  user  to  take  a "tour"  via  computer  through  the  structure  being  designed. 

4.4.2  CAD  Packages  for  the  PC 

PC  CAD  systems  are  almost  as  popular  as  word  processing  systems,  and  as  a result  there  a 
numerous  CAD  systems  available  to  meet  every  budget  and  need.  PC  CAD  packages  are 
available  for  as  little  as  $2.00  and  costing  as  much  as  thousands  of  dollars.  There  are  two 
leaders  in  the  PC  world  in  CAD  software,  namely,  AutoCAD  and  VersaCAD.  AutoCAD 
has  the  advantage  of  being  a pioneer  and  a mainstay  in  the  PC  CAD  world,  a tool  against 
which  other  systems  are  measured.  VersaCAD,  while  not  as  widely  used  as  AutoCAD, 
has  earned  the  reputation  of  being  a more  user-friendly  system.  Both  systems  essentially 
have  the  same  features  or  functionality.  VersaCAD,  however,  leads  in  allowing  new  users  to 
learn  and  start  working  quickly,  while  AutoCAD  commands  are  said  to  be  cryptic  and  difficult 
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to  leam.  Each  of  these  packages  can  read  and  write  IGES  files  as  well  as  AutoCAD  DXF 
files,  and  both  can  be  purchased  at  most  PC  software  retailers.  See  Section  4.4.4  for  a dis- 
cussion of  the  various  file  formats. 

4.4.3  CAD  Packages  for  the  Workstation 

As  in  the  PC  arena,  there  are  numerous  CAD  packages  for  the  workstations.  A quick  look  at 
the  Sun  Microsystems  Catalyst  Catalog  reveals  many  different  CAD  systems  for  just  the 
Sun  hardware  platform  alone.  Numerous  other  packages  exist  for  the  other  workstation 
hardware  platforms.  The  workstation  market  differs  from  the  PC  market  in  the  number  of 
general  purpose  CAD  packages  available.  Workstation  CAD  packages  are  usually  targeted 
toward  a very  specific  CAD  function  (IC  design  is  a popular  one).  CAD  packages  for  the 
workstation  are  typically  much  more  expensive  than  their  PC  counterparts.  The  following  is 
a list  of  several  workstation  CAD  packages: 

* Allegro  PCB  Design  System  (Valid  Logic  Systems  Inc.) 

* Analog  Design  and  Analysis  Environment  (Daisy/Cadnetix  Inc.) 

* AutoPCM  (Cadisys  Corporation) 

* CAECO  Designer  (Silicon  Compiler  Systems  Corporation) 

* Dash  Schematic  Designer  (Data  I/O  Corporation) 

4.4.4  Standard  CAD  File  Formats 

As  in  the  word  processing  arena,  almost  every  CAD  system  uses  a proprietary  file  format.  If 
there  arc  a thousand  CAD  systems,  there  are  a thousand  different  formats  in  which  CAD  de- 
signs arc  electronically  stored.  In  order  for  one  CAD  system  to  share  designs  with  another 
CAD  system,  a CAD  electronic  file  format  standard  had  to  be  built 

4.4.4. 1 EDIF/IGES 

An  attempt  at  defining  a standard  CAD  file  format  was  made  in  the  mid  80’s.  This  standard 
was  formed  or  supported  by  several  large  companies  including.  Motorola,  National  Semicon- 
ductor, Mentor  Graphics,  Tektronix,  Texas  Instruments,  AT&T,  and  Hewlett-Packard.  The 
standard  was  called  the  Electronic  Design  Interchange  Format  (EDIF),  but  it  was  such  a 
loose  specification,  that  it  took  many  different  evolution  paths.  EDIF  ended  up  being  not 
much  more  than  a suggested  way  of  describing  CAD  files. 

A follow-on  standard  which  has  succeeded  in  becoming  a standard  is  the  Initial  Graphics  Ex- 
change Specification  (IGES)  which  was  defined  by  the  U.S.  Department  of  Commerce.  This 
standard  established  the  information  structures  to  be  used  for  the  digital  representation  and 
communication  of  product  definition  data  (CAD  designs).  The  file  format  that  was  decided 
upon  treats  the  design  definition  as  a file  of  entities,  each  entity  being  represented  in  an  ap- 
plication-independent format.  Each  specific  CAD  system  can  then  map  between  the  IGES 
files  and  its  own  native  representation. 

To  do  this,  the  CAD  designs  arc  described  in  terms  of  geometric  and  non-geometric  informa- 
tion, with  non-geometric  information  being  divided  into  annotation,  definition,  and  organiza- 
tion. The  geometric  data  consists  of  a definition  of  the  design  in  terms  of  points,  curves,  and 
surfaces.  The  annotation,  on  the  other  hand,  consists  of  those  elements  which  are  used  to 
clarify  or  enhance  the  geometry,  including  dimension,  drafting  notation,  and  text.  The  defini- 


Page  12 


Image  Processing 


DXF 


tion  category  provides  the  ability  to  define  specific  properties  or  characteristics  of  individual 
or  collections  of  data  entities.  The  structure  category  identifies  groupings  of  elements  from 
geometric,  annotation,  or  property  data  which  are  to  be  evaluated  and  manipulated  as  single 
items. 

One  of  the  entities  that  is  defined  as  part  of  the  IGES  standard  is  of  particular  interest  to  a 
later  discussion  in  this  paper.  The  IGES  standard  contains  a provision  which  is  suitable  for 
saving  the  meaning  (or  information  that  leads  to  meaning)  of  CAD  images.  The  Property  En- 
tity allows  non-geometric  numeric  or  textual  information  to  be  related  to  any  entity.  Any  en- 
tity occurrence  may  reference  one  or  more  property  entity  occurrences  as  required.  A CAD 
file  stored  in  the  IGES  format,  then,  can  contain  information  that  would  lead  to  understanding 
of  the  entities  of  the  design  (i.e.,  bubbles,  squares,  and  edges). 

Another  entity  of  interest  is  the  Implementor  Defined  Entity.  This  specification  allows  imple- 
mentors to  include  entities  in  their  IGES  files  that  are  not  defined  specifically  in  the  IGES 
standard.  It  is,  in  effect,  a generic  entity  that  can  be  used  by  CAD  programs  to  define  non- 
standard things.  This  type  of  entity  could  be  used  as  a hook,  for  example,  to  hang  interesting 
information  that  might  be  needed  to  interpret  designs  from  IGES  file  formats. 

4.4.4.2  DXF 

Another  standard  that  has  come  about  as  a result  of  market  competition  is  the  DXF  format 
that  is  used  to  save  designs  from  the  PC’s  AutoCAD  package.  This  file  format  is  also  used 
by  other  competing  CAD  packages  due  to  AutoCAD’s  dominance  and  early  presence  in  the 
PC  CAD  arena. 
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5.0  Image  Recognition 

This  paper  has  discussed  how  images  (i.e.,  engineering  diagrams)  can  be  scanned  into  an  im- 
age file  and  how  that  image  file  can  then  be  manipulated  or  enhanced  through  graphics  pack- 
ages, CAD  systems,  and  image  processing.  Until  now,  little  mention  has  been  made  of  how 
to  interpret  what  the  scanned  and  processed  image  contains  that  is  of  meaning.  The  focus  of 
image  recognition  is  separating  the  crude  bitmap  image  into  its  component  entities  and  deter- 
mining their  identity.  This  may  involve  identification  of  shapes,  objects,  or  character  text. 

There  are  several  areas  in  which  image  recognition  has  been  developed  into  commercially  vi- 
able products.  Two  of  the  applications  that  have  received  much  attention  are  Optical  Char- 
acter Recognition  (OCR)  and  Computer  Aided  Design  (CAD).  This  section  will  provide  an 
overview  of  the  capabilities  in  these  two  areas  and  a survey  of  what  is  currently  available  in 
the  market  place. 

The  field  of  image  recognition  is  still  an  advancing  research  topic,  and  there  are  many  unan- 
swered questions  and  unsolved  problems.  This  chapter  will  address  existing  technologies 
and  commercially  available  applications.  The  following  chapter  will  address  current  research 
in  the  field  of  image  recognition. 

5.1  Optical  Character  Recognition  (OCR) 

Optical  character  recognition  is  the  ability  of  a computer  (whether  in  hardware  or  software) 
to  talfft  a scanned  image  of  a page  of  text  and  interpret  the  characters  that  are  in  the  scanned 
image  to  produce  an  ASCII  (or  EBCDIC)  output  file  that  is  the  same  as  the  text  on  the  origi- 
nal page.  The  ASCII  file  can  then  be  edited  by  word  processors  as  a document,  or  the  text 
file  can  be  used  by  other  programs  to  interpret  the  meaning  of  the  characters  or  words. 

5.1.1  Origins 

Optical  character  recognition  grew  in  conjunction  with  the  demand  of  the  word  processing  in- 
dustry to  have  an  automated  facility  to  input  documents  from  paper  to  a digitally  stored  for- 
mat. With  massive  amounts  of  documents  to  store  and  process  via  computer,  it  was  justifi- 
able to  find  an  automatic  alternative  to  hiring  typists  to  enter  the  text.  Since  OCR  is  so  intri- 
cately associated  with  the  necessary  process  of  digitizing  the  text  image,  25%  of  all  scanners 
that  are  currently  produced  have  some  OCR  capability.  Often  the  bundled  software  is  tai- 
lored to  the  associated  hardware.  There  are  other  OCR  software  packages  that  do  not  re- 
quire specific  scanner  hardware  that  can  read  from  standard  image  file  formats. 

5.1.2  How  it  Works 

Whether  the  recognizing  of  characters  is  done  in  the  scanner  hardware,  on  an  expansion  card 
in  the  computer,  or  in  the  software  alone,  OCR  can  be  divided  into  three  categories  based  on 
the  algorithms  used  to  recognize  individual  characters: 

• Matrix  matching 

• Feature  extraction 

• Hybrid  methods 
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OCR  is  very  important  in  the  solution  of  automatically  "scanning"  logic  diagrams.  Logic  dia- 
grams similar  to  the  one  in  Figure  1-1  contain  a relatively  high  percentage  of  text,  so  these 
methods  will  be  investigated  individually. 

5.1.3  Matrix  Matching 

First,  most  of  the  low-end  OCR  software  packages  use  matrix  matching,  sometimes  called 
font  recognition.  The  OCR  software  contains  a fixed  pixel  matrix  for  each  character  which 
can  be  recognized.  The  OCR  starts  at  the  top  of  the  image  and  isolates  a group  of  pixels  us- 
ing component  separation.  Component  separation  is  performed  using  the  assumption  that 
each  character  will  be  composed  of  a tightly  packed  pattern  of  black  pixels  with  a rectangular 
area  no  larger  than  the  template  characters.  The  isolated  patterns  are  often  called  MRAs, 
Minimum  Regions  of  Analysis.  The  isolated  pattern  of  pixels  is  then  matched  against  each 
of  the  known  character  matrices  until  a match  is  found.  If  the  character  does  not  match  any  of 
the  known  characters,  the  OCR  software  may  choose  to  ignore  the  character  or  ask  the  user 
for  interpretation. 

Matrix  matching  OCR  software  has  proven  useful  when  recognizing  monospaced  characters 
from  a restricted  number  of  character  fonts  and  type  sizes.  Matrix  matching  software  is  often 
capable  of  "learning"  a new  character  font  The  new  font  may  be  appended  to  the  existing 
character  matrices  or  may  replace  existing  character  matrices.  The  time  to  recognize  each 
character  increases  and  the  accuracy  of  correct  character  recognition  decreases  as  the  num- 
ber of  known  character  matrices  is  expanded. 

Matrix  matching  is  not  robust  enough  to  recognize  a new  font  without  having  been  "trained" 
on  that  font  The  matrices  of  each  character  in  each  new  font  must  become  a member  of  the 
set  of  matrices  with  which  the  OCR  software  compares.  Furthermore,  if  this  algorithm  is  ex- 
pected to  recognize  characters  with  tilted  orientations,  it  must  be  trained  on  all  orientations 
of  all  characters  of  all  fonts.  This  is  obviously  prohibitive,  and  matrix  matching  OCRs  usually 
cannot  recognize  tilted  text. 

5.1.4  Feature  Extraction 

The  next  category  of  recognition  methods,  feature  extraction,  is  usually  used  by  more  expen- 
sive OCR  software.  Feature  extraction,  sometimes  called  feature  recognition,  is  based  on 
the  principal  that  every  character  has  a set  of  distinct  features  which  can  be  used  to  identify 
it.  As  a document  is  scanned,  an  MRA  is  identified  and  the  features  of  a potential  character 
within  the  MRA  are  determined.  These  features  are  compared  against  the  features  of  known 
characters  until  the  character  is  either  identified  or  rejected. 

Feature  extraction  is  a much  more  powerful  recognition  technology  than  matrix  matching  be- 
cause it  is  more  immune  to  the  effects  of  image  noise,  character  point  size,  character  font, 
and  character  spacing.  Complex  and  decorative  fonts  may  not  be  recognizable  by  feature  ex- 
traction due  to  the  extraneous  characteristics  for  each  character.  Feature  extraction  soft- 
ware is  more  complex  to  develop  than  matrix  matching  software  and  often  is  enhanced  by  the 
use  of  context  information  to  improve  the  accuracy  of  the  recognition  process. 

Feature  extraction  software  would  identify  the  MRA  "q"  by  determining  the  region’s  charac- 
teristics. The  MRA  "q"  consists  of  a circle  attached  to  a vertical  line  with  the  circle  being  lo- 
cated at  the  top  of  the  vertical  line.  The  letters  "q"  and  "d,"  and  the  number  "9"  consist  of  a 
circle  on  the  left  of  a vertical  line.  Due  to  the  fact  that  the  vertical  line  is  straight,  the  number 
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"9"  is  eliminated  as  a possibility.  The  letter  "d"  is  eliminated  as  a possibility  due  to  the  fact 
that  the  circle  portion  of  the  character  occurs  at  the  bottom  of  the  vertical  line  instead  of  at 
the  top. 

5.1.5  Hybrid  Methods 

Alone,  both  matrix  matching  and  feature  extraction  OCR  produce  several  errors  per  page.  Fi- 
nally, a hybrid  method  of  recognition  which  combines  parts  of  both  matrix  matching  and  fea- 
ture extraction  can  be  used  which  results  in  fewer  undetected  errors.  To  recognize  a charac- 
ter, the  hybrid  OCR  algorithm  would  check  first  with  a matrix  to  find  an  obvious  match,  then 
it  would  look  for  features  that  are  characteristic  of  that  character  to  solve  any  dispute.  As  a 
further  check,  a hybrid  OCR  algorithm  takes  the  words  it  finds  and  looks  for  them  in  a dictio- 
nary to  make  sure  they  exist.  Misinterpreted  characters  are  found  by  the  misspelling  of  the 
word  to  which  they  belong.  For  example,  "The  dog  sut  down"  would  be  found  to  be  "The  dog 
sat  down."  Needless  to  say,  the  hybrid  algorithms,  though  more  accurate,  can  be  processor, 
storage,  and  time  intensive.  All  algorithms  require  a human  proofreader  to  catch  all  of  the  er- 
rors. 

5.1.6  Commercially  Available  OCR 

There  are  an  increasing  number  of  OCR  packages  available.  Some  are  stand-alone  software 
packages,  while  others  come  standard  as  part  of  an  optical  scanner. 

5. 1.6.1  OCR  for  the  PC 

According  to  a DataPro  Review  in  December  1988,  the  Calera  Character  Recognition  Sys- 
tems’ TrueScan  ($2,495)  is  a good  buy  because  of  its  low  error  rate,  even  on  dot  matrix  qual- 
ity documents.  The  software  also  recognizes  lines,  tabs  and  columns.  The  software  outputs 
the  text  in  a variety  of  popular  word  processing  formats. 

An  October  1989  DataPro  Review  praised  the  Kurzweil  Character  Recognition  System 
(Xerox  Imaging  Systems)  products  which  range  from  $17,950  on  the  high  end  to  $2,995  on 
the  low  end.  This  company  has  a long  history  of  good  products  in  this  industry,  and  the  sys- 
tems run  on  standard  microcomputers.  The  degree  of  accuracy  can  be  adjusted  to  the  job  by 
the  user.  These  systems,  however,  do  not  support  UNIX-based  workstations. 

5.1.6.2  OCR  for  the  Workstation 

Neither  the  most  recent  MassComp  (Concurrent  Computer  Corporation)  Solutions  Catalog 
nor  the  latest  Sun  Microsystem’s  Catalyst  Catalog  mention  OCR  software  for  the  worksta- 
tion. This  is  understandable,  since  it  would  be  trivial  to  scan  in  a document  on  a PC  and  then 
upload  the  document  text  file  to  a workstation  word  processor.  Perhaps  the  price  of  worksta- 
tions still  prohibits  their  use  as  extensive  word  processing  tools. 

5.2  CAD  Overlaying 

In  addition  to  OCR,  the  need  for  comprehensive  CAD  tools  has  been  a driving  force  in  the  ap- 
plication of  image  recognition  techniques  in  commercial  CAD  software.  Though  the  principle 
use  of  CAD  software  to  capture  schematics  from  designers  needs  no  image  recognition,  the 
need  to  capture  designs  that  are  already  existing  on  paper  into  electronic  formats  has  driven 
the  industry  to  develop  some  software  that  requires  image  recognition. 
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Many  CAD  systems  provide  the  ability  to  bring  paper  printed  designs  in  through  a technique 
called  CAD  overlay.  The  technique  is  not  automatic  at  all;  in  fact,  it  is  only  a tool  to  aid  in  ac- 
celerating human  reentering  of  the  design.  The  advantage  of  this  method  of  reentry  is  that  a 
less  skilled  person  could  perform  the  job  without  having  to  understand  the  design. 

5.2.1  How  it  Works 

To  bring  a preexisting  design  into  VersaCAD  using  the  overlay  technique,  for  example,  one 
would  first  scan  the  drawing  into  an  image  file  using  an  optical  scanner  and  its  related  soft- 
ware. Then  one  would  bring  the  drawing  onto  the  VersaCAD  screen  as  a background  im- 
age. Next,  the  user  would  choose  system-defined  (or  user-defined)  objects  such  as 

squares,  lines,  and  bubbles  to  overlay  on  corresponding  objects  in  the  image.  One  essential- 
ly recreates  the  design  in  the  VersaCAD  system  by  piecing  together  (overlaying)  objects  on 
the  screen.  The  scanned  image  acts  only  as  a back-drop  to  guide  a human  in  the  overlay 
(recreation)  process.  The  result  is  that  the  design  is  transferred  from  paper  to  an  electronic 
file  format  much  more  quickly  than  if  it  were  redesigned  without  using  overlays. 

5.2.2  Commercially  Available  CAD  Overlay 

Both  the  AutoCAD  and  VersaCAD  systems  have  software  available  to  them  that  allow 
overlay  design  entry.  AutoCAD  has  a supplemental  package  called  CADOverlay,  and 
VersaCAD  has  this  supplemental  software  included  in  it. 

5.3  Raster-to-Vector  Conversion 

The  demand  for  a more  automatic  way  of  entering  old  designs  into  CAD  systems  and  to 
store  them  electronically  has  brought  about  the  need  for  computers  to  be  able  to  "look"  at  a 
scanned  image  and  distinguish  the  entities  that  make  up  that  design  which  might  be  bubbles, 
squares,  lines,  text  descriptions,  etc.  Capturing  the  graphics  entities  which  make  up  the 
drawing  is  done  by  a process  called  raster-to-vector  conversion.  It  must  be  made  clear  that 
even  though  raster-to-vector  conversion  captures  the  graphics  entities,  it  still  has  not  cap- 
tured the  meaning  of  those  entities.  This  means  that  the  NASA  problem  will  require  special- 
ized software  that  is  not  commercially  available  to  interpret  meaning,  even  if  a logic  design 
could  be  scanned  into  an  electronic  format  automatically  with  off-the-shelf  software  packag- 
es. 

A scanned  image  is  in  a form  called  raster  format,  meaning  it  is  just  a bunch  of  bits  that  rep- 
resent pixels  or  dots  in  the  picture.  CAD  systems,  on  the  other  hand,  do  not  store  graphics 
information  in  raster  format,  but  they  use  vector  information  to  describe  graphics  objects. 
For  example,  a vector  stores  a line  as  a starting  point  and  a length.  The  other  graphics  ob- 
jects, such  as  a square,  have  similar  vector  definitions. 

For  a computer,  the  task  of  interpreting  the  scanned  image  into  vector  format  is  not  trivial. 
With  the  advances  in  image  recognition,  edge  identification  and  other  such  algorithms  have 
been  developed  to  the  point  that  software  can  convert  from  raster  to  vector  for  CAD  input. 
Depending  upon  the  quality  of  the  original,  the  conversion  will  have  more  or  less  errors.  Al- 
most all  conversion  will  have  errors  that  need  to  be  touched  up  by  humans.  Nevertheless, 
this  conversion  and  correction  is  much  faster  than  manual  entry. 
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5.3.1  Raster-to-Vector  Conversion  Packages  for  the  PC 

The  only  raster-to-vector  software  available  on  the  PC  is  tightly  associated  with  CAD  pack- 
ages. The  following  are  three  examples  of  available  PC  packages: 

• CAD/camera  (Autodesk  Corporation)  $3,000 

• CADmate  (Microteck  Corporation)  $995 

• ScanPro  (American  Small  Business  Computer  Corp.)  $495 

CAD/camera  is  the  pioneer  in  the  field  of  commercial  raster-to-vector  software,  but  without 
doubt,  ScanPro  is  the  best  of  the  three.  ScanPro  is  faster  and  more  reliable.  CAD/camera  is 
directly  associated  with  AutoCAD.  ScanPro  can  also  produce  the  vectors  in  AutoCAD’s 
DXF  format. 
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6.0  Image  Processing/Image  Recognition  Research 

There  are  currently  numerous  research  projects  involving  image  processing  and  image  recog- 
nition. A quick  look  at  the  number  of  papers  published  in  the  IEEE  Transactions  on  Pattern 
Analysis  and  Machine  Intelligence  indicates  the  interest  in  image  processing  and  image  rec- 
ognition. The  following  papers  were  chosen  because  of  their  relevance  to  the  proposed  solu- 
tion to  the  NASA  problem.  These  papers  deal  with  separation  of  text  and  graphics  and 
graphics  symbol  recognition. 

6.1  Research  in  Graphics/Text  Separation 

"A  Robust  Algorithm  for  Text  String  Separation  from  Mixed  Text/Graphics  Images" 

IEEE  Transactions  on  Pattern  Analysis  and  Machine  Intelligence 

The  discussion  is  this  research  paper  is  directly  related  to  the  proposed  NASA  solution  for 
several  reasons.  The  paper  outlines  a process  for  separating  text  strings  of  various  font 
styles  and  sizes  from  graphics  images  which  contain  both  graphics  symbols  and  text  strings. 
This  is  ideally  suited  for  the  NASA  solution  because  of  the  diversity  in  the  content  of  the  log- 
ic drawings  currently  developed  by  the  different  groups  at  NASA.  The  paper  also  provides 
experimental  results  which  quantify  the  effectiveness  of  the  algorithm  using  a Microtek  Im- 
age Scanner  and  an  EBM  PC-AT.  The  Microtek  scanner  provides  similar  functionality  to  the 
scanner  which  NASA  has  already  interfaced  to  a MassComp  workstation.  Much  of  the  re- 
search being  conducted  in  the  image  processing  and  image  recognition  fields  is  performed  on 
custom  or  very  expensive  hardware.  For  example,  the  diagram  reader  discussed  in  the  next 
section  utilizes  four  processors  and  custom  wired-logic  hardware.  The  hardware  used  in  this 
research  is  very  similar  to  the  hardware  which  is  readily  available  currently  at  NASA. 

Engineering  diagrams  and  logic  drawings  usually  contain  graphical  symbols  and  supporting 
textual  labels  or  descriptions.  Fletcher  and  Kasturi  first  attack  the  problem  of  interpreting 
drawings  and  diagrams  by  attempting  to  separate  the  graphics  symbols  from  the  text.  Two 
image  files  are  generated  from  each  graphics  image  of  an  engineering  diagram  or  logic  draw- 
ing. The  first  image  file  contains  the  text  strings  which  were  in  the  original  graphics  image, 
and  the  second  file  contains  only  the  remaining  graphics  symbols.  This  allows  OCR  systems 
to  operate  on  an  image  file  containing  the  text  strings,  and  graphics  recognition  systems  to 
operate  only  on  the  graphics  symbols.  The  algorithm  described  and  evaluated  in  the  research 
paper  focuses  on  the  effectiveness  of  the  graphics/text  separation. 

The  Fletcher  and  Kasturi  algorithm  is  unique  in  its  ability  to  locate  text  regardless  of  the 
text’s  orientation,  font  style,  or  font  size.  The  algorithm  places  several  restrictions  on  the 
text  within  a drawing,  but  these  guidelines  are  less  restrictive  than  previously  implemented 
algorithms.  For  a comparison,  note  the  restrictions  placed  on  the  text  strings  in  the  following 
research  paper. 

The  algorithm  for  separating  the  text  strings  from  the  graphical  image  consists  of  the  follow- 
ing steps: 

• Connected  component  generation 

• Area/ration  filter 

• Collinear  component  grouping 
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• Logical  grouping  of  strings  into  words  and  phrases 

• Text  string  separation 

The  method  uses  eight  connected  pixels  in  the  image  to  find  connected  pieces  of  a character. 
It  assigns  a bounding  rectangle  to  the  connected  pixels  (the  character  or  a small  graphics 
item)  by  using  the  minimum  and  maximum  x and  y coordinates  associated  with  the  group  of 
pixels.  The  character  or  graphics  item  is  then  effectively  blocked  off. 

When  all  the  groups  that  are  thought  to  be  characters  on  the  page  are  bounded,  a search  is 
made  to  find  "strings"  of  text  by  comparing  the  centroids  of  the  many  bounding  boxes.  If  a 
given  box  is  found  to  be  collinear  with  other  boxes,  it  is  assumed  to  be  a character,  and  the 
entire  string  is  extracted  from  the  mixed  image  and  placed  in  a separate  text  image  file.  With 
a separate  file  containing  just  text,  an  OCR  system  can  be  used  on  the  text  image  file  to  de- 
termine individual  characters.  The  remaining  graphics  image  file  can  be  converted  using  the 
raster- to- vector  conversion  systems  discussed  in  Section  5.3. 

This  current  research  only  addresses  the  issues  of  separating  text  and  graphics  and  inter- 
preting each  into  their  respective  ASCII  and  vector  codes.  It  does  not  address  the  subject  of 
understanding  the  logic  represented  by  the  graphics  symbols  or  the  meaning  of  the  text  with- 
in the  drawing.  It  does  provide  a robust  algorithm  for  the  first  step  in  the  automatic  scanning 
and  interpretation  of  the  NASA  logic  drawings. 

6.2  Research  in  Reading  Engineering  Designs 

"An  Automatic  Circuit  Diagram  Reader  with  Loop-Structure-Based  Symbol  Recognition" 
IEEE  Transactions  on  Pattern  Analysis  and  Machine  Intelligence 

At  Toshiba,  much  of  the  initial  Large  Scale  Integration  (LSI)  engineering  design  work  is  still 
done  on  paper  by  engineers.  These  initial  designs  drawn  on  paper  are  then  input  into  CAD 
systems  for  analysis,  modification,  and  production.  The  process  of  inputting  the  hand-drawn 
engineering  diagrams  into  the  computer  based  CAD  system  is  a time  consuming  process.  An 
error  correction  process  often  follows  the  transfer  from  paper  to  computer. 

Five  researchers  at  the  Toshiba  Research  and  Development  Center  in  Kawasaki,  Japan, 
have  reduced  the  time  consuming  process  of  inputting  an  engineering  diagram  into  a comput- 
er by  implementing  a custom  logic  circuit  diagram  reader  for  VLSI-CAD  data  input  The  logic 
circuit  diagram  reader  automatically  scans  the  engineering  diagram,  interprets  the  symbols 
and  text  of  the  diagram,  and  outputs  the  information  contained  in  the  diagram  in  a format  that 
is  usable  by  a CAD  system. 

The  diagram  reader  developed  by  Toshiba  is  a circuit  diagram  reader  only,  and  traditional  cir- 
cuit diagrams  are  composed  of  two  types  of  symbols:  loop  symbols  and  loop-free  symbols. 
Loop  symbols  are  those  circuit  diagram  symbols  which  are  composed  of  one  or  more  closed 
loops.  The  various  gate  symbols,  such  as  AND  and  OR  gates,  are  examples  of  closed  loop 
symbols.  Loop-free  symbols  are  those  circuit  diagram  symbols  which  are  not  composed  of 
closed  loops.  The  GROUND  and  RESISTOR  symbols  are  examples  of  loop-free  symbols. 
Many  of  the  closed-loop  symbols  used  in  circuit  diagrams  are  very  similar  in  design  with 
only  subtle  differences.  The  circuit  diagram  reader  developed  by  Toshiba  was  designed  with 
great  emphasis  on  the  correct  interpretation  of  closed-loop  symbols. 
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Closed-loop  symbols  are  recognized  in  a two  stage  process.  The  first  stage  involves  locat- 
ing and  delimiting  the  regions  which  contain  closed-loop  symbols.  The  Toshiba  researchers 
call  this  first  stage  "symbol  segmentation."  Minimum  regions  of  analysis  (MRA)  are  deter- 
mined in  much  the  same  way  they  are  determined  in  OCR  software.  This  is  possible  be- 
cause each  symbol’s  shape  and  size  is  known,  due  to  the  fact  that  the  Toshiba  prototype  re- 
quires the  diagrams  to  be  drawn  using  a template. 

In  the  second  stage,  the  delimited  regions  are  analyzed  to  determine  which  closed-loop  sym- 
bol is  contained  within  each  region.  The  Toshiba  researchers  call  the  second  stage  "symbol 
identification."  The  second  stage  uses  template  matching  and  feature  extraction,  also  used 
in  OCR  software,  to  perform  symbol  identification.  A decision  tree  performs  the  template 
matching  and  feature  extraction  in  parallel  on  each  MRA.  The  decision  tree  uses  the  output 
of  both  identification  methods  to  identify  the  symbol.  The  decision  tree  allows  the  software 
to  utilize  the  advantages  of  both  identification  techniques  without  incurring  the  inaccuracy  of 
an  individual  technique. 

Figure  6-1  displays  the  flow  of  Toshiba  diagram  reader. 

Decision  trees  allow  new  symbols  to  be  easily  incorporated  into  both  stages.  Decision  trees 
also  allow  the  accuracy  of  the  two  stages  to  be  improved  as  more  is  learned  about  each 
stage  and  the  processes  are  refined. 

The  Toshiba  prototype  developers  found  that  the  greatest  difficulty  in  introducing  their  LSI 
circuit  diagram  reader  was  deciding  on  the  drawing  rules.  The  LSI  designers  requested  that 
the  additional  drawing  rules  imposed  by  the  diagram  reader  be  as  few  as  possible.  The  fol- 
lowing rules  were  imposed  to  ensure  accurate  reading  of  the  diagram  within  reasonable  time 
limits: 

• A template  of  the  allowable  logic  symbols  must  be  used. 

• Eight  orientations  of  each  symbol  are  allowed:  symbols  rotated  90  degrees  and 
their  reflections. 

• The  lines  connecting  symbols  must  be  drawn  with  a ruler. 

• The  shortest  allowable  line  segment  length  is  2 mm. 

• Character  labels  must  be  written  in  a specific  font  recognized  by  the  OCR  portion 
of  the  diagram  reader. 

• Each  character  must  be  no  larger  than  4 mm  x 4 mm. 

• Characters  may  be  written  in  two  orientations:  left  to  right  horizontally  and  bot- 
tom to  top  vertically. 

• Diagram  symbols  must  be  at  least  1 mm  apart,  and  line  segments  must  be  at 
least  2 mm  apart. 

The  circuit  diagram  reader  implemented  by  Toshiba  is  a combination  of  custom  image  pro- 
cessing hardware  and  software.  The  image  input  device  is  a drum  scanner  which  scans  10 
lines/second  at  a resolution  of  10  lines/mm.  The  preprocessing,  component  separation,  and 
loop-symbol  detection  portions  of  the  diagram  reader  are  implemented  using  custom  wired- 
logic  circuits.  The  other  processes  are  performed  on  two  microprocessors  and  two  minicom- 
puters utilizing  pipeline  and  multiprocessing  techniques. 
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Input  by  Drum  Scanner 
* 


I 

Data  Transfer  to  CAD  System 

Figure  6-1  Toshiba  Diagram  Reader  Flow 

The  Toshiba  diagram  reader  has  been  tested  on  851  drawings  of  various  sizes,  and  79  gate- 
array  LSI’s  have  been  developed  from  drawings  read  by  the  diagram  reader.  The  diagram 
reader  can  read  an  A2-size  (420mm  x 594mm)  diagram  within  20  minutes.  On  average,  29 
error  corrections  or  rejection  modifications  are  required  for  each  A2-sized  diagram.  The  pro- 
cess of  reading  an  A2-sized  diagram  and  interactively  correcting  errors  or  identifying  reject- 
ed symbols  usually  takes  about  30  minutes  when  using  the  diagram  reader.  Interactively  en- 
tering a comparable  A2-sized  drawing  without  using  the  diagram  reader  usually  takes  about 
one  hour. 

A series  of  ten  A 1 -sized  (594mm  x 841mm)  and  A2-sized  diagrams  were  read  using  the  di- 
agram reader.  The  diagrams  were  prepared  using  the  established  drawing  rules  and  a char- 
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acter  template  to  improve  OCR.  Of  2,488  possible  symbols,  96.5  percent  of  the  symbols 
were  read  correctly,  and  2.8  percent  of  the  symbols  were  unrecognizable  by  the  diagram  read- 
er. Only  .7  percent  of  the  symbols  were  incorrectly  identified. 

The  Toshiba  reader  is  an  example  of  a successful  image  processing  application.  The  Toshiba 
diagram  reader  accurately  reads  logic -circuit  diagrams  without  imposing  a large  set  of  unrea- 
sonable drawing  rules.  The  diagram  reader  suffers  from  the  OCR  character  template,  which 
is  not  required  but  recommended,  and  the  amount  of  custom  hardware  used  to  implement  the 
diagram  reader.  The  NASA  solution  could  benefit  from  the  Toshiba  concept  of  melting  sever- 
al techniques  to  produce  a more  powerful  product. 
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7.0  Possible  Directions  Toward  A Solution 

In  light  of  the  concluded  survey  of  commercial  optical  scanning,  image  processing,  and  image 
recognition  systems,  several  scenarios  are  possible  that  would  improve  the  process  of  con- 
verting logic  drawings  to  software.  The  proposed  solution  should  meet  several  general 
guidelines: 

• The  solution  should  support  the  various  groups  at  NASA 

• The  solution  should  not  require  extensive  custom  hardware 

• The  solution  should  address  the  ultimate  goal  of  automatic  generation  of  exhaus- 
tive test  algorithms 

The  preferred  scenario  would  be  to  scan  in  the  logic  drawing  using  a scanner  which  is  con- 
nected to  either  a NASA  workstation  or  IBM  PC.  The  imported  image  file  would  then  be  pro- 
cessed to  improve  its  quality.  Image  recognition  software  would  then  process  the  enhanced 
image  file  producing  a logic  description  file.  This  description  file  would  contain  all  of  the  logic 
contained  in  the  original  logic  drawing  and  any  associated  text.  The  description  file  would 
then  be  converted  into  a Comp  Builder  (Computation  Development  Environment)  file  which 
would  be  batch  compiled.  The  final  result  would  be  an  installed  computation  ("comp")  and  a 
file  describing  an  exhaustive  method  for  testing  the  "comp."  Such  a system  does  not  com- 
mercially exist,  and  research  is  only  now  beginning  to  show  progress  toward  such  a solution. 

Several  intermediary  solutions  are  also  possible.  The  automation  path  that  might  be  taken  is 
to  scan  in  the  logic  design  using  a scanner  and  the  necessary  image  processing  associated 
with  it.  Then,  convert  the  raster  image  to  a vector  image  that  can  be  used  in  a CAD  system. 
Hopefully,  this  could  be  done  completely  by  a system  like  ScanPro  without  the  use  of  any 
overlay  package  like  CADOverlay  or  the  overlay  capabilities  of  VersaCAD.  This  solution 
would  definitely  require  human  interaction.  Existing  import  facilities  are  limited  in  their  abili- 
ty to  automatically  interpret  image  files.  The  CAD  design  could  then  be  saved  as  an  IGES  or 
DXF  file  (the  DXF  file  contains  more  meaning  associated  with  each  entity,  but  the  IGES  file 
format  is  more  of  an  industry  standard).  At  this  point,  the  logic  design  is  described  in  elec- 
tronic description  files.  Custom  software  would  then  interpret  the  description  files  and  pro- 
duce a Comp  Builder  file.  The  remaining  steps  in  the  solution  would  follow  the  first  solution. 

Another  intermediary  solution  would  be  to  use  computer  based  software  to  build  the  original 
logic  drawings.  In  this  way,  a description  file  would  be  produced  from  the  user’s  input  in- 
stead of  from  an  image  file.  NASA  and  its  various  groups  currently  use  a variety  of  software 
based  on  both  PCs  and  workstations  to  generate  the  logic  drawings.  The  solution  software 
must  operate  on  the  various  group’s  existing  hardware  and  gain  wide-spread  acceptance. 
This  solution  has  been  investigated  by  NASA,  and  a prototype  based  on  the  G2  Real-time 
AI  package  has  been  developed. 
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Apple  Computer,  Inc.  20525  Mariani  Ave.  Cupertino,  CA  95014  (408) 
996-1010 

Calera  Recognition  Systems,  Inc.  2500  Augustine  Drive  Santa 
Clara,  CA  95054  (408)  986-8006 

Chinon  America,  Inc.  660  Maple  Ave.  Torrence,  CA  90503  (213)  533- 
0274 

Concurrent  Computer  Corporation  4828  Loop  Central  Drive  Suite  550 
Houston,  TX  77081  (713) 

Hewlett-Packard  Co.,  Business  Computing  Systems  19091  Pruneridge 
Ave.  Cupertino,  CA  95014  (800)  752-0900 

Howtek  Inc.  21  Park  Avenue  Hudson,  NH  03051  (603)  882-5200 

Logitech,  Inc.  6505  Kaiser  Drive  Fremont,  CA  94555  (415)  795-8500 

Media  Cybernetics  (Dr.  Halo)  8484  Georgia  Avenue  Silver  Spring, 
MA  20901  (301)  495-3305 

Microsoft  Corporation  16011  NE  36th  Way  Box  97017  Redmond,  WA 
98073-9717 

Microteck  Lab,  Inc.  680  Knox  Street  Torrence,  CA  90502  (213)  515- 
3993 

Mitsubishi  Electronics  America  Inc.  Computer  Peripherals  Division 
991  Knox  Street  Torrance,  CA  900502  (213)  217-5732 

Sun  Microsystems,  Inc.  2550  Garcia  Ave  Mountain  View,  CA  94043 
(415)  960-1300 

Xerox  Imaging  Systems  Kurzweil  Division  185  Albany  St.  Cambridge, 
MA  02139  (617)  864-4700 

For  AutoCAD,  VersaCAD,  CADOverlay,  CAD/camera,  and  ScanPro:  See 
local  retailers  for  pricing  and  address  information. 


Page  25 


Image  Processing 


Bibliography 


9.0  Bibliography 


"All  About  Scanners:  Technology  Overview,"  DataPro,  May  1989. 

"Calera  Character  Recognition  Systems,"  DataPro,  May  1989. 

Catalyst  Fall  1989  Sparc  Edition,  Sun  Microsystems,  Inc. 

Fletcher,  LLoyd  ....  "A  Robust  Algorithm  for  Text  String  Separation  from  Mixed 
Text/Graphics  Images,"  IEEE  Transactions  on  Pattern  Analysis  and 
Machine  Intelligence,  Vol.  10,  No.  6,  Nov.  1988. 

Hearn,  Donald,  Computer  Graphics,  Prentice  Hall,  Inc.  Englewood  Cliffs,  NJ,  1986,  pp. 
2-26. 

"Hewlett-Packard  ScanJet  Plus,"  DataPro,  May  1989. 

"Kurzweil  Character  Recognition  Systems  (Xerox  Imaging  Systems),"  DataPro,  Oct. 
1988. 

"Microteck  Scanners,"  DataPro,  April  1989. 

Okazaki,  Akio  ....,  "An  Automatic  Circuit  Diagram  Reader  with  Loop-  Structure-Based 
Symbol  Recognition,"  IEEE  Transactions  on  Pattern  Analysis  and  Ma- 
chine Intelligence,  Volume  10,  Number  3,  May  1988. 

"Scanners  Build  A Better  Image,"  PC  Magazine,  Volume  8,  Number  6,  March  29, 1989. 

Smith,  Brad,  Initial  Graphics  Exchange  Specification  (IGE),  Version  3.0,  U.S.  Depart- 
ment of  Commerce,  National  Bureau  of  Standards,  National  Engineer- 
ing Laboratory,  Center  for  Manufacturing  Engineering,  Automated  Pro- 
duction Technology  Division,  Gaithersburg,  MD,  April  1986. 

Solutions  Sprint  1989,  Concurrent  Computer  Corporation. 


Page  26 


Image  Processing 


SOUTHWEST  RESEARCH  INSTITUTE 
Post  Office  Drawer  28510, 6220  Culebra  Road 
San  Antonio,  Texas  78228-0510 


FLIGHT  CERTIFIED  COMPILER 


NASA  Grant  No.  NAG  9-339 
SwRI  Project  No.  05-2768 


Prepared  by: 

Steven  W.  Dellenback,  Ph.D. 
Jeremiah  M.  Ratner 


Prepared  for: 
NASA 

Johnson  Space  Center 
Houston  TX  77058 


June  12,  1990 


Approved: 


Melvin  A.  Schrader,  Director 
Data  Systems  Science  and 
Technology  Department 


Table  of  Contents 


1.0  Introduction  1 

2.0  Flight  Certified  Software 2 


2.1  NASA  Flight  Certified  Software 

2.2  Flight  Certified  Software  Guidelines 

2.3  Language  Alternatives 

3.0  Language  Definition ........ ...................... 

3.1  Context-Free  Grammars 

3.2  Chomsky  Normal  Form 

3.3  Griebach  Normal  Form 

3.4  LR  Grammars 

3.5  Conclusion 

4.0  Language  Implementation.............................^................. 

4.1  Language  Specification 

4.2  Implementation  Alternatives 

4.2.1  Machine  Code  Generation 

4.2. 1.1  Advantages 

4.2. 1.1.1  Implementation  Simplicity 

4.2. 1.1. 2 Performance 

4.2. 1.2  Disadvantages 

4.2. 1.2.1  Language  Restrictions 


4.2. 1.2.2  Limited  Value  Added 10 

4.2.1.2.3  Error  Recovery 10 

4.2.2  Table  Driven  Generation 10 

4.2.2. 1 Advantages 10 

4.2.2. 1.1  Error  Recovery 10 

4.2.2. 1.2  Semantic  Analysis 10 

4.2.2. 1.3  Interactive  Debugging 11 

4.2.2. 1.4  Portability 11 

4.2.2.2  Disadvantages 11 

4.2.2.2.1  Performance 11 

4.3  Implementation  Considerations 1 1 

4.4  Conclusions 

5.0  Verification 

5.1  Grammar  Specification  Verification 13 

5.2  Language  Implementation  Verification 13 


Page  i 


Flight  Certified  Compiler 


VOVOVO'OVOOOOOOO  OC  vl  vl  On  C7\  N)  N) 


6.0  Conclusions 14 

7.0  Bibliography 15 


Page  ii 


Flight  Certified  Compiler 


Introduction 


1.0  Introduction 

Development  of  flight  software  at  NASA  is  currently  a tedious  and  time  consuming  process. 
One  of  the  more  difficult  (and  nebulous)  phases  of  the  development  cycle  is  the  certification 
phase.  During  this  phase,  a decision  is  made  as  to  whether  the  software  can  be  used  during 
flight  operations  (i.e.,  the  software  is  deemed  "flight  certified"). 

The  typical  operating  scenario  at  a console  during  flight  operations  at  NASA  - Johnson 
Space  Center  (JSC)  involves  a flight  controller  interpreting  the  real-time  data  screens  down- 
loaded from  the  vehicle.  With  recent  advances  in  graphics  technology,  an  effort  is  underway 
to  provide  the  flight  controller  with  software  which  aids  in  the  understanding/interpretation  of 
the  data. 

A major  restriction  in  the  current  operations  scenario  at  NASA-JSC  is  that  programs  must 
be  (typically)  developed  by  trained  programmers.  This  approach  has  limitations  because  the 
flight  controllers  must  convey  to  the  programmer  what  actions  the  software  must  perform. 
Many  times  programmers  do  not  correctly  interpret  the  requirements  given  to  them  and  de- 
velop software  which  is  not  exactly  what  the  requestor  had  envisioned.  This  limitation  is 
being  addressed  through  the  development  of  simplified  programming  languages/interfaces 
(e.g..  User  Interface  Language  (UIL),  Computation  Development  Environment  (Comp  Build- 
er or  CODE),  etc.)  which  will  allow  a nonprogrammer  to  develop  application  programs  in  a 
controlled  environment.  While  these  "user  friendly"  languages  will  provide  a simplified  pro- 
gramming environment,  they  still  will  have  the  restriction  that  all  coding  must  be  performed 
before  flight  operations  unless  some  automated  certification  tool  is  developed. 

This  paper  discusses  techniques  which,  if  implemented,  could  allow  a programming  language 
(if  the  language  is  carefully  designed)  to  generate  programs  during  flight  operations.  The 
goal  of  this  paper  is  to  discuss  the  concepts  and  techniques  that  would  allow  the  implementa- 
tion of  * a language  which  would  assure  that  a user’s  program  is  reproducible  and  safe 
(defined  as  behaving  as  implemented).  The  tool  described  in  this  paper  is  termed  "flight  cer- 
tified compiler,"  a term  which  implies  that  the  tool  would  develop  flight  certified  software 
from  a noncertified  software  source  code.  Criteria  for  what  would  constitute  a "flight  certified 
compiler"  are  discussed  in  Section  2.0  of  this  document. 

The  term  compiler  is  used  throughout  this  paper  to  discuss  a software  tool  which  will  convert 
a source  language  into  a target  language  (not  necessarily  machine  language).  The  word  com- 
piler and  translator  can  be  used  interchangeably  throughout  this  document 

The  flight  certified  compiler  concepts  discussed  within  this  paper  can  be  applied  to  a multi- 
tude of  target  environments.  While  the  original  impetus  for  this  paper  was  based  on  MCC 
workstations,  the  compiler  concepts  discussed  are  generic  and  are  not  based  on  a particular 
operating  system  or  hardware  platform.  As  a result,  the  concepts  presented  in  this  paper 
can  apply  to  mini-computers  as  well  as  mainframes.  A worthwhile  flight  certified  compiler 
should  actually  operate  in  all  computing  environments  at  NASA  so  that  users  are  not  re- 
stricted to  a particular  operational  environment. 
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2.0  Flight  Certified  Software 

Any  software  which  is  run  in  the  Missions  Operations  Computer  (MOC)  during  flight  opera- 
tions must  be  "flight  certified"  Flight  certified  software,  in  its  traditional  sense,  is  defined  as 
software  which  has  been  reviewed  by  appropriate  NASA  personnel  and  upon  execution,  will 
generate  correct  results  and  provide  reproducible  results  (given  similar  input). 

2.1  NASA  Flight  Certified  Software 

The  NASA  Flight  Control  Operations  Handbook  does  not  elaborate  on  how  a piece  of  soft- 
ware becomes  flight  certified;  rather,  the  handbook  leaves  the  process  to  the  discretion  of 
each  Division  of  NASA. 

As  a result,  for  the  purposes  of  this  paper  and  research  study,  the  following  section  will  es- 
tablish guidelines  for  what  constitutes  a flight  certified  compiler. 

2.2  Flight  Certified  Software  Guidelines 

The  following  criteria  are  recommended  as  the  necessary  and  sufficient  qualifications  to  term 
a compiler  to  be  flight  certified: 


The  target  language  generated  must  be  reproducible  (i.e.,  the  same  input  WILL 
ALWAYS  generate  the  same  output). 

The  target  language,  when  executed,  will  cause  no  abnormal  events  to  occur  with- 
in the  host  computer  or  to  remote  computers  attached  via  a Local  Area  Network 
(LAN). 

No  combination  of  source  data  structures/statements  shall  cause  a program  to 
generate  incorrect  results  (i.e.,  the  program  will  ALWAYS  compute  as  directed 
by  the  user). 


In  order  to  achieve  each  of  the  above  criteria,  certain  operations  must  be  performed  to  assure 
that  the  grammar  behaves  as  desired.  The  remainder  of  this  paper  discusses  techniques  and 
implementation  strategies  which  can  be  applied  in  order  to  develop  the  desired  flight  certified 
compiler. 

2.3  Language  Alternatives 

Over  the  last  five  years,  several  universal  programming  languages  have  been  defined  which 
have  potential  uses  within  the  NASA-JSC  MCC  environment.  The  most  notable  is  the  User 
Interface  Language  (UIL)  which  is  an  object  oriented  approach  to  software  development. 
The  reader  is  referred  to  the  UIL  Language  Specification  for  a more  detailed  discussion. 

Another  language  specification  under  development  by  NASA-JSC  is  the  Mission  Operations 
Applications  Language  (MOAL)  which  is  a procedural  oriented  language  to  be  used  in  the 
development  of  simple  computational  algorithms. 

While  the  goal  of  this  paper  is  not  to  establish  a particular  language  for  the  flight  certified 
compiler,  the  prospective  language  should  contain  the  following  classes  of  constructs: 
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• Named,  strongly  typed  variables/constants 

• Assignment  operators 

• Loop  constructs  (pre-  and  post-conditional  loops) 

• Conditional  constructs  (single,  and  multi-case  selection) 

• Modularization  constructs  (e.g.,  functions) 

• Data  acquisition  constructs  (provide  a mechanism  for  programs  to  efficiently  and 
reliably  acquire  LAN  data) 

• Input/output  primitives  (for  retrieval  and  display  of  data) 


The  reader  will  note  that  most  of  the  above  constructs  exist  in  many  higher  order  languages 
currently  implemented.  The  goal  in  developing  the  flight  certified  compiler  is  to  provide  a tar- 
get language  which  would  allow  users  (nonprogrammers)  to  develop  their  own  software  in  a 
highly  structured  environment  As  a result  the  remainder  of  this  paper  will  focus  not  on  the 
specific  constructs  of  the  language;  rather,  the  paper  will  focus  on  what  techniques  need  to  be 
utilized  to  implement  a language  and  allow  the  resulting  tool  to  be  flight  certified. 
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3.0  Language  Definition 

The  following  section  will  provide  the  ground  work  for  the  establishment  of  a flight  certified 
compiler.  The  following  sections  discuss  various  theoretical  concepts  associated  with  formal 
language  theory.  The  concepts  must  be  understood  and  applied  to  a flight  certified  language 
specification  before  a flight  certified  compiler  can  be  developed. 

The  reader  must  understand  the  program  generation  process  in  order  to  be  convinced  that  a 
flight  certified  compiler  is  an  achievable  goal.  Simply,  the  compilation  (or  interpretive)  ap- 
proach to  generating  an  executable  program  can  be  broken  into  the  following  steps: 

• Scan  the  input  string  provided  by  the  user  (i.e.,  the  program)  into  tokens.  Tokens 
are  the  smallest  recognizable  element  of  the  grammar  being  implemented;  typical- 
ly tokens  are  operators  or  identifiers  which  are  either  organizationally  or  white 
space  separated. 

• The  tokens  scanned  are  passed  through  a parser  to  determine  if  the  tokens  repre- 
sent a sentence  in  the  target  grammar.  This  is  the  syntax  checking  portion  of  the 
compilation  process.  The  parser  bases  its  syntactic  rules  on  the  way  in  which  the 
grammar  is  specified  (i.e.,  all  the  syntax  rules  are  inherent  from  the  grammar  defi- 
nition). 

• Once  the  string  of  symbols  is  verified  to  be  syntactically  correct,  target  code  is 
generated  for  the  provided  input  language. 

• After  target  code  is  generated,  binding  of  external  modules  and  variables  is  per- 
formed so  that  a complete  and  "executable"  module  is  generated.  This  completed 
module  may  be  in  the  specific  form  of  absolute  machine  language  or  could  be  as 
general  as  a table  driven  environment  which  requires  an  interpreter  to  assist  dur- 
ing execution  time. 


The  first  step  in  implementing  a flight  certified  compiler  is  having  the  correct  definition  for  the 
language  to  be  implemented.  The  language  to  be  implemented  must  be  unambiguous  (which 
will  assure  the  compiler  of  a single  parse  tree).  The  specification  of  a language  syntax  is  not 
an  obvious  and  trivial  action  to  perform.  It  is  possible  to  specify  a language  which  does  not 
provide  unique  parse  trees  as  well  as  creating  a syntax  which  never  parses  (i.e.,  the  parsing 
process  will  never  complete).  Both  of  these  situations  are  not  desirable  within  the  frame- 
work of  a flight  certified  compiler. 

The  following  sections  discuss  techniques  which  can  be  utilized  to  demonstrate  that  the  tar- 
get language  is  indeed  unambiguous.  The  discussion  begins  with  brief  descriptions  of  formal 
notations  available  to  represent  the  language  to  be  implemented  within  the  flight  certified 
compiler. 

3.1  Context-Free  Grammars 

A context-free  grammar  (CFG)  is  notation  for  specifying  the  syntax  of  a language.  The  hier- 
archial  structure  of  the  language  is  described  in  the  CFG  by  a set  of  terminals,  basic  symbols 
from  which  the  strings  of  the  language  are  formed,  and  a set  of  non-terminals,  or  variables 
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representing  sequences  of  terminals.  Formally,  a CFG  is  denoted  with  a four-tuple  (V,  T,  P, 
S)  where: 


• V is  a finite  set  of  nonterminals  (variables), 

• T is  a finite  set  of  terminals  (T  is  disjoint  from  V), 

• P is  the  finite  set  of  production  rules.  All  productions  have  a nonterminal  on  the 
left  hand  side  with  a combination  of  terminals  and  nonterminals  on  the  right  hand 
side,  and 

• S is  the  start  symbol  and  is  a member  of  the  set  of  non-terminals. 

CFGs  are  characterized  by  always  having  exactly  one  nonterminal  on  the  left  hand  side  of  a 
production.  Consider  the  following  example  of  a CFG: 

<sentence>::=<noun>  <verb> 

<noun>::=boy  I girl 
<verb>::= walks  I talks 


The  above  grammar  would  allow  the  generation  of  the  following  strings: 


boy  walks 
boy  talks 
girl  walks 
girl  talks 


The  CFG  notation  is  important  to  the  flight  certified  compiler  because  using  a CFG,  it  is  pos- 
sible to  programmatically  determine  if  a given  string  of  input  symbols  (i.e.,  tokens  generated 
from  the  program  under  review)  constitutes  a language  within  the  definition  of  the  CFG. 

It  is  possible  to  programmatically  determine  if  a set  of  input  symbols  represents  an  allowable 
string  by  the  use  of  a derivation  tree.  A derivation  is  rooted  at  the  start  symbol  and  repre- 
sents the  hieraichial  structure  of  the  production  rules  - each  leaf  represents  a terminal  The 
tree  is  generated  by  matching  input  symbols  to  the  left  side  of  a production  and  creating  a 
higher  level  node  representing  the  right  side.  This  process  stops  when  the  start  symbol  is 
generated. 

Depending  on  the  basic  structure  of  the  desired  language,  it  is  possible  to  develop  a CFG 
which  has  productions  called  "epsilon  productions."  Epsilon  productions  are  productions 
which,  when  applied,  do  not  reduce  the  input  symbol  set  (i.e.,  we  generate  another  layer  in 
the  derivation  tree  but  do  not  reduce  the  input  set).  Epsilon  moves  occur  naturally  in  many 
CFGs,  but  their  inclusion  does  not  assure  us  of  always  reducing  the  input  set 
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During  application  of  the  grammar  against  a string  of  input  symbols,  it  is  possible  within  the 
definition  of  a CFG  to  have  multiple  derivations.  If  the  derivation  tree  is  applied  starting  at 
the  left  end  of  the  input  symbols,  a left-most  derivation  tree  is  generated.  Similarly,  if  the 
derivation  tree  is  generated  by  examining  the  right-most  of  the  input  symbols  first,  a right- 
most derivation  tree  is  generated.  If  the  two  derivations  are  not  equivalent,  we  have  an  am- 
biguous grammar,  that  is,  two  paths  representing  a single  string.  Since  it  is  not  possible  to 
determine  programmatically  which  path  was  intended  (i.e.,  by  the  programmer),  an  ambigu- 
ous grammar  does  not  allow  for  certifiable  software  translation. 

As  stated  previously,  in  order  to  develop  a flight  certified  compiler,  we  must  have  grammar 
that  is  unambiguous.  CFGs  have  the  property  that  they  will  allow  for  ambiguities  within  the 
grammar  specification.  The  following  section  discusses  another  grammar  form  which  pro- 
vides us  more  of  the  basic  utility  required  to  implement  a flight  certified  compiler. 

3.2  Chomsky  Normal  Form 

Chomsky  Normal  Form  (CNF)  is  any  CFG  without  epsilon  moves  where  the  productions  al- 
ways have  only  either  nonterminals  on  the  right  hand  side  or  only  a single  terminal 
Algorithms  exist  which  will  allow  the  conversion  of  a CFG  to  CNF.  The  motivation  to  con- 
vert from  a CFG  to  a CNF  is  yet  another  notational  form,  Griebach  Normal  Form,  which 
requires  that  we  have  a CFG  with  no  epsilon  moves.  Epsilon  moves  are  generated  when  a 
production  is  applied  but  the  input  set  is  not  reduced  by  the  new  production  (with  equal  num- 
ber of  terminals  and  nonterminals). 

An  example  grammar  in  CNF  form  would  be: 

S ::  = BA  I a 
B ::  = BB  I b 
A ::  = a 


with  the  set  of  nonterminals  being  {S,  A,  B),  the  set  of  terminals  being  {a,  b),  and  the  start 
symbol  being  S. 

3.3  Griebach  Normal  Form 

Griebach  Normal  Form  (GNF)  is  any  grammar  which  has  no  epsilon  moves,  and  all  produc- 
tions start  with  a terminal  symbol  and  are  followed  by  the  number  of  (possibly  zero) 
nonterminal  symbols.  The  advantage  to  having  a grammar  in  GNF  form  is  that  the  input  set 
reduces  with  every  application  of  a production  which  will  assure  that  the  parsing  process  will 
terminate. 

An  example  grammar  in  GNF  form  would  be: 

S ::  = aAB 
A ::  = bB 
B ::  = c 
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with  the  set  of  nonterminals  being  {S,  A,  B),  the  set  of  terminals  being  (a,  b,  c},  and  the 
start  symbol  S. 

Grammars  in  GNF  form  can  be  represented  by  deterministic  and  nondeteiministic  pushdown 
automata.  An  automaton  is  a finite  state  machine  which  can  be  used  to  represent  a formal 
grammar  definition.  Automata  are  useful  in  this  discussion  because  a variety  of  theorems 
and  collaries  exist  which  deal  with  the  properties  associated  with  automata  and  prove  cor- 
rect the  process  by  which  automata  recognizes  strings  from  a GNF  grammar  and  reject  all 
others. 

3.4  LR  Grammars 

The  class  of  grammars  known  as  LR  grammars  is  a restricted  notation  of  a CFG.  LR  gram- 
mar is  defined  as  a CFG  with  the  annotation  that  the  start  symbol  does  not  appear  on  the 
rig;ht  hand  side  of  any  production  and  that  a set  of  nonterminals  in  each  production  can  be 
uniquely  generated  from  all  productions  of  the  grammar. 

The  major  feature  of  an  LR  grammar  to  this  paper  is  that  an  LR  grammar  is  always  unambig- 
uous. Algorithms  exist  which  can  convert  a deterministic  push  down  to  an  LR  grammar 
(refer  to  the  bibliography  for  literature  references). 

3.5  Conclusion 

Given  a prospective  grammar  to  be  used  for  flight  operations,  the  language  can  be  analyzed 
and  manipulated  in  order  to  structure  the  grammar  in  the  forms  previously  discussed.  Once 
the  grammar  is  in  one  of  the  forms,  certain  assertions  can  be  made  about  the  grammar,  for  ex- 
ample, that  the  grammar  will  absolutely  produce  reliable  and  reproducible  results. 

The  following  chapter  of  this  document  will  discuss  implementation  techniques  which  if  ap- 
plied with  these  grammar  constructs,  will  provide  an  environment  in  which  flight  certified 
code  could  be  generated. 
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4.0  Language  Implementation 


The  implementation  of  the  flight  certified  compiler  can  be  performed  in  a variety  of  computing 
environments.  The  certification  required  of  the  flight  certified  compiler  falls  into  two  major  ar- 
eas: 

* Language  Specification:  The  language  should  be  specified  in  a BNF  notation,  and 
the  notation  should  be  carefully  reviewed  before  the  compiler  implementation 
phase  begins.  The  language  should  be  reviewed  for  functional  completeness  by 
the  user  community.  After  review  by  the  user  community,  the  language  should  be 
scrutinized  to  assure  that  all  ambiguities  and  useless  productions  are  eliminated 
from  the  language  definition. 

• Compiler  Implementation:  The  compiler  which  implements  the  flight  certified  lan- 
guage should  be  a flexible  tool  implemented  to  allow  the  language  to  be  entered  in 
a tabular  fashion  (i.e.,  the  language  constructs  are  specified  in  a BNF  style  so 
that  language  modifications  are  easily  accomplished).  The  design  would  be  to  ac- 
cept the  language  specification  in  a BNF  form  and  apply  the  productions  supplied. 


Several  different  implementation  techniques  exist  This  paper  will  present  two  different  im- 
plementation techniques  which  would  be  applicable  to  the  compiler.  The  following  sections 
discuss  implementation  requirements  and  suggested  strategies. 

4.1  Language  Specification 

The  language  to  be  implemented  by  the  flight  certified  compiler  can  be  a dynamic  language; 
that  is,  the  flight  certified  compiler  should  be  developed  to  accept  the  flight  certified  language 
in  BNF  form.  By  implementing  the  flight  certified  compiler  in  a table  driven  fashion,  the  lan- 
guage can  be  modified  without  having  to  modify  the  software  which  implemented  the 
compiler.  This  implementation  strategy  will  provide  a flexible  environment  which  can  be 
changed  as  needs  dictate  without  forcing  the  complete  recertification  of  the  compiler. 

4.2  Implementation  Alternatives 

Several  approaches  to  implementing  the  flight  certified  compiler  are  available.  The  language 
could  be  executed  either  in  a traditional  "compiled"  mode  (where  the  source  program  is  trans- 
lated into  machine  instructions)  or  the  language  could  be  executed  in  a "translated  mode" 
(where  each  statement  is  interpreted  at  run-time).  Hach  of  the  alternatives  has  advantages 
and  disadvantages  which  are  discussed  in  the  following  sections.  If  funding  allows,  there 
would  be  merit  in  prototyping  both  approaches  and  contrasting  them  in  order  to  evaluate 
which  provides  the  better  solution. 

4.2.1  Machine  Code  Generation 

The  first  alternative  for  implementation  is  to  compile  the  source  language  into  machine  lan- 
guage. Such  an  approach  causes  the  compiler  developed  to  become  machine 
architecture/operating  system  dependent.  In  an  effort  to  minimize  the  dependency  risks,  the 
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compiler  may  actually  be  developed  to  translate  from  the  source  language  to  a language  al- 
ready native  to  the  host  (hopefully  the  target  language  will  be  portable  across  host 
computers). 

4.2.L1  Advantages 

Translating  the  source  code  to  machine  code  (either  directly  or  through  the  use  of  some  inter- 
mediate high-level  language)  has  several  distinct  advantages.  These  advantages  are 
discussed  in  the  following  sections. 

4.2.1.1.1  Implementation  Simplicity 

The  compilation  process  from  a source  language  to  a target  machine  language  is  both  mature 
and  well  understood.  The  techniques  that  would  be  required  to  implement  the  language  could 
be  based  on  proven  software  concepts. 

The  approach  of  translating  from  one  language  to  another  is  a well  understood  and  applied 
principle.  Essentially,  the  compiler  has  a lookup  table  which  maps  symbols  between  the  two 
languages.  Once  the  original  source  program  is  converted  to  a target  program  the  target  pro- 
gram is  compiled  using  an  existing  compiler.  This  approach  places  the  overhead  on  the  flight 
certified  compiler  to  translate  the  source  language  to  a target  language  before  actually  com- 
piling the  program. 

4.2.1.1.2  Performance 

No  matter  what  approach  is  utilized  to  implement  the  flight  certified  compiler,  a performance 
penalty  will  be  incurred  to  translate  the  original  source  language  into  some  target  language. 
The  approach  of  taking  the  original  source  language  to  machine  language  will  provide  an  exe- 
cution speed  enhancement  over  any  other  alternative.  Gearly,  a target  program  in  the  form 
of  machine  code  will  execute  optimally. 

The  resulting  machine  code  should  be  optimized  to  execute  in  the  native  implementation  en- 
vironment so  that  the  program  will  operate  at  peak  efficiency. 

4.2.1.2  Disadvantages 

The  machine  code  generation  implementation  strategy  has  several  drawbacks  which  need  to 
be  evaluated.  These  drawbacks  are  discussed  in  the  following  sections. 

4.2.1.2.1  Language  Restrictions 

A disadvantage  to  the  direct  machine  code  generation  process  is  that  the  compiler  imple- 
mented becomes  hardware/operating  system  dependent  As  new  versions  of  the  operating 
system,  compiler’s  native  language  (i.e.,  the  implementing  language  of  the  compiler)  and 
support  hardware  become  available,  the  flight  certified  compiler  would  have  to  be  carefully 
retested  to  assure  that  functionality  is  the  same. 

A disadvantage  to  the  translation  approach  to  another  high  order  language  is  that  the  host 
language  is  limited  to  the  functionality  that  exists  within  the  target  language.  That  is,  the 
statements  of  the  user  input  language  (the  source)  will  need  to  closely  parallel  program 
structures  available  within  the  target  language. 
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4.2.1.23  Limited  Value  Added 

If  the  desired  implementation  strategy  was  to  simply  translate  the  source  language  into  a 
host  defined  language  (and  then  use  a COTS  compiler  to  generate  machine  code),  an  argu- 
ment would  exist  as  to  why  not  have  the  user  use  the  COTS  language  to  begin  with.  Such 
an  argument  would  have  merit  because  if  we  are  only  "front-ending"  a language,  this  can  typ- 
ically be  performed  through  the  use  of  programming  macros.  A front-end  editor  could  be 
developed  which  would  provide  a structured  program. 

4.2.1.23  Error  Recovery 

A distinct  disadvantage  of  the  machine  code  generation  approach  is  the  uncertainty  of  what 
the  execution  environment  will  do  in  the  event  of  catastrophic  program  failure.  In  the  event 
that  a catastrophic  error  occurs,  determining  what  actions  should  be  performed  is  not  always 
possible.  In  some  instances,  a catastrophic  failure  will  abort  the  entire  computer  or,  in  many 
cases,  at  least  the  controlling  software. 

4.22  Table  Driven  Generation 

An  alternative  approach  would  be  to  utilize  a table  driven  execution  environment.  The  table 
driven  approach  is  a variant  of  an  interpreted  language,  the  primary  difference  being  that  in  a 
table  driven  approach,  all  syntax  analysis  and  variable  binding  is  done  before  a program  is 
"termed  executable."  However,  in  a table  driven  approach,  the  source  program  is  represent- 
ed in  an  internal  table  structure  (similar  to  a parse  tree),  rather  than  machine  code,  and  an 
execution  executive  exists  which  interprets  the  table  entries  during  run-time  in  order  to  con- 
trol the  execution  of  the  program. 

Table-driven  execution  environments  are  not  traditionally  utilized  in  the  implementation  of 
typical  higher  order  languages;  rather,  they  are  a useful  implementation  technique  used  with 
object  oriented  languages.  They  provide 

the  capability  to  perform  upfront  syntax  analysis  as  well  as  variable  location  binding  but  do 
not  perform  the  actual  binding  until  run-time. 

4.23.1  Advantages 

The  table  driven  approach  to  program  execution  has  several  advantages  over  the  traditional 
generation  of  machine  code.  The  advantages  over  the  traditional  generation  of  machine  lan- 
guage are  discussed  in  the  following  sections. 

4.23.1.1  Error  Recovery 

In  a table  driven  environment,  the  execution  environment  typically  will  perform  many  bound- 
ary analysis  operations  before  a segment  of  code  is  allowed  to  execute.  The  execution 
environment  should  not  allow  a program  to  get  into  a state  where  abnormal  termination 
would  occur,  rather,  the  environment  would  alert  the  user  and  prohibit  the  code  from  entering 
an  "unsafe"  state. 

4.23.13  Semantic  Analysis 

One  of  the  greater  dilemmas  facing  the  development  of  a flight  certified  compiler  is  the  one  of 
"How  can  I make  the  code  do  what  I want  rather  than  what  I told  it  to  do."  Of  course,  this  di- 
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lemma  has  plagued  all  language  implementors  for  years.  The  table  driven  approach  to 
implementing  the  flight  certified  compiler  provides  some  framework  to  provide  semantic  anal- 
ysis of  the  code  before  it  is  actually  executed.  In  a traditional  compiler,  where  machine  code 
is  generated  from  a source  language,  the  resulting  machine  code  should  perform  exactly  what 
the  programmer  requested,  no  more  or  no  less.  Such  an  environment  is  not  conducive  to  run 
time  semantic  analysis  of  a program. 

The  execution  environment  can  be  made  "intelligent"  with  imposed  operational  guidelines 
which  are  continuously  reviewed  before  actual  execution  of  a statement  begins.  The  execu- 
tion environment  would  necessarily  be  slowed  by  the  introduction  of  "computational  rules" 
but  the  concept  would  provide  a mechanism  for  NASA  to  place  some  type  of  software  checks 
without  actually  having  to  modify  a piece  of  source  code  explicitly. 

4.2 .2.1.3  Interactive  Debugging 

The  table-dnven  approach  provides  the  capabilities  to  provide  a rich  debugging  environment 
The  execution  of  the  software  can  be  closely  associated  with  specific  source  commands.  As 
a result,  providing  informative  diagnostics  to  the  user  is  assured,  as  well  as  more  accurate 
diagnostics. 

4.2.2. 1.4  Portability 

Once  a program  has  been  converted  to  a table  notation,  the  table  can  be  ported  to  a variety  of 
execution  environments  (e.g.,  UNIX,  MVS,  VM)  and  executed.  This  will  allow  flexibility  for 
the  development  environment  to  utilize  a variety  of  computer  platforms  and  move  code  from 
machine  to  machine  transparently. 

4.2.2.2  Disadvantages 

The  table  driven  approach  also  has  several  disadvantages  when  compared  to  the  machine 
code  generation  approach.  These  disadvantages  are  discussed  in  the  following  sections. 

4.2.2.2.1  Performance 

Since  the  actual  execution  environment  is  essentially  an  interpretive  environment,  execution 
performance  will  not  match  that  of  the  machine  code  environment  If  a significant  number  of 
"operational  rules"  are  embedded  into  the  execution  environment,  execution  performance  will 
degrade.  A careful  balance  of  necessary  "operational  rules"  will  need  to  be  applied  against 
performance  requirements  to  determine  the  optimal  mix 

4.3  Implementation  Considerations 

No  matter  which  approach  is  to  be  utilized  to  implement  the  compiler,  a good  and  robust 
parser  will  need  to  be  developed  which  can  provide  a complete  syntax  analysis  of  the  source 
code.  Since  the  flight  certified  compiler  is  targeted  for  a nonprogramming  user,  the  error  re- 
porting from  the  syntax  analysis  phase  should  be  robust  and  helpful.  The  parser  should 
pinpoint  particular  tokens  (not  simply  lines  of  code)  which  cause  the  anomaly. 

Additionally,  since  the  trend  in  computer  software  technology  is  to  lean  toward  CASE 
(Computer  Aided  Software  Engineering),  the  flight  certified  compiler  should  be  developed  in 
conjunction  with  a friendly  and  robust  user  interface  which  provides  a simplified  programming 
approach.  Such  interfaces  exist  within  various  computing  environments  and  have  proven  to 
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be  very  useful  tools.  A design  decision  will  have  to  be  made  as  to  whether  or  not  dynamix 
syntax  analysis  should  be  performed  (syntax  analysis  as  the  program  is  entered). 

The  working  environment  developed  for  the  flight  certified  compiler  should  be  a highly  struc- 
tured and  restricted  environment  (i.e.,  the  user  will  not  be  able  to  call  a module  previously 
defined  in  another  language)  so  that  the  goal  of  developing  a safe  and  reproducible  environ- 
ment can  be  achieved.  While  the  final  environment  may  not  be  appealing  to  accomplished 
high  level  programmers,  it  will  be  an  environment  which  would  allow  novice  programmers 
(although  operationally  proficient)  the  ability  to  rapidly  develop  usable  software  programs. 

4.4  Conclusions 

In  order  to  develop  a tool  which  provides  maximum  flexibility  and  feedback  to  the  user,  the 
desired  approach  would  be  to  use  a table  driven  execution  environment  While  such  an  envi- 
ronment imposes  a small  execution  penalty,  the  benefits  of  dynamic  semantic  analysis  and 
error  recovery  far  out  weigh  the  performance  impact  Additionally,  a table  driven  approach  to 
implementation  would  provide  a tool  with  maximum  flexibility,  which  is  necessary  due  to  the 
dynamic  software  development  environment  present  at  NASA. 
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5.0  Verification 

The  most  complicated  and  involved  phase  of  the  flight  certified  compiler  is  that  of  verifica- 
tion. The  verification  of  the  compiler  will  be  intense  and  expensive  to  perform;  however, 
having  the  availability  of  the  flight  certified  compiler  will  be  cost  effective  in  the  long  run,  be- 
cause each  individually  developed  program  will  not  have  to  be  certified  (i.e.,  the  price  of 
verification  is  being  paid  for  up  front  rather  than  over  time). 

5.1  Grammar  Specification  Verification 

The  first  major  step  of  the  certification  process  would  be  to  certify  that  the  grammar  devel- 
oped is  unambiguous  in  nature.  The  grammar  has  to  be  implemented  in  a fashion  that  allows 
all  flight  certified  criteria  mentioned  in  section  2.2  to  be  met 

The  grammar  which  is  decreed  to  be  the  final  language  to  be  implemented  will  need  to  be  rig- 
orously reviewed  in  order  to  assure  that  no  ambiguities,  recursive  definitions  and  statements 
impossible  to  realize  exist  within  the  grammar  specification.  This  process  can  be  performed 
by  defining  the  language  utilizing  traditional  BNF  specification  techniques  and  then  determin- 
ing if  the  language  is  an  LR  grammar.  If  so,  the  grammar  specification  will  meet  the  criteria 
that  the  same  input  always  generates  the  same  output  (no  ambiguous  interpretation  of  the 
input  data  stream). 

5.2  Language  Implementation  Verification 

The  most  difficult  phase  in  the  development  of  the  flight  certified  compiler  is  the  actual  verifi- 
cation that  the  implementation  is  complete  and  not  suspect  to  generating  erroneous  results. 

The  testing  of  the  resulting  flight  certified  compiler  needs  to  be  through  a good  demonstration 
of  software  metrics.  A rigorous  test  plan  will  need  to  be  developed  which  is  capable  of  per- 
formingt  extensive  corner  case  analysis  of  each  construct  associated  with  the  flight  certified 
language.  Utilizing  existing  technology,  the  testing  process  will  not  be  highly  automated. 
While  it  is  possible  to  utilize  a computer  in  assisting  with  verifying  that  all  possible  comer 
cases  are  tested,  a human  being  will  be  required  to  assure  that  the  translation  from  specifica- 
tion to  actual  execution  was  performed  correctly. 

It  should  be  noted  that  implementation  verification  only  demonstrates  that  the  language  be- 
haves as  designed,  it  does  not  provide  assurances  that  user  developed  programs  are 
correct.  While  this  comment  may  externally  seem  to  minimize  the  usefulness  of  the  flight 
certified  compiler,  it  is  actually  a strong  statement  in  support;  that  is,  if  the  language  is  de- 
signed with  constructs  that  will  not  allow  a user  to  develop  applications  that  will  abnormally 
effect  the  system,  we  are  assured  that  all  programs  written  perform  exactly  what  the  user  di- 
rected it  to  do  (i.e.,  the  program  can  be  proven  correct). 
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6.0  Conclusions 

The  flexibility  that  a flight  certified  compiler  would  provide  NASA  is  worth  the  effort  of  con- 
tinued research.  Automating  the  software  certification  process  will  simplify  the  software 
development  process  and  will  simultaneously  allow  programs  to  be  developed  rapidly  as  the 
need  arises.  Providing  a flight  controller  with  the  capability  to  efficiendy  and  reliably  gener- 
ate programs  would  significandy  reduce  the  typical  program  development  costs  which  are 
cuirendy  incurred.  Additionally,  the  functionality  lost  when  a flight  controller  "translates"  re- 
quirements to  a programmer  would  be  minimized. 

Additionally,  as  the  Space  Station  becomes  a reality,  the  practice  of  having  all  software  com- 
pleted and  certified  prior  to  flight  will  become  difficult  In  order  for  the  ground  systems  to 
support  multi-year  flights,  they  must  be  provided  with  the  flexibility  to  generate  programs  as 
situations  require. 

The  development  of  a flight  certified  compiler  should  be  a task  which  will  not  push  technology 
to  any  unknown  limits;  the  development  would  primarily  be  the  application  of  well  understood 
language  and  compiler  techniques.  The  major  limitation  of  the  flight  certified  compiler  is  that 
the  compiler  can  only  verify  the  syntax  of  the  program  and  assure  that  the  target  code  gener- 
ated will  not  adversely  effect  the  performance  of  the  host  computer. 

The  semantic  implication  of  the  program  cannot  be  controlled  programmatically;  therefore,  if 
an  operator  devises  a program  that  computes  an  erroneous  result,  the  flight  certified  compil- 
er will  generate  code  that  reflects  that  design.  However,  with  the  introduction  of  an 
intelligent  execution  environment,  partial  semantic  analysis  of  a program  could  be  performed 
in  an  effort  to  reduce  the  incidence  of  semantic  errors. 
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Purpose:  If  the  choice  is  to  create  then  all  of  the  files 
associated  with  a group  are  written  to  a formatted 
floppy. 

CodeGroups/GroupName/ * 

AMSupport /GroupName .dat 

If  the  choice  is  to  read,  then  first  the  algo_names.dat 
file  is  checked  to  see  if  that  group  already  exists. 

If  it  exists  the  user  is  asked  if  they  want  to  continue. 

If  it  doesn't  exist,  then  it  is  added  to  the  algo_names.dat 
•file  and  the  all  of  the  files  are  read  into  their  directories. 

If  the  choice  is  to  list,  the  files  on  the  floppy  are  listed 
in  the  work  area. 

Designer:  Terri  Murphy 

Programmer:  Terri  Murphy 

Date:  11/87 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by:  Terri  Murphy 

Reasons  for  Revision:  Added  capability  for  formatting  a floppy 
and  aborting.  12/18/87 


External  Interfaces 


Subroutines: 


clearWA  () 
displayWAO 
informO 
ask{) 
getwd  () 


clears  work  area  window 

display  text  string  in  work  area  window 

display  text  in  the  message  window 

informO,  then  prompt  for  reply 

gets  the  working  directory 


/ 


/***************************★**★**********★****★*********★■**** 
Include  files 

*************************************************************/ 

# include  "code.h" 

♦include  <termio.h>  /*  used  for  setting  up  the  keyboard  */ 

struct  termio  orig_tty;  /*  used  for  setting  up  the  keyboard  */ 

struct  termio  raw_tty;  /*  used  for  setting  up  the  keyboard  */ 


archive  () 

{ 

char  group[20],  /*  Name  read  from  GroupNames  file  */ 
sys_cmd [500] , /*  Used  with  system  calls  */ 

response [ 10] , /*  Used  with  ask{)  */ 

found, 

abs_group_name [PATH_LEN] , /*  Name  with  full  path  */ 
grp_name [20] , /*  Name  without  path  */ 

message [200] , /*  A place  to  build  string  messages  */ 

workDir [PATH_L£N] ; /*  A string  to  hold  current  work  dir.  */ 


int  i,j, 

re; 


/*  counters  */ 

/*  return  code  from  function  call  */ 


FILE  *tmpf ile, 

*grpf ile, 

*openFile();  /*  A handy  file  opening  routine  */ 

/* 

* Get  the  working  directory,  return  to  calling  routine  if 

* unsuccessful. 

*/ 


if  ( ! (getwd (workDir) ) ) 


sprint f (message,  "Backup  could  not  get  the  working  directory  because :\n%s — Hit  [RETURN]  to  continue",  wor 

kDir) ; 

ask (message, RED, response) ; 
return (ERROR) ; 


ask ( "Do  you  want  to  (C) reate,  (R)ead,  (L) 1st  a floppy,  or  just  (Q)uit  this?", GREEN, response) ; 
if  (response [0]  — 'c'  (I  response[0]  --  9 C' ) 

ask ( "Do  you  need  to  format  a disk  (Y/N) , or  just  (Q)uit  this GREEN, response) ; 

/* 

* Let's  leave  unless  they  answer  yes,  otherwise  let's  get  on 

* with  formatting  the  floppy  disk. 

*/ 

if (response [0]  » 'q'  response[0]  'Q') 

return  ERROR; 

else  if  (response[0]  --  'yf  U response[0]  'Y') 

ask ("Place  disk  to  format  in  drive  and  press  <RETURN>  when  ready,  or  (Q)uit  this", GREEN, response) ; 
if (response [0] -»'qf | | response [0] Q'  ) 
return  ERROR; 

sprint f (sys_cmd,  rt/etc/f lpformat  /dev/rflp  2>>/tmp/code .err") ; 

^★★★★**-*******************************'********'** 

Return  to  cooked  mode  to  reply  to  system  prompt 
★**★************★**★**********★****★************/ 
loot 1 (fileno  ( stdout ) , TCSETAW,  fiorig_tty) ; 
ioctl  (fileno  (stdout),  TCFLSH,  0) ; 
system (sys_cmd) ; 

ioctl  (fileno  (stdout),  TCSETAW,  *raw_tty); 


ask  ("Place  a formatted  floppy  in  the  disk  drive . \nPress  <RETURN>  when  ready,  or  just  (Q)uit  this" , GREEN,  r 
esponse) ; 


/* 

* If  they  want  to  quit,  let  them. 

V 

if  (response  [0]  **'  q'  I 1 response  [0]  — ' Q'  ) 
return  ERROR; 

/* 

* Get  the  name  of  the  group  to  copy  to  floppy, 

*/ 

if ( (rc«get_name (NumOf Groups, "Group", GroupName, SGroupNumber) —ERROR) ) 
return (ERROR) ; 

/* 

* CREATE  to  floppy  of  the  group 

V 

inform  ("Transferring  files  to  floppy  PURPLE,  0); 

clearWA () ; 

displayWA ("NnFILES  TRANSFERRED  TO  FLOPPY : \n\n") ; 
chdir (CodeGroups) ; 

sprintf  (sys_cmd,  "tar  cvf  /dev/rflp  %s/*.h  %s/#.v",  GroupName,  GroupName); 
system (sys_cmd) ; 
chdir (AMSupport) ; 

sprintf  (sys_ cmd,  "tar  rvf  /dev/rflp  %s.dat",  GroupName); 
if  (system (sys_cmd)  !-  ERROR) 

{ 

ask ("Press  <RETURN>  to  continue", GREEN, response) ; 

> 

else 

{ 

ask ("Backup  unsuccessful.  Hit  [RETURN]  to  continue .", GREEN, response) ; 

> 

clearWA  ()  ; 
displayWA  (Comp)  ; 

} 

else  if  (response [0]  --  * r'  (I  response [0]  --  'R') 

{ 

inform  ("Reading  floppy  PURPLE,  0); 

/★A********************************************* 

If  they  want  to  read  a floppy,  let's  first  find 
out  what  group  is  on  the  floppy. 

************************** **************★*****★/ 
system  ("tar  tf  /dev/rflp  >/tmp/tart  2>>/tmp/code .err") ; 


archive.? 

Tf  ( ! litmpfiie  - openFii*  {"/tmp/cirt",  "r",  "*rchiv«"j)j 
return  (ERROR) ; 

fscanf  {tmpfile,  "is”,  abs_group_name) ; 
fclose  (tmpfile); 

system  ("rm  tmpfile  2»/tmp/code  .err" ) ; 


/************* ************  ********************** 
Since  what  we  have  is  the  groupName/compNames 
and  we  just  want  the  group  name,  let's  shorten 
it  up. 

***********************************************/ 
for  (i-0,  j-0;  abs_group_name [i]  !-  I++,  j++) 

grp_name[j]  ■ abs_group_name [ i] ; 
grp_name [ j ] - ' \ 0 ' ; 


/*********************************************** 

Let's  open  the  GroupNames  file,  and  see  if  the 
group  already  exists. 

***★*******************************************/ 
if  <!(grpfile  - openFile  (GroupNamesFile,  "r",  "archive"))) 
return  (ERROR) ; 


while  (fscanf  (grpfile,  "Is",  group)  !-  EOF) 

{ 

if  (strcmp (grp_name,  group)  « 0) 

{ 

found  - TRUE; 

/*********************************************** 

If  the  group  already  exists,  let  the  user  know 
about  it  and  see  if  they  want  to  proceed. 
***********************************************/ 

ask ("This  group  already  exists,  do  you  want  to  clobber  it?  (Y/N) ",  GREEN, response) ; 
if  {response  [0]  n'  II  response  [0  ]« ' N' ) 
return  ERROR; 
break; 

) 


) 

fclose  (grpfile) ; 

/* 

* Let's  read  the  floppy  finally 
*/ 

inform { "Reading  files  from  floppy  PURPLE,  0); 

chdir (CodeGroups) ; 
clearWA  ()  ; 

displayWA ("\nFILES  READ  FROM  FLOPPY\n\n\n"); 
sprintf (sys_cmd,  "tar  xvf  /dev/rflp  Is",  grp_name) ; 
system  (sys_cmd); 
chdir (AMSupport) ; 

sprintf (sys_cmd,  "tar  xvf  /dev/rflp  Is.dat",  grp_name) ; 
system  (sys_cmd) ; 

ask ("Press  <RETURN>  to  continue" , GREEN, response) ; 
clearWA ()  ; 

/***★**★**************************************** 

If  the  group  doesn't  exist,  then  add  it  to 
GroupNames  file. 

***********************************************/ 

if ( t found) 

{ 

strcpy (Grouplnfo [NumOfGroups) .name,  grp_name) ; 

Grouplnfo [NumOfGroups++] .disposition  - 1; 

if  (! (grpfile  • openFile  (GroupNamesFile,  "a",  "archive"))) 
return  (ERROR) ; 

fprintf (grpfile,  "Is  1", grp_name) ; 
fclose (grpfile) ; 

} 

} 

else  if  (response [0}  — '1'  II  response [0]  — ' L' ) 

{ 

inform  ("Reading  floppy  PURPLE,  0); 

clearWA  ()  ; 

displayWA ("\nL IS TING  OF  FILES  ON  FLOPPY\n\n\n") ; 
system  ("tar  tf  /dev/rflp  2»/tmp/code . err")  ; 
ask ("Press  <RETURN>  to  continue" , GREEN, response) ; 
clearWA {)  ; 


backgrounds 

y* ******************************* ********* ******************** 

BACKGROUND 

Purpose:  Background  draws  the  background. 

Designers:  Troy  Heindel  fc  Terri  Murphy,  both  of  NASA/ JSC/MOD 

Programmers : Troy  Heindel  & Terri  Murphy,  both  of  NASA/ JSC/MOD 

Date:  11/28/08 

Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 

******************************** *************************  *******/ 

/************************★*** ********************************* 

Include  files 

*************************************************************/ 

♦ include  "code.h" 

background  {) 

{ 

mgigf  (BoldFont) ; 

/******************* 

Work  Area  Box 
*******************/ 
mgihue  (BLUE) ; 

mgrbox  (0.1563,  0.1600,  1.0000,  0.9110); 

/****************************************************** 

Keyboard  inputs  box 

*****************************************************★*/ 
mgrbox  (0.1563,  0.0800,  1.0000,  0.1600); 

/******************************************************* 

Message /Prompts  box  (draw  the  lines  in  yellow) 
♦♦a*****************************************************/ 

mgrbox  (0.1563,  0.0000,  1.0000,  0.0800); 

mgihue  (YELLOW) ; 

mgrl  (0.1563,  0.0000,  0.1563,  0.9330);  /*  11  to  ul  */ 

mgrl  (0.1563,  0.9330,  1.0000,  0.9330);  /*  ul  to  ur  */ 

mgrl  (1.0000,  0.9330,  1.0000,  0.0000);  I*  ur  to  lr  */ 

mgrl  (0.1563,  0.0000,  1.0000,  0.0000);  /*  lr  to  11  */ 

mgrl  (0.1563,  0.9110,  1.0000,  0.9110);  /*  Work  Area  Title  Line  */ 

mgrl  (0.1563,  0.0800,  1.0000,  0.0800);  /*  MESSAGES /PROMPTS  Title  Line  */ 

mgrl  (0.1563,  0.1600,  1.0000,  0.1600);  /*  KEYBOARD  INPUT  Title  Line  */ 

/********************************************** 

File 

***********************************************/ 
mgihue  (PURPLE); 

mgrbox  (0.1562,  0.9380,  0.7100,  1.0000); 

mgihue  (YELLOW) ; 

mgrgfs  (0.4181,  0.9780,  0,  "File"); 

mgrl  (0.1562,  0.9780,  0.7100,  0.9780);  /*  Dividing  line  */ 

mgrl  (0.1562,  0.9380,  0.1562,  1.0000);  /*  Border  */ 

mgrl  (0.1562,  1.0000,  0.7100,  1.0000);  /*  Border  */ 

mgrl  (0.7100,  1.0000,  0.7100,  0.9380);  /*  Border  */ 

mgrl  (0.7100,  0.9380,  0.1562,  0.9380);  /*  Border  */ 


/********************************************** 

Misc...  (Just  a button,  no  title) 
***********************************************/ 
mgihue  (PURPLE) ; 

mgrbox  (0.7137,  0.9380,  0.8100,  1.0000); 
mgihue  (YELLOW) ; 

mgrgfs  (0.7400,  0.9780,  0,  "Misc"); 

mgrl  (0.7137,  0.9780,  0.8100,  0.9780);  /*  Dividing  line  */ 
mgrl  (0.7137,  0.9380,  0.7137,  1.0000);  /*  Border  left  */ 

mgrl  (0.7137,  1.0000,  0.8100,  1.0000);  /*  Border  top  */ 

mgrl  (0.8100,  1.0000,  0.8100,  0.9380);  /*  Border  right  */ 

mgrl  (0.7137,  0.9380,  0.8100,  0.9380);  /*  Border  bottom  */ 


Font  (Just  a button,  no  title)  *********/ 


mg i hue  (PURPLE)  ; 

mgrbox  (0.8137,  0.9380,  1.0000,  1.0000); 


mgr  1 
mgrl 
mgrl 
mgrl 
mgrl 


{0.8137, 

(0.8137, 

(0.8137, 

(1.0000, 

(0.8137, 


. 0.9780,  0,  "Font  Size") 

1 ; 

0.9780,  1.0000, 

0.9780) ; 

/* 

Dividing  line  */ 

0.9380,  0.8137, 

1.0000) ; 

/* 

Border  left  * / 

1.0000,  1.0000, 

1.0000) ; 

/* 

Border  top  */ 

1.0000,  1.0000, 

0.9380) ; 

/* 

Border  right  */ 

0.9380,  1.0000, 

0.9380)  ; 

/* 

Border  bottom  */ 

/★Hr***************** 

Edit  Box 

*******************/ 
mgihue (PURPLE) ; 

mgrbox (0.0000,  0.9110,  0.1525,  1.0000); 
mgihue (YELLOW)  ; 

mgrgfs <0.0575,  0.9780,  0,  "Edit"); 
mgrl (0 . 0000,  0.9780,  0.1525,  0.9780); 
mgrl (0 .0000,  0.9110,  0.0000,  1.0000)  ; 
mgrl (0 .0000,  1.0000,  0.1525,  1.0000); 
mgrl (0 . 1525,  1.0000,  0.1525,  0.9110); 
mgrl (0 . 1525,  0.9110,  0.0000,  0.9110); 


/A****************** 

Logic  Box 

************★******/ 
mgihue (PURPLE) ; 

mgrbox ( 0 . 0000,  0.7015,  0.1525,  0.9060); 
mgihue (YELLOW) ; 

mgrgfs (0.0513,  0.8840,  0,  "Logic"); 
mgrl (0.0000,  0.8840,  0.1525,  0.8840); 
mgrl (0.0000,  0.7015,  0.0000,  0.9060); 
mgrl (0.0000,  0.9060,  0.1525,  0.9060); 
mgrl (0.1525,  0.9060,  0.1525,  0.7015); 
mgrl (0.1525,  0.7015,  0.0000,  0.7015); 

/★★a************************************** 
Variables  Box  (MSID  Signal  Local  Number) 
*****************************************/ 
mgihue  (PURPLE)  ; 

mgrbox (0 . 0000,  0.5810,  0.1525,  0.6965); 
mgihue (YELLOW) ; 

mgrgfs (0.0363,  0.6745,  0,  "Variable”); 
mgrl (0 . 0000,  0.6745,  0.1525,  0.6745); 
mgrl (0.0000,  0.5810,  0.0000,  0.6965); 
mgrl (0.0000,  0.6965,  0.1525,  0.6965); 
mgrl (0 . 1525,  0.6965,  0.1525,  0.5810); 
mgrl (0 . 1525,  0.5810,  0.0000,  0.5810); 


/****************************************** 
Types  Box  (Short  Integer  Float  Character) 
*******  *******************************  ***★*/ 

mgihue (PURPLE) ; 

mgrbox (0.0000,  0.4600,  0.1525,  0.5760); 
mgihue (YELLOW) ; 

mgrgfs (0.0563,  0.5540,  0,  "Type"); 
mgrl (0 . 0000,  0.5540,  0.1525,  0.5540); 
mgrl (0 . 0000,  0.4600,  0.0000,  0.5760); 
mgrl (0.0000,  0.5760,  0.1525,  0.5760); 
mgrl (0 . 1525,  0.5760,  0.1525,  0.4600); 
mgrl (0 . 1525,  0.4600,  0.0000,  0.4600); 


Relational  Operators  (<  <«>>**  <>) 


mgihue (PURPLE) ; 

mgrbox ( 0 . 0000,  0.3685,  0.1525,  0.4550); 
mgihue (YELLOW) ; 

mgrgfs  (0 . 0263,  0.4330,  0,  "Relational**); 


mgrl (0 . 0000, 

0.4330, 

0.1525, 

0.4330) 

mgrl (0 . 0000, 

0.3685, 

0.0000, 

0.4550) 

mgrl (0 . 0000, 

0.4550, 

0.1525, 

0.4550) 

mgrl (0 . 1525, 

0.4550, 

0.1525, 

0.3685) 

mgrl (0.1525, 

0.3685, 

0.0000, 

0.3685) 

backgrounds  • 


/*★********************■**************"******** 
Actions  Box  (Set  Print  Function  Comment) 
***♦*****************************************/ 


mgihue (PURPLE) ; 

mgrbox (0.0000,  0.2770,  0.1525,  0.3635); 
mgihue (YELLOW) ; 

mgrgf s (0 . 0463,  0.3415,  0,  "Action"); 
mgrl (0.0000,  0.3415,  0.1525,  0.3415); 
mgrl (0 .0000,  0.2770,  0.0000,  0.3635); 
mgrl (0 .0000,  0.3635,  0.1525,  0.3635); 
mgrl (0 . 1525,  0.3635,  0.1525,  0.2770); 
mgrl  (0 . 1525,  0.2770,  0.0000,  0.2770); 


/**************************************************** 
Mathematical  Ops  (+  - * / ( ) Power  Sqrt  Ln  Exp) 
*****************************************************/ 
mgihue (PURPLE) ; 

mgrbox (0.0000,  0.0000,  0.1525,  0.2720); 
mgihue (YELLOW) ; 

mgrgf s (0 . 0570,  0.2500,  0,  "Math"); 
mgrl (0.0000,  0.2500,  0.1525,  0.2500); 
mgrl (0.0000,  0.0000,  0.0000,  0.2720); 
mgrl (0.0000,  0.2720,  0.1525,  0.2720); 
mgrl (0.1525,  0.2720,  0.1525,  0.0000); 
mgrl (0 . 1525,  0.0000,  0.0000,  0.0000); 

mgigf  (Font) ; 


/******************* 

Secret  Apple 

That  night  in  August,  the  trees  were  full,  the  boughs 
bent  and  heavy,  and  the  apples  — all  but  the  bright, 
waxy-green  Gravensteins  — were  a pale  green-going-to-pink 
The  grass  in  the  rows  between  the  trees  was  knee-high; 
there  would  be  one  more  mowing  before  the  harvest.  That 
night  there  was  an  owl  hooting  from  the  orchard  called 
Cock  Hill;  Candy  and  Homer  also  heard  a fox  bark  from  the 
orchard  called  Frying  Pan. 


*************** 


The  Cider  House  Rules 
John  Irving 

* **  * f 


code  .c 


Purpose:  code.c  contains  the  main  event  loop  which  handles 

token  processing. 

Designer:  Troy  Heindel  t Terri  Murphy  of  NASA/JSC/MOD 

Programmer:  Troy  Heindel  & Terri  Murphy  of  NASA/ JSC/MOD 

Date:  12/11/86 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 


External  Interfaces 


Subroutines : 


initGraphics ()  — inits  windows, background 

init_code()  — initializes  CODE  globals 
cleanExitO  — exits  code,  restores  original  stuff 
menu {)  — loops  to  get  moused  token  selection 

mgigetfbO  — MC:  gets  the  active  frame  buffer 

clearWAO  — clears  work  area  window 
displayWAO  — display  text  string  in  work  area  window 

informO  — display  text  in  the  message  window 

ask()  — informO,  then  prompt  for  reply 

mgifbO  — MC:  select  a frame  buffer 

put_if ()  — puts  the  'if'  token 

put_endif  0 — puts  the  'endif'  token  into  work  area 

put_msid{)  — put  an  msid  token  into  work  area 

put_signalO  — put  a signal  variable  token  into  work  area 

put_local ()  — put  a local  variable  token  into  work  area 

put  lt()  — put  a 9 <*  token  into  work  area 

put”gt()  — put  a '>'  token  into  work  area 

put  le()  — put  a '<-'  token  into  work  area 

put^geO  — put  a '>-'  token  into  work  area 

put_ne()  — put  a '8'  token  into  work  area 

put_eq ( ) — put  a token  into  work  area 

put_add()  -r  put  an  '+'  token  into  work  area 

put_subtract {)  — put  an  token  into  work  area 

put_multiply ()  — put  an  '*'  token  into  work  area 

put_divide()  — put  an  '/'  token  into  work  area 

put_shiftL()  — put  an  'shift!/  token  into  work  area 

put_shiftR  ()  — put  an  ' shiftR'  token  into  work  area 

put_l_paren ()  — put  a ' ('  token  into  work  area 

Put_r_paren ( ) — put  a ')'  token  into  work  area 

put_and{)  — put  an  'and'  token  into  work  area 

put_or()  — put  an  'or'  token  into  work  area 

put  bitXorO  — put  an  'bitXor'  token  into  work  area 

putJbitOrO  — put  an  'bitOr'  token  into  work  area 

put  bitAndO  — put  an  'bit And'  token  into  work  area 

put_then()  — put  a 'then'  token  into  work  area 

put_else()  — put  an  'else'  token  into  work  area 

put  not()  — put  a 'not'  token  into  work  area 

put~number()  — put  a number  into  work  area 

put_string()  — put  a string  into  work  area 

put  set()  — put  a 'set'  token  into  work  area 

put_func{)  — put  a math  fucntion  token  into  work  area 

put_comma{)  — put  a ' , ' token  into  work  area 

save()  — saves  the  current  comp/group  to  file 

edit()  — use  vi,ved  to  edit  comp's  files 

retrieve ()  — reads  comp  from  file,  resets  globals  for  it 

changeFontO  — you  guessed  it! 

put_print ()  — puts  an  'print#'  token  into  work  area 
get”name()  — prompts  user  for  a comp  or  group  from  listing 
putStrWithBlue () — places  name  on  status  line  in  blue  bubble 
readCompNames ()  — reads  comp  names  for  a given  group 
hardcopyO  — prints  the  current  group  to  printing  device 
copy()  — copy  current  comp  or  group  to  newly  name  one 

new()  — creates  a new  comp  or  group 

get_header()  — gets  comp  header  info  from  the  user 


delete  () 
install  () 
remove () 
archive  () 
put jpi  () 
token_help  0 
mgiloadcurs () 
color_valid () 
put_status ( ) 


deletes  the  last  token  from  the  Comp  string 

installs  all  completed  comps 

removes  a comp  or  a group 

tars  a group  to/from  floppy 

put  the  constant  pi  into  work  area 

provides  token  description  (modal) 

— MC:  loads  in  a new  graphics  cursor 

— redraws  tokens  in  correct  color  (yellow, or  red) 

— puts  the  comp  status  on  status  line  in  bubble 


/**************★**************************************** ******/ 
♦include  "code.h" 

♦include  "cursor. h" 

♦include  <termio.h> 


struct  termio  orig_tty;  /*  used  for  setting  up  the  keyboard  */ 


main  (argc,  argv) 
int  argc; 
char  *argv[]; 

int  theFont , /*  The  font  that  is  currently  moused  */ 

theWAFont,  /*  The  font  last  chosen  for  the  WA*/ 
showjbuf , mod_buf , /*  frame  buffers  */ 
rc,  /*  return  code  from  called  functions  */ 
reDraw,  /*  Boolean  whether  to  redraw  comp  string  */ 
oldGroupNumber,  /*  Group  number  before  retrieve,  in  case  we  abort  */ 
oldCompNumber,  /*  Comp  number  before  retrieve,  in  case  we  abort  */ 
choice;  /*  The  numeric  value  of  the  chosen  token  */ 


char  reply [10] , /*  A string  for  user  response  e.g.  Yes/No  */ 

oldGroupName [PATH_LEN] , /*  Group  name  before  retrieve,  in  case  we  abort  */ 
oldCompName [PATH_LEN] ; /*  Comp  name  before  retrieve,  in  case  we  abort  */ 

/* 

* Initialize  the  windows  and  graphics. 

V 

initGraphics  <) ; 

/* 

*To  initialize  all  flags  and  strings  at  start  of  CODE 

*/ 

if  (init  code()  — ERROR) 

( 

/* 

* Make  the  screen  clean.  Get  cooked.  Say  bye. 

V 

cleanExit  () ; 

) 

/* 

* The  main  event  loop,  run  'till  ya'  QUIT  . 

*/ 

while (TRUE) 

{ 

/* 

* Obtain  a token  choice  from  the  user 

V . 

choice  - menu (RUN); 
reDraw  - TRUE; 

/* 

* Process  the  choice 
*/ 

if  (choice  --  IF) 

{ 

put i f (); 

) 

else  if  (choice  --  END_IF) 

{ 

put_endif  (); 

) 

else  if  (choice  — MSID) 

( 

put_msid  ()  ; 

} 

else  if  (choice  — SIGNAL) 


put_bitOr  ()  ; 


else  if  (choice  BITAND) 

{ 

put_bitAnd  ()  ; 

> 

else  if  (choice  — THEN) 

( 

put_then  ()  ; 

) 

else  if  (choice  — ELSE) 

{ 

put_else  {); 

> 

else  if  (choice  ■■  NOT) 

{ 

put_not  ( ) ; 

) 

else  if  (choice  *-  NUMBER) 

{ 

put_number  (); 

> 

else  if  (choice  « STRING) 

( 

put_string  (); 

) 

else  if  (choice  **  SET) 

{ 

put_set  ( ) ; 

) 

else  if  (choice  COS) 

( 

put_func (COS) ; 

) 

else  if  (choice  — ACOS) 

{ 

put_func (ACOS) ; 

} 

else  if  (choice  — SIN) 

( 

put_func (SIN) ; 

) 

else  if  (choice  — ASIN) 

{ 

put_func (ASIN) ; 

) 

else  if  (choice  — TAN) 

{ 

put_func (TAN) ; 

) 

else  if  (choice  *-  ATAN) 

{ 

put_func (ATAN) ; 

} 

else  if  (choice  — EXP) 

{ 

put_func (EXP) ; 

) 

else  if  (choice  ““  LOG) 

{ 

put_func (LOG) ; 

) 

else  if  (choice  « POWER) 

( 

put_func (POWER) ; 

) 

else  if  (choice  *-  SQRT) 

( 

put_func (SQRT) ; 

) 

else  if  (choice  — FUNCTION) 

{ 

if (put_func (FUNCTION)  — ERROR) 

{ 

inform ("Funct ion  executable  does  not  exist ",  PURPLE, 2) ; 

) 

) 

else  if  (choice  — COMMA) 

{ 


code.c 

put_comma ( ) ; 

> 

else  if  (choice  — EDIT) 

{ 

/* 

* We  save  before  editing  so  that  the  user  is  editing 

* the  latest  and  greatest  files. 

*/ 

if  (NeedToSave) 
save  (); 
edit  (); 


/* 

* After  editing  we  re-retrieve  the  modified 

* comp  assuming  the  user  has  made  a modification. 

*/ 

if  (retrieve ()  — ERROR) 

{ 

inform ("Unable  to  retrieve  comp  after  edit ",  PURPLE, 2) ; 

} 

/* 

* Return  to  the  font  they  were  using. 

*/ 

changeFont (WORK_AREA,  theWAFont)  ; 
reDraw  * FALSE; 

} 

else  if  (choice  --  PRINT) 

{ 

put_print  () ; 

) 

else  if  (choice  — COMMENT) 

{ 

put_comment () ; 

) 

else  if  (choice  *■  SAVE) 

{ 

save  0; 
reDraw  « FALSE; 

) 

else  if  (choice  *-  RETRIEVE) 

{ 

/* 

* Give  them  a chance  to  save  previous  work. 

*/ 

if  (NeedToSave) 

( 

ask ("Do  you  want  to  save  your  latest  work  first.  (Y/N) ",  GREEN, reply) 
if  (reply [0]  --  ' Y ' I!  reply[0]  « 'y') 
save  ()  ; 

) 

/* 

* Keep  the  old  name/number  around  in  case  the 

* user  aborts  from  the  retrieve. 

* Get  a group  name  from  the  user  to  retrieve. 

V 

strcpy (oldGroupName, GroupName) ; 
oldGroupNumber  - GroupNumber; 

.rc-get_name (NumOfGroups, "Group", GroupName, sGroupNumber) ; 

if  (rc  !-  ERROR) 

< 

/* 

* Keep  the  comp  name  and  number  around  in  'old' 

* variables  in  case  the  user  aborts  the  get_name. 

* If  we  do  not  have  an  error  getting  the  name,  then 

* retrieve  the  chosen  comp. 

V 

st rcpy (oldCompName, CompName) ; 
oldCompNumber  » CompNumber; 

rc  * get_name (NumOfComps, "Comp", CompName, fiCompNumber) ; 
if (rc  !«  ERROR) 

{ 

/* 

* Show  us  your  group  name  £ comp  name ! 

V 

putStrWithBlue (GroupName,  0.75);  /*  string,  norm  x */ 
putStrWithBlue (CompName,  0.8823);  /*  string,  norm  x */ 


i* 

* Read  the  comp  string  in  from  file. 

V 

retrieve  ()  ; 

else  /*  They  aborted  the  get_name  for  the  comp,  so  fade  back  */ 

{ 

strcpy (GroupName, oldGroupName) ; 

GroupNumber  * oldGroupNumber; 
st rcpy (CompName, oldCompName) ; 

CompNumber  * oldCompNumber ; 
displayWA (Comp) ; 
reDraw  * FALSE; 

/* 

* Read  in  the  comps  associated  with  this  group 

*/ 

readCompNames ()  ; 

) 

else  /*  The  aborted  the  retrieve,  so  fall  back  */ 

{ 

strcpy (GroupName, oldGroupName) ; 

GroupNumber  ■ oldGroupNumber; 
displayWA (Comp) ; 
reDraw  » FALSE; 

> 

) 

else  if  (choice  — HARDCOPY) 

( 

/* 

* We  save  if  necessary  since  hardcopy  prints  the  files. 

*/ 

if  (NeedToSave)  save(); 
hardcopy  () ; 
reDraw  - FALSE; 

} 

else  if  (choice  *»  COPY) 

( 

if  (NeedToSave)  save  ()  ; 
copy  ( ) ; 

) 

else  if  (choice  NEW) 

{ 

/* 

* Give  them  a chance  to  save  previous  work. 

*/ 

if (NeedToSave) 

( 

ask ("Do  you  want  to  save  your  latest  work  first.  (Y/N) ",  GREEN, reply) ; 
if  (reply [0]  — 'Y'  II  reply [0]  — 'y') 
save  ()  ; 

} 

/* 

* If  there  are  zero  groups  then  they  must  want  a new  group 

* since  comps  must  be  associated  with  a group. 

V 

if (NumOfGroups<l) 
reply [0]  - 'G'; 

else  ask ("Would  you  like  a new  (G) roup,  (C)omp,  or  (Q)uit  this?", GREEN, reply) 
if (reply [0 ] — 'G'  II  reply[0]  — ' g' ) 

{ 

if (new ("Group") ! -DEFAULT)  /*  Get  the  group,  then  */ 

( 

if (new("Comp") 1-DEFAULT)  /*  the  comp.*/ 

get_header () ; /*  We  need  a header  for  this  new  guy  */ 

) 

} 

else  if  (reply [0]  — 'c'  II  reply[0]  — 'C') 

{ 

/* 

* Get  the  name  of  a group  from  the  user  to  put  this 

* new  comp  in. 

*/ 

rc-get_name (NumOfGroups, "Group", GroupName, fiGroupNumber) ; 


if  (rc  ! - ERROR) 


{ 


/* 

* Show  us  your  group  name! 

*/ 

putSt rWithBlue (GroupName,  0.75);  /*  string,  norm  x */ 

/* 

* Read  in  the  comps  associated  with  this  group 
*/ 

readCompNames () ; 

} 

/* 

* Create  the  new  comp. 

*/ 

if  (new ("Comp") ! -DEFAULT) 

get_header () ; /*  We  need  a header  for  this  new  guy  */ 

) 

else  reDraw  - FALSE; 

) 

else  If  (choice  •»  DELETE) 

< 

delete  ()  ; 

/* 

* You  must  clean  after  a delete  to  see  what  happened. 

V 

clearWAO  ; 

/* 

* If  we're  down  to  the  last  token  then  start  the  comp 

* over  again  by  getting  the  header. 

*/ 

if  (ChoiceCounter  < 1) 
get_header  0; 

} 

else  if  (choice  — INSTALL) 

{ 

if  (NeedToSave)  save  () ; 
install  {) ; 

} 

else  if  (choice  — REMOVE) 

{ 

/* 

* Give  them  a chance  to  save  previous  work. 

V 

if  (NeedToSave) 

( 

ask ("Do  you  want  to  save  your  latest  work  first.  (Y/N) ",  GREEN, reply) 
if  (reply [0 ] — 9 Y'  II  reply[0]  — 'y') 
save  {)  ; 

) 

remove  ()  ; 
clearWA  ()  ; 
reDraw  - FALSE; 

) 

else  if  (choice  — BACKUP) 

{ 

if  (NeedToSave)  save  () ; 
archive  ()  ; 
reDraw  * FALSE; 

} 

else  if  (choice  PI) 
put_pi  (); 

else  if  (choice  — QUIT) 

( 

ask ("Are  you  sure  you  want  to  quit ?", GREEN, reply) ; 

if ( ! (reply [0 ] — 'N'  ||  reply[0]  — 'n')) 

{ 

if  (NeedToSave) 

{ 

ask ("Save  this  comp  first?  (Y/N) ",  GREEN, reply) ; 
if  (reply [0]  — ' Y' | | reply [0]  — 'y') 
save  ()  ; 

) 

cleanExit  ()  ; 


) 


) 


mgiloadcurs  ( 7, 7 , 4 , Help) ; 

inform ("You  are  now  in  the  HELP  mode" 
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, PURPLE,  0) 


choice  - menu (HELP); 
token_help (choice,  HELP); 
mgiloadcurs  (7, 7,  4, Shuttle) ; 
reDraw  - FALSE; 


) 

else  if  (choice  — LIST) 

{ 

mgiloadcurs  (7, 7, 4, List) ; 

inform ("You  are  now  in  the  LIST  mode", PURPLE, 0) ; 

choice  - menu (LIST); 

token_help (choice,  LIST); 

mgiloadcurs  ( 7 , 7, 4 , Shutt le) ; 

reDraw  * FALSE; 


) 

else  if  (choice  — SMALL  1 I choice  « MEDIUM  | } choice 

( 

theFont  * choice; 

inform ("You  are  now  in  the  FONT  mode" , PURPLE, 0) ; 
mgiloadcurs  (7, 7 , 4 , FontCurs) ; 
choice  - menu (FONT); 
if (choice  WORK_AREA) 

{ 

theWAFont  - theFont; 
changeFont (WORK_AREA,  theFont) ; 

} 

else  changeFont (ERROR,  theFont); 
mgiloadcurs  ( 7 , 7 , 4 , Shutt le) ; 
clearWAO  ; 

} 


=■*  LARGE) 


/* 

* The  next  little  piece  of  code  sets  up  the  next 

* available  choices  and  positions  the  mouse. 

*/ 

if (reDrawt ^choice ! -ERROR) 

{ 

color_valid  (PrevChoice [ChoiceCounter  - 1],  choice); 
displayWA(Comp) ; 
put_status  (); 

) 

inform ("", BLUE, 0) ; 

} 

) 


«*# 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

/******* 

******** 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 


"color .h" 

<stdio.h> 

<math ,h> 

<signal .h> 

<sys/f ile .h> 

<sys/ioctl .h> 

**********************************************  ************ 

GLOBAL  CONSTANTS 

**********************************************************/ 

/*  The  number  of  chars  allocated  for  the  string.*/ 


PATH_LEN 
max_name_len 

MAX_COMPS 
MAX_G ROUPS 
NOMEN  LEN 


80 

♦ 

100 

100 

50 


14  / 


* The  number  of  chars  allocated  for  any  file  name.  */ 


50 

500 

20000 


MAX_VAR_LEN  30 
TYPE_LEN  10 
MAX  COMP_VARS 
MAX_GROUP_VARS 
MAX_COMP_LEN 
MAXJTOKENS  2000 

MSID  NAME_LEN  12  /*  The  number  of  chars  allocated  for  an  MSID  name  */ 

SIGNAL  NAME  LEN  21  /*  The  number  of  chars  allocated  for  an  MSID  name  */ 

MAX  NUM  MSIDS  4000  /*  The  max  number  of  MSIDs  which  can  be  defined  in  tag  tbl 
MAX~NUM”sIGNALS  800  /*  The  max  number  of  SIGNALS  which  can  be  defined  in  signal  tbl 
MAX~SETTERS  50  /*  The  maximum  number  of  comps  which  are  allowed  to  set  a signal  */ 
INCOMPLETE  0 /*  Used  to  describe  a comps  disposition  */ 

comps  disposition  */ 
comps  disposition  */ 


*/ 


COMPLETE 

INSTALLED 


Used  to  describe  a 
Used  to  describe  a 


PUT 
GET 

PET  2 . 

ERROR 
DEFAULT 
OK  0 

GROUPJ3NLY 
GROUPJOOMP 
MAX  NESTED_IF 

max"compares 


/*  Used  to  describe  a how  a signal  is  being  used  */ 

/*  Dito  above  */ 

/*  Dito  above  */ 

-1  /*  What  can  I say,  sometimes  it  happens  */ 

1 

/*  What  can  I say,  sometimes  it  happens  */ 

0 /*  Argument  to  get_a_name  - Get  group  name  only  */ 

1 /*  Argument  to  get_a_name  - Get  group  and  comp  name  */ 

12  /*  The  max  number  of  nested  if's  we  allow  the  user  */ 

100  /*  The  max  number  of  variable  comparisons  in  a comp  */ 


MAX  STR  LEN  120  /*  The  max  length  of  a fault  msg,  or  SIGNAL  string  */ 


MAX_MSG_LEN  300 
FUNC_NAME_LEN 
MAX_FUNC_P ARAMS 
MAX-NUMjFUNCS 
TOKEN_SIZE  500 
DELETING 
ARCHIVING 
RETRIEVING 
Font 

BoldFont 
ItalicFont 
HugeFont 
SmallTextFont 
MediumTextFont 
LargeTextFont 
SIZE_INDENT  5 
FIRST  SIGNAL 


/*  The  max  length  of  a prompt  area  string  to  the  user  */ 

11  /*  The  max  number  of  characters  in  a user  function  name  */ 

20  /*  The  max  number  of  parameters  in  a user  defined  function  */ 

100  /*  The  max  number  of  user  functions  which  can  be  stored  */ 

/*  The  max  length  of  a token  string  */ 

/*  Used  to  tell  get_a_name  we  are  getting  something  to  delete  */ 

/*  Used  to  tell  get_a_name  we  are  getting  something  to  archive  */ 
Used  to  tell  get_a_name  we  are  getting  something  to  retrieve  */ 
Used  in  code.c  */ 


/* 

/* 

/*  Used  in  code.c  */ 

/*  Used  in  code.c  */ 

/*  Used  in  code.c  */ 

2 /*  Used  in  code.c  */ 

0 /*  Used  in  code.c  */ 

1 /*  Used  in  code.c  */ 

/*  The  size  of  nominal  indent  */ 

"SIGNAL  ZERO"  /*  Used  in  retrieve  to  determine  when  the  header's  been  ripped  */ 

MAX_COMMENT_LEN  250  /*  Used  in  put_status  to  determine  if  comp  length  is  getting  close  to  max*/ 
MORE  "Hit  ->  SpaceBar -.Advance  Page  RETURN : Advance  Line  Q:Quit  Window  h:Help" 


♦define  TRUE 
♦define  FALSE 


♦define  PROMPT  2 
♦define  INFO  1 
♦define  NO  CHANGE  0 


♦define  PREMISE  0 

♦define  CONSEQUENCE  1 


♦define  LHS  0 

♦define  RHS  1 

♦define  NUMBER_OF_OPTIONS  66 
♦define  NUMBER_OF_HELP  3 

♦define  dead_end  -1 

♦define  IF  0 

♦define  THEN  1 
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♦define 

AND 

2 

♦define 

OR 

3 

♦define 

NOT 

4 

♦define 

PRINT 

5 

, ♦define 

SET 

6 

♦define 

GT 

7 

♦define 

GE 

8 

♦define 

LT 

9 

♦define 

LE 

10 

♦define 

EQ 

11 

♦define 

MS  ID 

12 

♦define 

SIGNAL 

13 

♦define 

LOCAL 

14 

♦define 

NUMBER 

15 

♦define 

INTEGER 

16 

♦define 

FLOAT 

17 

♦define 

DOUBLE 

18 

♦define 

NEW 

19 

♦define 

SAVE 

20 

♦define 

INSTALL 

21 

♦define 

RETRIEVE 

22 

♦define 

QUIT 

23 

♦define 

DELETE 

24 

♦define 

ELSE 

25 

♦define 

END  IF 

26 

♦define 

LIST 

27 

♦define 

NE 

28 

♦define 

L PAREN 

29 

♦define 

R PAREN 

30 

♦define 

ADD 

31 

♦define 

SUBTRACT 

32 

♦define 

MULTIPLY 

33 

♦define 

DIVIDE 

34 

♦define 

REMOVE 

35 

♦define 

EDIT 

36 

♦define 

COMMENT 

37 

♦define 

HARDCOPY 

38 

♦define 

BITXOR 

39 

: ♦define 

BACKUP 

40 

/ ♦define 

SHORT 

41 

♦define 

CHAR 

42 

♦define 

FUNCTION 

43 

♦define 

EXP 

44 

♦define 

LOG 

45 

♦define 

COS 

46 

♦define 

ACOS 

47 

♦define 

SIN 

48 

♦define 

AS  IN 

49 

♦define 

TAN 

50 

♦define 

ATAN 

51 

♦define 

COPY 

52 

♦define 

SQRT 

53 

♦define 

POWER 

54 

♦define 

STRING 

55 

♦define 

BITAND 

56 

♦define 

BITOR 

57 

♦define 

SHIFTL 

58 

♦define 

SHIFTR 

59 

♦define 

PI 

60 

♦define 

COMMA 

61 

♦define 

HELP 

62 

♦define 

SMALL 

63 

♦define 

MEDIUM 

64 

♦define 

LARGE 

65 

♦define 

WORK  AREA 

66 

♦define 

KEYIN  AREA 

67 

♦define 

PROMPT  AREA 

68 

♦define 

EDIT  WINDOW 

69 

♦define 

FONT 

998 

♦define 

RUN 

999 

♦define 

GET  TYPE 

100 

/*  A type  */ 


/*  Looks  like  "I  am  a string" 


The  group_list_struct  is  used  to  store  the  listing  of  group  names 
and  dispositions  read  from  the  GroupNames  file. 
***********************************************************  *★**  + **/ 


code.h 

struct  group_info_struct 

char  name [MAX  NAME_LEN} ; /*  The  names  of  the  groups  read  from  GroupNames  file*/ 
int  disposition;  7*1  - error,  0 - incomplete,  1 - complete,  2-  installed  */ 

} ; 

struct  group_inf o_st ruct  Grouplnfo [MAX_GROUPS] ; 

/a**************************************************************** 

The  group_inf obstruct  is  used  to  store  the  data  pertaining  to  the  group 
which  is  found  in  the  <group_name> . dat  file.  The  data  stored  in  this 
file  is  also  used  by  the  Algorithm  Manager. 

I******************************************************************/ 

struct  comp__ inf o_st ruct 
{ 

char  name [MAX_NAME_LEN] ; 

int  disposition;  7*  -1  - error,  0 - incomplete,  1 - complete,  2-  installed  */ 

int  noise_f i Iter ; /*  integer  number  1-9  */ 

int  rate;  /*  integet  number  1-9  */ 

int  on_of f ; /*  0 - Off,  1 - On  */ 

char  purpose [80]; 

in- 


struct comp_inf obstruct  Complnfo [MAX_COMPS] ; 

/a**************************************************************** 
The  var_struct  is  used  in  an  array  that  contains  all  of  the 
variables  for  the  group,  and  another  array  that  contains  all  of  the 
variables  for  the  current  comp. 

******************************************************************/ 


struct  var_struct 

{ 

char  name [MAX_VAR_LEN  3 ; 
char  type  [TYPE  LEN] ; 
char  class  [TYPE_LEN] ; 
int  occurrence; 
int  put_or_get; 

float  lol_limit;  /*  ops  low  limit  */ 
float  lo2_limit;  /*  critical  low  limit  */ 
float  hil_limit;  /*  ops  high  limit  */ 
float  hi2_limit;  /*  critical  high  limit  */ 
char  nomenclature [NOMEN_LEN 3 ; 
in- 


struct var_struct  CompVars [MAX_COMP_VARS] ; 
struct  var_ struct  GroupVars [MAX_GROUP_VARS] ; 

/***********************★*******★**★*******★**★******************** 

The  msid_tbl_struct  is  use  dthe  store  the  tag  msid  table  which  is 
3cept  in  the  file  . . . /tables/tag_msid_tbl . It  is  a list  of  the 
defined  maids  which  will  have  tlm. 

♦ a*****************************************-************************/ 

struct  msid_tbl_struct 

{ 

char  name  [MSID_NAME_LEN] ; 
char  type [TYPE_LEN] ; 
char  nomenclature [NOMEN_LEN] ; 
in- 
struct msid_tbl_struct  MSIDTable  [MAX_NUM_M5IDS] ; 

/a***************************************************************** 

The  sig_tb Instruct  is  used  to  store  the  signal  table  information 
which  is  kept  in  the  file  /user/tables/signal_table . 
*******************************************************************/ 
struct  sig_tbl_struct 
{ 

char  name [SIGNAL_NAME_LEN] ; 
char  type [TYPE_LEN] ; 

int  putter_count ; /*  The  number  of  comps  which  put  this  signal  */ 

char  putter [MAX_SETTERS] [MAX_NAME_LEN  + MAX_NAME_LEN  + 2];  /*  The  names  of  the  putters  */ 
int  getter__count;  /*  The  number  of  comps  which  set  this  signal  */ 

char  getter  [MAX_SETTERS ] [MAX_NAME_LEN  + MAX_NAME_LEN  + 2];  /*  The  names  of  the  setters  */ 
char  nomenclature [NOMEN_LEN 3 ; 
i; 


— code.h 

“cruet  sig  tbl  struct  SignalTable [MAX_NUM_SIGNALS] ; 

********************** ************** ************************ 
GLOBAL  VARIABLES 

********************* ****************♦*****************************/ 


char  CompName [MAX_NAME_LEN] , /*  Used  in  nocip,  get_a_name,  save,  retrieve.  / 
GroupName[MAX_NAME_LEN],  /*  The  name  of  the  group  in  Work  Area  */ 

UserFuncs [MAX  NUM— FUNCS] [FUNC_NAM£_LEN] , /*  For  user  function  name  storage  */ 

Comp [MAX_COMP_LEnT,  /*  The  all  important  string  for  holding  the  CODE  language  tokens 
C ompa re Type [MAX_COMP ARES ] [TYPE_LEN] ; /*  Stores  the  type  of  each  of  the  var.  compares 
SignalTbl [PATH_LEN] , /*  Set  in  init_code,  used  throughout  */ 

MSIDTbl [PATH_LEN] , /*  Set  in  init_code,  used  throughout  */ 

CodeGroups [PATH_LEN] , /*  Set  in  init_code,  used  throughout  V 

GroupNamesFile [PATH_LEN] , /*  Set  in  init_code,  store  path  for  file  of  group  names  */ 
CodeDocs [PATH_LEN] , /*  The  path  with  file  for  the  code  documentation  */ 

Code [PATH_LEN] , /*  Set  in  init_code,  used  throughout  */ 

UserFuncsLib [PATH_LEN] , /*  Set  in  init_code,  used  throughout  */ 

RTDS [PATH_LEN] , /*  Path  to  the  RTDS  system  */ 

AMSupport [PATH_LEN] , /*  Set  in  init_code,  used  throughout  */ 

AMGroups [PATH_LEN] , /*  Set  in  init_code,  used  throughout  */ 

FunctionList [MAX_NUM_FUNCS] [FUNC_NAME_LEN] ; 


*/ 

V 


NumCompVars,  /*  Used  in  save,  retrieve,  var_check.  The  number  of  variables  used  In  a comp.  */ 
NumGroupVars,  /*  Used  in  save,  retrieve.  The  number  of  variables  used  in  a group.  */ 

CompNumber,  /*  The  index  of  the  comp  in  the  group_info  structure  */ 

GroupNumber,  /*  The  index  of  the  group  in  the  group_list  structure  */ 

SignalCount , /*  The  number  of  signal  read  from  the  signal  table  */ 

MSIDCount,  /*  The  number  of  msids  read  from  the  tag_msid_tbl  */ 

NumO f Comps,  /*  The  number  of  comps  in  the  active  group  */ 

NumOf Groups,  /*  The  number  of  groups  */ 

NumberOflfs,  /*  The  number  of  ifs  in  the  work  area  comp  */ 

NumberOfEndifs,  /*  The  number  of  endifs  in  the  work  area  comp  */ 

NumberOf Compares,  /*  The  number  of  equal  signs  In  a comp,  both  EQ,  and  EQEQ  */ 
NestedElseCheck[MAX_NESTED_IF] , /*  Used  in  next_inputs  to  determine  if  else  is  valid  */ 

NumberOf UserFuncs,  7*  the  number  of  user  funcs  read  into  init_code.c  */ 

NeedToSave,  /*  TRUE  means  we  have  made  changes  to  the  WA  comp  */ 

Equation,  /*  LHS  or  RHS  */ 

ParenCount,  /*  The  number  of  parenthesis  */ 

TotValPts,  /*  The  number  of  tokens  which  are  valid;  menu()  and  next_inputs<)  */ 

ValidPoints [NUMBER_OF_OPTIONS] , /*  The  list  of  valid  tokens;  menu()  and  next_inputs ( ) */ 
LikelyNextChoice,  /*  The  token  to  position  the  mouse  over;  menu()  and  next_inputs ()  */ 

Where Ami,  /*  Either  PREMISE  or  CONSEQUENCE  */ 

ChoiceCounter,  /*  An  Index  into  the  PrevChoice  array  of  tokens  */ 

PrevChoice [MAX_TOKENS] , /*  An  integer  history  of  the  tokens  in  a comp  */ 

FunctionCount,  /*  The  number  of  functions  used  in  a comp  */ 

FunctionArgument s [MAX_NUM_FUNCS] , /*  The  number  or  arguments  needed  to  satisfy  the  function  */ 
FunctionArgsDef [MAX_NUM_FUNCS J , /*  The  number  or  arguments  entered  thus  far  */ 

FunctionCurrent , /*  The  function  we  are  currently  trying  to  satisfy  arguments  for  */ 
FuncParenCount,  /*  The  paren  count  for  function  argument  definitions  */ 

ColorMap [32] ; /*  array  to  store  and  restore  the  color  map  */ 


♦define  BLACK  0 
♦define  BLUE  1 
♦define  RED  2 


♦define  ORANGE  4 

♦define  YELLOW  8 

♦define  PURPLE  12 

♦define  GREEN  16 

♦define  OTHER_WHITE  18 

♦define  WHITE  18 

♦define  BROWN  20 

♦define  background_color  PURPLE 

♦define  text_color  YELLOW 

♦define  border_color  RED 

♦define  box_color  YELLOW 


COPY 


Purpose:  Copy  copies  a comp  or  a group  into  a new  comp  or  group. 
Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  1/20/89 


Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

External  Interfaces 

as](()  — prompts  the  user  for  a string 

new{)  — creates  a new  comp  or  group 

putStrWithBlue  ()  — puts  the  name  on  status  line  in  bubble 

save{)  --  saves  the  current  comp/group  to  disk 

switch  named  — changes  the  comp  name  in  its  header 

*****  *T  ***************★★**•***'**************'***********************/ 

♦include  "code .h" 


copy  () 

char  reply [200] , /*  a temp  string  */ 

oldName [MAX_NAME_LEN] , /*  a place  to  hold  the  new  name  */ 
pathOldGroup [PATH_LEN] , /*  the  path  for  the  old  group  */ 

pathNewGroup [PATH_LEN] ; /*  the  path  for  the  new  group  */ 

int  oldNumber;  /*  Used  to  store  the  number  of  comps  */ 

/* 

* See  if  they  want  to  copy  a comp  or  a group 
*/ 

if (ask ("Make  copy  of  this  (C)omp#  (G) roup,  or  just  (Q)uit  this?", GREEN, reply) --DEFAULT |[ 
reply [0]  'Q'  II  reply[0]  — 'q') 

return  (ERROR) ; 

if (reply [0]  — 'G'  ||  reply[0]  — ' g' ) 

{ 

/* 

* First  off,  let's  build  some  paths  to  the  source 

* groups  files,  so  we  can  copy  them  later  on  into 

* the  destination  groups  files 
**★***********★*★**★***★*************************/ 

sprintf (pathOldGroup, " %s/%s" , CodeGroups, GroupName) ; 

f* 

* Get  the  name  of  the  comp  the  user  wishes 

* to  copy  from  from  get_new_name . 

* ★a**************-***"**********************"*******/ 
st rcpy (oldName,  GroupName); 

oldNumber  • GroupNumber; 
if  (get_new_name ("Group",  GroupName)) 
return; 

/* 

* Copy  the  comps  from  the  old  group  into  the  new  one. 

* Note  that  GroupName  was  modified  in  get_new_name () 1 
*/ 

sprintf (pathNewGroup, "ls/%s", CodeGroups, GroupName) ; 
if(mkdir  (pathNewGroup,  511)) 

( 

ask("C0DE  is  unable  to  make  the  new  directory  - copy  aborted. \nHit  [RETURN]  to  continue" , RED, reply) ; 
strcpy  (GroupName,  oldName) ; /*  Undo  the  damage  */ 
return  (ERROR) ; 

} 

inform  ("Copying  PURPLE); 

sprintf (reply, "cp  %s/*  %s>/tmp/tart  2>>/tmp/code .err", pathOldGroup, pathNewGroup) ; 

/* 

* If  we  fail  to  copy  the  files  we  should  go  back  to  the 

* original  configuration. 

*/ 

if (system (reply) !~0) 

{ 

ask ("CODE  is  unable  to  copy  the  files  into  the  new  directory;copy  aborted . \nHit  [RETURN]  to  continue" 

, RED, reply) ; 

strcpy  (GroupName,  oldName);  /*  Undo  the  damage  */ 
return  (ERROR) ; 

) 

/* 

* Since  we  had  a successful  copy,  copy  the  group 

* info  from  the  old  group  into  the  new  group,  and 

* copy  the  GroupName  into  the  Grouplnfo. 

*/ 

GroupNumber  - NumOfGroups++; 

Grouplnfo [GroupNumber]  * Grouplnfo [oldNumber] ; 
strcpy (Grouplnfo [GroupNumber] .name,  GroupName) ; 

/* 

* Paste  the  new  group  name  up  on  the  status  line 
*/ 

putStrWithBlue (GroupName,  0.75);  /*  string,  norm  x */ 
save  ()  ; 

) 

/* 

* else  they  want  to  copy  a COMP 
*/ 

else  if(reply[0]  --  ' C'  ||  reply[0]  — 'c') 

{ 

/* 


* 


★ 


: copy .c 

Get  the  name  of  the  comp  the  user  wishes 
to  copy  from  from  new{),  but 
remember  to  keep  the  old  name  around  for 
use  in  the  call  to  switch_name () . 


V 

strcpy (oldName,  CompName) ; 
oldNumber  - CompNumber; 
if  (get_new_name  ( "Comp" , CompName)) 
return; 

inform  ("Copying  PURPLE); 

/* 

* Switch  the  old  name  which  is  in  the  comps  header 


V 

if  (switch_name  (oldName)  »-  ERROR) 

ask ("An  error  occurred  while  changing  the  name.NnHit  [RETURN]  to  continue" 

/* 

* Copy  the  old  comp  info  into  the  new  comp  info, 

* copy  the  CompName  into  the  Complnfo 

* and  increment  the  NumOfComps. 

*/ 

CompNumber  ■ NumOfComps++; 

Complnfo [CompNumber ] - Complnfo [oldNumber] ; 
strcpy (Complnfo [CompNumber ] .name,  CompName); 

/* 

* Paste  the  group  £ new  comp  name  up  on  the  screen 

V 

putStrWithBlue (CompName,  0.8823);  /*  string,  norm  x */ 
putStrWithBlue (GroupName,  0.75);  /*  string,  norm  x V 


RED, reply) 


/* 

* Save  the  resulting  new  comp 

V 

save ( ) ; 

Inform  ("Copy  Complete",  PURPLE,  2); 
clearWAO  ; 


} 


return  (OK) ; 


SWITCH_NAME 

Purpose:  Switch_name  goes  through  the  comp  string  and  changes 
the  old  name  to  the  new  name.  This  routine  puts  the  comp  into 
a string  until  it  finds  the  CompName,  then  it  passes  the  comp 
name,  and  puts  the  rest  of  the  Comp  in  another  string.  When 
finished  doing  this,  it  copies  the  first  part  of  the  comp  into 
Comp,  then  cats  the  new  comp  name  into  Comp,  then  finally, 
cats  the  second  part  of  the  comp. 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  1/8/88 

1/20/89  rewritten,  TAH 


Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 

a***************************************************************/ 

#def ine  MAX_HEAD_LEN  300 
switch_name  (oldName) 
char  oldName []; 

int  i,  /*  Index  into  the  Comp  string  */ 

1,  /*  Index  into  onePartOfComp  */ 

r,  /*  Index  into  otherPartOfComp  */ 

k,  /*  Index  into  oldName  */ 

nameLength;  /*  The  length  of  the  comp  name  */ 

char  temp [40],  /*  Debug  */ 

onePartOfComp [MAX_HEAD_LEN] , /*  Comp  string  before  oldName  */ 

otherPartOfComp [MAX_COMP__LEN] , /*  Comp  string  after  oldName  V 
foundName-FALSE;  /*  Flag  */ 


/* 

* Get  the  length  of  the  comp  name 

V 

nameLength  ■ strlen  (oldName) ; 

/* 

* Process  through  the  Comp  string  looking 

* for  the  old  comp  name. 

*/ 

i-k-l»r*0; 

while  (Comp[i]  !»  0 (£  i < MAX  COMP_LEN ) 

{ 

/* 

* If  we  have  not  yet  found  the  name 

* then  continue  to  look  for  it. 

*/ 

if ( ! foundName) 

( 

/* 

* If  we  don't  find  the  comp  name  in 

* MAX_HEAD_LEN  chars  then  let's  return 
*/ 

i f ( i > -MAX_HEAD_LEN ) 
return  ERROR; 


/* 

* Add  a char  from  the  Comp  string  to 

* a string  called  onePartOfComp. 

*/ 

onePartOfComp [1++]  - Comp[i]; 

/* 

* If  we  find  a match,  see  if  its  the 

* last  char  match  we  need  to  make. 

*/ 

if (oldName [k]  Comp[i++]) 


/* 

* If  we  have  matched  nameLength  chars  then 

* we  have  found  the  old  name. 

*/ 

if  (++k,  -•  nameLength) 

{ 

onePartOfComp [ 1-nameLength]  * 0;  /*  terminate  */ 
foundName  * TRUE; 

) 

) 

else  k = 0;  /*  reset  the  matched  letter  counter  */ 

} 

/* 

* Now  that  we  have  found  the  comp  name  let  us 

* gather  up  the  rest  of  the  Comp  string 

* into  another  string. 

*/ 

else  otherPartOfComp [r++]  * Comp[i++]; 

) 

otherPartOfComp [r]  - 0;  /*  terminate  */ 

/* 

* Copy  the  half  preceding  the  old  comp  name  into  Comp,  then  cat  the 

* the  new  comp  name  onto  that,  and  add  in  the  otherPart  of  the  comp 
*/ 

strcpy  (Comp,  onePartOfComp) ; 
strcat  (Comp,  CompName) ; 
strcat  (Comp,  otherPartOfComp) ; 

) 


This  is  the  shuttle  cursor! 


static  short  Shuttle [16]  • [ 

OxeOOO,  0x9000,  0xb800,  0x7c00, 
0x077e,  0x07bc,  0x03db,  0x03e2, 


cursor.h 


Ox3fOO,  OxlfcO,  OxOfff,  OxOfff, 
0x03ec,  0x03c8,  0x03b2,  0x0321 


); 

/***********  ******  ********** 

This  is  the  help  cursor! 

****************★***********/ 
static  short  Help[16]  - { 

Oxffff,  0x8001,  0x83cl,  0x87el,  0x8c31,  0x8c31,  0x8061,  0x80cl, 

0x8181,  0x8181,  0x8181,  0x8001,  0x8181,  0x8181,  0x8001,  Oxffff 

} ; 

/*************************** 

This  is  the  list  cursor! 

★a**************************/ 
static  short  List [16]  « { 

0x8eee,  0x84a4,  0x8484,  0x8484,  0x84e4,  0x8424,  0x8424,  0x84a4, 

0xeee4,  0x0000,  Oxfffe,  0x0004,  0x0008,  0x0000,  0x0000,  0x0000}; 

/********★****************** 

This  is  the  font  cursor! 
a***************************/ 
static  short  FontCurs[16]  - { 

0xfc20,  Oxf c70,  0xc0a8,  0xc020,  0xc020,  0xc020,  0xf820,  0xf820, 

0xc020 , 0xc020,  0xc020,  0xc0a8,  0xc070,  0xc020,  0x0000,  0x0000}; 


DELETE 


Purpose:  Delete  removes  the  last  token  in  the  Comp  string. 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  5/19/87 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 


External  Interfaces 


getTokenLen {) 
dcrVarList {) 
ask() 
delete  () 
lookBackJack () 


returns  the  length  of  a given  token 
— - decriments  the  occurence  count  for  a variable 
prompts  the  user  for  a char  string 
look  up  bub! 

— check  whether  prev  paren  is  preceded  by  function 


♦include  "code.h" 


delete  {) 

{ 


int  compLength,  /*  length  of  the  comp  */ 

tokenLength,  /*  length  of  the  token  */ 
i,  /*  index  into  Comp  */ 

tokenNumber , /*  the  number  of  the  token  to  delete  */ 

j;  /*  index  into  var_temp  */ 


char  var_temp[MAX_VAR_LEN] , /*  the  variable  to  delete  */ 

message [ 1 6 9] , /*  a message  string  */ 

reply [50];  /*  for  user  reply  in  ask  */ 


tokenNumber  - PrevChoice  [ChoiceCounter  - 1 ] ; 
tokenLength  - getTokenLen (tokenNumber) ; 
compLength  - strlen  (Comp) ; 


/* 

* If  the  token  is  a variable  we  need 

* to  find  and  index  to  its  first  char. 

*/ 

if  (tokenNumber  *»  MSID  ! I tokenNumber  — SIGNAL  I | tokenNumber  — LOCAL) 

( 

/* 

* Copy  the  variable  into  a temp  string 

V 

for  ( j-0, i-compLength-tokenLength+1; KcompLength; i++) 
var_temp [ j++]  - Comp[i]; 
var_temp[jj  - 0;  /*  terminate  string  */ 

/* 

* Decrement  the  occurrence  of  this  variable 

* or  delete  if  last  one. 

V 

dcrVarList  (var  temp) ; 

} 

/* 

* Shorten  up  the  CODE  comp  string  to  its  new  more 

* diminutive  stature. 

*/ 

Comp (compLength  - tokenLength]  - 0; 

ChoiceCounter — ; 

NeedToSave  - TRUE; 


/* 

* Reset  some  global  flags  c counters 
*/ 

if (tokenNumber  « IF) 

{ 

WhereAmI  - CONSEQUENCE; 

Equation  * RHS; 

NumberOf If s--; 

) 

else  if  (tokenNumber  «*  THEN) 

( 

WhereAmI  - PREMISE; 

Equation  ■ RHS; 

) 

else  if  (tokenNumber  *■  AND  I 1 tokenNumber  -»  OR  I ! 
tokenNumber  « SET  I ( tokenNumber  — ELSE) 

{ 

Equation  - RHS; 

/* 

* Reset  this  NestedElseCheck  so  that  ELSE  is 

* enabled  in  next_inputs 
*/ 

if (tokenNumber  -*  ELSE) 

NestedElseCheck [NumberOf If s-NumberOfEndifs]  * THEN; 

} 

else  if (tokenNumber  **  END_IF) 

{ 

Numbe  r 0 f End i f s — ; 

Equation  - RHS; 

) 

else  if  (tokenNumber  ««  R_ PAREN) 

{ 


ParenCount++; 


/* 

* Call  to  lookBack Jack {)  looks  backwards  to  see 

* whether  or  not  we  are  inside  of  a function. 

V 

if  (FuncParenCount  > 0 II  lookBackJack  {) ) 
FuncParenCount++; 


} 

else  if  (tokenNumber  — L_PAREN) 

{ 

ParenCount--; 

/* 

* If  we  are  working  inside  of  a function  expression 

* we  need  to  maintain  its  paren  count  as  well 
*/ 

if  (FuncParenCount  > 0) 

FuncParenCount — ; 


/* 

* If  the  previous  choice  is  a function  then  delete  it 

* also  since  it  is  linked  to  this  left  paren. 


V 

if  (PrevChoice [ChoiceCounter-lJ 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-13 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
delete  () ; 


.. 

NOT 

1 1 

« 

COS  | 

! 

» 

ACOS 

1 1 

u 

SIN  | 

1 

-- 

AS  IN 

1 1 

— 

TAN  | 

1 

ATAN 

1 1 

POWER  | 

I 

« 

LOG 

» 

EXP  1 

1 

-- 

FUNCTION 

1 1 

MM 

SQRT) 

} 

else  if  (tokenNumber  »•  EQ  M 

tokenNumber  ■»  LT  II  tokenNumber  — GT  II 
tokenNumber  **  LE  | | tokenNumber  GE  I I 


tokenNumber  --  NE) 


( 

Equation  ■ LHS; 
NumberOf Compares — ; 

) 


co. 


delete.c 


/*★*»** **********  ********************************************** 
lookBackJack 

This  is  a short  routine  which  looks  back  into  the  token  history 
to  see  if  the  paren  we  are  deleting  belongs  to  a function. 
*★*************************************************************/ 
lookBackJack  () 


{ 


int  parenCount,  /*  Number  of  parens  we've  found  so  far  */ 

i;  /*  index  into  PrevChoice  +/ 


i * ChoiceCounter;  /*  start  at  the  end  */ 
parenCount  * 0; 


/* 

* Move  backwards  through  the  token  string  trying  to 

* find  the  match  to  the  paren  we  have  in  our  hand. 
*/ 

do 

{ 

if  (PrevChoice [i]  « R_PAREN) 

{ 

parenCount++; 

} 

else  if  (PrevChoice [ i ] »■  L_PAR£N) 

( 

parenCount-- ; 

} 

} while  (parenCount  > 0 ££  i—  > 0)  ; 


/* 

* If  the  matching  paren  is  just  after  a function, 

* then  return  TRUE. 

*/ 


if  (PrevChoice [i-1]  ™ NOT 

PrevChoice [ i-1]  -»  COS  I 
PrevChoice [i-1]  — SIN 
PrevChoice [i-1]  — TAN 
PrevChoice [ i-1]  “■  LOG 
PrevChoice [i-1]  -•  POWER 
return  (TRUE) ; 
else  return  (FALSE) ; 

} 


| PrevChoice [ i-1]  ««  SQRT  it 
PrevChoice [ i-1]  ■■  ACOS  |j 
|i  PrevChoice [ i-1]  «■  ASIN  II 
II  PrevChoice [ i-1]  « 1 ATAN  || 
||  PrevChoice [i-1]  **  EXP  I I 
||  PrevChoice [i-1]  — FUNCTION) 


dcrVarList 


Purpose:  dcrVarList  decriments  the  occurrence  of  a passed 

variable  if  it  finds  it  in  the  CompVars  structure. 

It  will  also  remove  the  variable  from  the  CompVars 
structure  if  the  occurrence  count  is  0. 

Returns:  0 if  success,  -1  if  variable  not  found. 

Designer:  Troy  Heindel/NASA 

Programmer:  Troy  Heindel/NASA 

Date:  11/20/88 


Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 

★******************★*****★**************************************/ 
dcrVarList  ( variableName) 
char  variableName [ ] ; 

int  i,  j,  index,  /*  loop  counters,  and  indexing  */ 

signal_index;  /*  Index  of  the  signal  in  the  signal  table  */ 


/* 

* Get  the  index  of  the  passed  variable  and  decrement  its 

* occurrence  counter  by  1,  and  remove  it  if  its  the  last 
*/ 

for  (index-0; index<NumCompVars; index++) 

if  (strcmp  (CompVars [index] .name,  variableName)  — 0) 

{ 

/♦a************************************************ 

If  there  are  now  0 occurrences  of  this  variable  we 
we  remove  it  from  the  list  of  comp  variables 
*#***********************★***★**************«******/ 
if  ( — CompVars [index] . occurrence  — 0) 

{ 

for  ( j- index; j<NumCompVars ; j++) 

{ 

strcpy  (CompVars [ j ]. name,  CompVars [ j+1] .name) ; 
strcpy  (CompVars [ j ]. type,  CompVars [ j+1] .type) ; 
strcpy  (CompVars [j] .class,  CompVars [ j+1] . class) ; 

CompVars [ j] . occurrence  - CompVars [ j+1] . occurrence; 

CompVars [j] .put_or_get  - CompVars [ j+1] .put_or_get; 

CompVars [ j ]. lol_l imit  - CompVars [ j+1] . lol_limit; 

CompVars [ j ] . lo2_limit  - CompVars [ j+1] . lo2_limit; 

CompVars [ j ] .hil_llmit  - CompVars [ j+1] .hil_limit; 

CompVars [j] .hi2_limit  - CompVars [ j+1 ] .hi2_limit; 

strcpy (CompVars [ j ] .nomenclature,  CompVars [ j+1] .nomenclature); 

) 

— NumCompVars; 

> 

j ******************************* ********* 

Let's  break  out  since  we  found  it 
***#************************+**+****+****/ 
break; 

) 

) 

return; 


) 


delete.c 


/#***«*•*«***  ♦★★a********************************************** 
getTokenLen 

Purpose : getTokenLen  takes  a token  and  figures  out  its  string 

length,  which  is  needed  for  adding  and  deleting 
tokens, and  retrieving  comps. 

Designer:  Troy  Heindel/NASA 

Programmer:  Troy  Heindel/NASA 

Date:  5/29/87 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 

****************************************************************/ 
getTokenLen  (tokenClass) 

int  tokenClass;  /*  IF, THEN,  ...etc...  */ 

{ 

int  tokenLength, 
compLength, 
i; 


/* 

* Get  the  length  of  the  entire  comp  string 

*/ 

tokenLength  » 0; 
compLength  - strlen  (Comp) ; 

/* 

* PRINT  (case  1) 

V 

if (tokenClass  **  PRINT) 

{ 

/* 

* Find  both  sets  of  double  quotes 
*/ 

for  (i-0;i<2;i++) 

( 

/* 

* Move  backwards  finding  double  quotes 
*/ 
do 
{ 

tokenLength++; 

compLength--; 

} while  (Comp [compLength]  !-  (6  compLength); 

> 

/* 

* Add  8 for  ' print#  ' 

*/ 

compLength  — 0; 
tokenLength  +-  8; 

/* 

* Move  backwards  finding  the  previous  token 

V 

while  ( (Comp [compLength- 1]  ■■  9 9 II  Comp [compLength- 1]  ■-  ' \n' ) &£ compLength) 

( 

tokenLength++; 
compLength—  ; 

) 

) 

/* 

* COMMENT  (case  2) 

*/ 

else  if (tokenClass  *»  COMMENT) 


delete.c 


/* 

* Find  the  start  comment  delimiter  9 /*' 


*/ 

do 


{ 

tokenLength++; 
compLength- - ; 

} while  ( ( ! (Comp [compLength]  — '/'  i*  Comp [compLength+1]  — '* 

) 

/* 

* STRING  (case  4) 


*/ 

else  if (tokenClass  **  STRING) 

{ 

/* 

* Find  both  sets  of  double  quotes 
*/ 

for  ( i-0; i<2 ; i++) 

{ 

/* 

* Move  backwards  finding  double  quotes 
*/ 
do 
{ 

tokenLength++; 

compLength--; 

} while  (Comp [compLength]  I-  &&  compLength); 

} 


/* 

* Add  one  for  the  space  just  before  it 
*/ 

tokenLength++; 
compLength — ; 

} 

/* 

* EVERYTHING  ELSE 

* This  else  handles  single  word  tokens. 

* i.e.  not  special  case,  e.g.  'if' 

V 

else 

{ 

/* 

* Count  up  the  chars  in  the  char  part 

*/  ' 

while  (Comp [compLength]  !»  ' ' &£  Comp [compLength]  !=  ' \n'  £& 

{ 

tokenLength++; 
compLength-- ; 

} 


/* 

* Count  up  the  chars  in  the  indent  part 
*/ 

while  (Comp [compLength-1]  ■»  9 9 II  Comp [compLength- 1] 

( 

tokenLength++; 
compLength — ; 

) 

} 

return  (tokenLength) ; 


' \n 


' ) ) SScompLength) 


compLength) 


compLength) 


demorgans.c 

DEMORGANS 


Purpose:  DeMorgans  converts  a comp  into  a form  that  Troy's 

CLIPS  help  routine  can  deal  with.  Basically,  it  just 
puts  double  quotes  around  certain  CLIPS  key  words. 


Designer:  J.  Harold  Taylor/SDC 

Programmer:  J.  Harold  Taylor/SDC 


Date:  12/11/86 


Version : 1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Harold  Taylor  1-21-87 

Added  double  quotes  around  ' ('  and  ')' 


External  Interfaces 

if***************************************************************/ 

#include  <ctype.h> 

demorgans  (the_comp) 
char  *the_comp; 


char  temp_comp [1000] , end_string [1000] ; 
int  i,j,  string_counter,  start_of_comp; 
char  ch,  new_ch,  temp(1000],  token[300]; 

reset_clips  (); 
temp_comp[0]  - 'NO'; 
end_string[0]  - 'NO'; 

strcpy  (temp_comp,  the_comp) ; 

/*  First  we  need  to  strip  all  of  the  header  stuff  from  the  comp 
start_of_comp  - 0; 
string_counter  - 0; 
temp[0]  * 'NO'; 
i * 0; 

while  { ! start_of_comp) 

{ 

ch  - temp_comp [i] ; 
i++; 

if  (ch  « ' \n' ) 

{ 

ch  - temp_comp [ i ] ; 

/*  if  we  find  a newline  followed  by  an  ' i'  */ 

/*  then  we've  found  the  start  of  the  comp  */ 
if  (ch  --  ' i' ) 

{ 

start_of_comp  - 1; 

/*  Build  a new  string  without  the  header  */ 

/*  stuff  in  it  V 

while  (temp_comp (!]  !-  '\0') 

{ 

temp [string_counter]  - temp_comp [ i] ; 
string_counter  ++; 

i++; 

} 

temp [ st ring_counter ] - 'NO'; 

) 

) 

} 

strcpy (temp_comp,  temp); 
print f ("N033GCNn"); 


demorgans.c 


strcpy (end_atring, 

while  (temp_comp [i]  !-  '\0') 

/*********•********************************** 

Set  token  equal  to  the  temp_comp  until  you  hit  a 

space  or  line  feed. 

*★+****************★************************/ 
for  ( j-0; { (iscntrl £temp_comp [i] ) — 0)  65 

(isspace (temp_comp [ i] ) — 0));j++,i++) 
token  [j]  = temp_comp [ i] ; 
token ( j ] - ' \0 ' ; 

/************************************* 

Now  if  the  token  is  one  of  the  special 
tokens  that  clips  needs  to  know  about 
mark  it  with  double  quotes. 
**★***★*****■★*★**********************/ 
if  (strcmp (token, **  0) 

strcat  (end_st ring, "\042-\042") ; 
else  if  (strcmp  (token, "(”)  0) 

strcat  (end_string, n\042 (\042") ; 
else  if  (strcmp  (token,”)")  »-  0) 

strcat  (end_string, ”\042) \042") ; 
else  if  (strcmp  (token, ">")  ■-  0) 

strcat  (end_string, "\042>\042") ; 
else  if  (strcmp  (token, ">»”)  **  0) 

strcat  (end_string, "\042>»\042" } ; 
else  if  (strcmp  (token, "<")  *■  0) 

strcat  (end_string, ”\042<\042") ; 
else  if  (strcmp  (token, "<-")  » 0) 

strcat  (end_st ring, "\042<=\042" ) ; 
else  if  (strcmp  (token, "<>” ) — 0) 

strcat  (end_string, "\042o\042")  ; 
else  if  (strcmp  (token, " + ")  — 0) 

strcat  (end_string, "\042+\042")  ; 
else  if  (strcmp  (token,"-")  **  0) 

strcat  (end_string, "\042-\042")  ; 
else  if  (strcmp  (token,"/”)  -■  0) 

strcat  (end_string, "\042/\042")  ; 
else  if  (strcmp  (token,"*")  ==  0) 

strcat  (end_string,  "\042*\042”)  ; 

else 

strcat  (end_string, token)  ; 
st rcat (end_string,  " "); 

i++; 


/*  Actually  run  Clips  */ 
assert  (end^string) ; 
run  (-1); 


/*  0 ( #) dir .h 
/* 

* UFS  directory  entry  structure 


20.1  (MASSCOMP)  5/5/87  compiled  3/16/80  */ 


*/ 

#ifndef  UFS_DIRSIZ 
Idefine  UFS_DIRSIZ  14 
#endif 

struct  ufs_direct 

{ 

ino_t  d_ino; 

char  d_name [UFS_DIRSI2] ; 

}; 
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EDIT 


Purpose:  Edit  allows  the  user  to  ved/vi-edit  his  file  within  the 
Work  Area  window. 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  4/5/87 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 


ask()  — prompts  the  user  for  a char  string 

informO  — display  text  in  the  message  window 

changeFont ()  — change  text  font  for  selected  window 

********************************************************* *******/ 
♦include  "code.h" 

♦include  "color. hM 

♦include  <termio.h>  /*  used  for  setting  up  the  keyboard  */ 

struct  termio  orig_tty;  /*  used  for  setting  up  the  keyboard  */ 

struct  termio  raw_tty;  /*  used  for  setting  up  the  keyboard  */ 


temp [400],  /*  Text  message  repository  */ 

editor[10],  /*  The  name  of  the  editor  (ved/vi)  */ 

highLevelFile [PATH_LEN],  /*  Path  for  CODE  lang.  file  */ 
compVarsFile [PATH_LEN] , /*  Path  for  comp  variable  file  */ 

compCFile [PATH_LEN] , /*  Path  for  comp  translation  file  */ 

groupCFile [PATH_LEN] ; /*  Path  for  the  group  source  file  V 


* Allow  the  user  to  choose  their  editor  (ved  or  vi) . 

*/ 

do 

{ 

if (ask ( "Would  you  like  to  use  the  vi  or  ved  editor,  or  just  (Q)uit  this?", GREEN, editor) --DEFAULT) 
strcpy  (editor,  "ved"); 
if  (editor [0]  — 'q'  |j  editor [0]  — 'Q') 
return (OK) ; 

) while  (strcmp  (editor,  "vi")  !-  0 &&  strcmp  (editor,  "ved")  !-  0); 


edit  () 

( 

char 


clearWAO  ; 


/* 

* Create  absolute  paths  to  the  high  level, 

* variable,  comp  C,  and  group  C files. 

*/ 

sprintf  (highLevelFile,  "%s/%s/%s .h" , CodeGroups,  GroupName,  CompName) ; 
sprintf  (compVarsFile,  "%s/%s/%s . v",  CodeGroups,  GroupName,  CompName); 
sprintf  (compCFile,  "%s/%s/ls .c",  CodeGroups,  GroupName,  CompName); 
sprintf  (groupCFile,  "%s/ls/%s . c",  CodeGroups,  GroupName,  GroupName); 

/* 

* Let's  show  our  guests  know  what  is 

* behind  curtain  number  A,  B,  C,  D 
*/ 

inform ("Editor  buffers>  A:high  level,  B: variables,  C:C  file.  Digroup  C file" , PURPLE, 0) ; 

/* 

* Go  to  a smaller  font  in  order  to  avoid  the  dreaded  window 

* wrap  and  header  problems. 

*/ 

changeFont  (WORK_AREA,  MEDIUM) ; 


*/ 


*/ 


printf  ("\033GE\n") ; 
printf  ("\033Gc\n") ; 


/*  Select  work  area  window 
/*  Turn  text  cursor  on 


printf 

printf 


("\033Gb\n" ) , 
("\033  [H\n" ) , 


edit.c  :J||§ 

/*  Select  blinking  cursor  V 
/*  Place  cursor  in  Home  position*/ 


* Let  the  user  know  they  are  in  a different  kind  of  place  by 

* redrawing  the  window  in  black;  very  scary. 

*/ 

mgihue  (BLACK) ; 

mgrbox  (0.1573,  0.0620,  0.9990,  0.9100); 

mgihue  (YELLOW) ; 


/* 

* Go  to  original  tty  mode  for  edit  inputs. 
*/ 

ioctl  (fileno  (stdout),  TCSETAW,  iorig_tty) ; 
ioctl  (fileno  (stdout),  TCFLSH,  0); 


* Make  the  system  call  which  calls  the  editor,  checking,  of 

* of  course,  for  errors. 

*/ 

sprintf  (temp,  ”1 s %s  %s  %s  %s  2>>/tmp/code .err”,  - «itor,  highLevelFile,  compVarsFile, 
compCFile,  groupCFile) ; 
if  (system  (temp)  »-  ERROR) 

^ ask ("Unable  to  complete  system  call  - Hit  [RETURN]  to  continue" , RED, temp) ; 

) 

/* 

* Go  back  to  raw  mode. 

* Re-draw  the  Work  Area  and  Keyboard  Input  Area  in  blue, 

* re-draw  the  Yellow  lines  that  seperate  the  windows, 

* turn  the  text  cursor  off.  Clear  the  Window. 


V 

ioctl (fileno (stdout) , TCSETAW,  *raw_tty) ; 


mgihue  (BLUE) ; 
mgrbox  (0.1573, 
mgrbox  (0.1573, 
mgihue  (YELLOW) ; 
mgrl  (0.1563,  0.0800, 
mgrl  (0.1563,  0.1600, 
printf  ("\033Gac\n") ; 
printf  ("\033[2J\n") ; 


0.0010,  0.9990,  0.9100); 
0.0810,  0.9990,  0.1580); 


1.0000,  0.0800); 
1.0000,  0.1600); 


/*  Work  Area  */ 

/*  Keyboard  input  area  */ 

MESSAGES /PROMPTS  Title  Line  */ 
KEYBOARD  INPUT  Title  Line  */ 


Turn  text  cursor  off 
Clear  the  Work  Area  */ 


getjieader.c 


/**+**r**+ *********************************************** * *** * 

GET  HEADER 


Purpose:  Get_header  gets  the  header  info  on  a new  comp. 
Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  5/17/87 


Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

External  Interfaces 

cleanSlateO  — Initializes  global  variables. 
displayWAO  — displays  a string  in  the  work  area  window 
ask()  — Prompt  the  user  for  keyboard  input 

***************  + ★**★*  + *★********** ****★★★****★★*★**★*  ***★★*★****/ 

♦include  <time.h> 

♦include  <pwd.h> 

♦include  "code.h" 

get_header  0 

< 

long  int  timesec, days, hrs, mins, secs;  /*  used  in  time  calculations  */ 
int  getuid  () ; /*  UNIX  routine  to  get  user  information  */ 
char  time_atr [50] ; /*  String  to  build  time  with  */ 

struct  passwd  *getpwuid  {) ; /*  UNIX  routine  to  get  user  information  */ 
struct  passwd  *userwpass;  /*  A structure  to  put  the  user  info  into  */ 
extern  int  time{);  /*  time  subroutine  */ 


/* 

* Initialize  variables. 
*/ 

cleanSlate  {} ; 


/* 

* Append  the  current  time  to  the  Comp  string. 

*/ 

strcpy  (Comp,  "/********************* *********************************************\n"); 
timesec  * time(0); 
days  - timesec/86400; 
hrs  - t imesec/3600; 
mins  - timesec/60; 
secs  * timesec  - mins*60; 
mins  - mins  - hrs*60; 
hrs  - hrs-days*24; 
hrs  * hrs  - 5; 

sprint f (time_str, "%03d:%02d:%02d:%02d", days, hrs, mins,  secs)  ; 
strcat  (Comp,"  Creation  Time:  ") ; 
strcat  (Comp,  time_str) ; 

/* 

* Append  the  user's  name. 

*/ 

strcat  (Comp,  " Author:  ") ; 
user_pass  - getpwuid  (getuid () ); 
strcat  (Comp, user_pass->pw_gecos) ; 
strcat  (Comp, *\n") ; 

/* 

* Append  the  group  fc  comp  names. 

V 

strcat  (Comp,"  Group  Name:  "); 
strcat  (Comp,  GroupName) ; 
strcat  (Comp, "\t\t  Comp  Name:  "); 
strcat  (Comp,  CompName) ; 
strcat  (Comp,  "\n"); 

/* 


Append  the  purpose  to  the  Comp  string  within 


getjheader.c 

*/ 

strcat  (Comp,  " Purpose:  ") ; 
displayWA (Comp) ; 

ask("What  is  the  purpose  of  this  computation?", GREEN, Complnfo [CompNumber] .purpose) ; 
strcat  (Comp, Complnfo [CompNumber] .purpose) ; 

rca t (Comp  n\fl***************,*****,***’********'*****'********'*****,******************/n) 

/* 

* Set  the  PrevChoice  to  COMMENT  since  the  header  is  just 

* a large  comment . 

*/ 

PrevChoice [ChoiceCounter++]  - COMMENT; 

NeedToSave  * TRUE; 


the  global  Complnfo  structure. 


} 


if 

{ 


(strcmp  (theType,  "Comp")  — 0) 

/* 

* If  there  is  only  one  comp,  then  it  is  the  one 

* and  we  return  with  It 
V 

if (num0fltems<2) 

{ 

strcpy  (nameToGet,  Complnfo [0] .name) ; 
*numToGet  - 0; 
return  OK; 

) 


/* 

* If  there  are  more  than  one  comps,  then  put  their 

* names  into  a temp  struct  for  viewing  purposes. 

*/ 
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for  ( i»0;i<numOf Items; i++) 


strcpy  (nameList [i] .name,  Complnfo [ i ] . name) ; 
nameList [i] .disposition  - Complnfo [ i] . disposition; 


} 

else  if  (strcmp  {theType,  "Group")  — 0) 

{ 

/* 

* If  there  is  only  one  group,  then  it  is  the  one 


V 

if (numOf Items<2) 

{ 

/* 

* Read  in  the  comps  associated  with  this  group. 

*/ 

strcpy  (nameToGet,  Grouplnfo [0] . name) ; 

"numToGet  * 0; 
readCompNames () ; 
return  OK; 


) 


* If  there  are  more  than  one  groups,  then  put  their 

* names  into  a temp  struct  for  viewing  purposes. 

*/ 

for  { i-0 ; i<numOf Items; I + + ) 

{ 

nameList [ i 3 * Grouplnfo [ i] ; 

} 

) 

else 

{ 

/* 

* This  case  should  never  happen. 

V 

sprint f (message, "get_name : Recieved  Invalid  argument  ' %s' ", theType) ; 
inform (message, RED, 4 ) ; 
return  (ERROR) ; 

) 

/* 

* Display  the  names  in  the  Work  Area 
*/ 

fmtList [0]  - 0;  /*  clean  of  the  string  */ 

sprintf  (fmtList,  "\t\t\tList Ing  of  Available  %3s\n\n",  theType); 

sprintf (message,"#  %s  Name  Diposition  # %s  Name  Diposition  # %s  Name  Disposition^" , theType,  theTy 
pe, theType) ; 

strcat  (fmtList,  message); 

strcat  (fmtList , * ”■■■*■■■■  »»»=««»*»■  ””  ***««»■»  — - \n  ); 

for  ( j-1; j<-numOf Items ; j++) 

( 

if  (j  % NUMPAGECOLS) 

sprintf  (big_str,  "(%d)  ",  j) ; /*  Build  group  number  */ 

if  (j<10)  strcat  (big_str,  " ") ; /*  Justify  one  digit  numbers  V 

strcat  (big_str,  nameList [ j-1] .name) ; /*  The  group  name  */ 
for  (k-strlen (big_str) ;k<16;k++)  /*  Add  some  filler  spaces  */ 

strcat  (big_str,  " ") ; 

if  (nameList ( j-1 ]. disposition  — — INCOMPLETE) 
sprintf  (message,  "INCOMPLETE"); 
else  if  (nameList [ j-1] .disposit ion  — COMPLETE) 
sprintf  (message,  "COMPLETE  ") ; 
else  if  (nameList [j-1] .disposition  — ERROR) 
sprintf  (message,  "ERROR  "); 

else  sprintf  (message,  "INSTALLED  ") ; 
strcat  (big_str,  message); 
strcat  (fmtList,  big_str) ; 
for  (k-strlen (big_str) ;k<28;k++) 
strcat  (fmtList,  " ") ; 

} 

else 

{ 

sprintf  (big_str,  " (%d)  ",  j); 

if  (j<10)  strcat  (big_str,  " ") ; 
strcat  (big_str,  nameList [ j-1] .name) ; 
for  (k-strlen (big_str) ;k<16;k++) 
strcat  (big_str,  " ")  ; 


get_name.c 

ir<nameLi3t[j-l].di3P03ition  — INCOMPLETE) 
sprintf  (message,  " INCOMP LETE\nM)  ; 
else  if  (nameList [ j-1] .disposition  **  COMPLETE) 
sprintf  (message,  "COMPLETE\n" ) ; 
else  if  (nameList [j-1] .disposition  -=  ERROR) 
sprintf  (message,  "ERROR\n") ; 
else  sprintf  (message,  " INSTALLED \n" ) ; 

strcat  (big_str,  message) ; 
strcat  { fmtList , big_str) ; 

} 

) 

clearWA  {)  ; 
displayWA (fmtList) ; 

/* 

* Get  the  number  of  the  name  from  the  user,  until 

* they  get  it  right. 

V 

do 

( 

sprintf (message,  "Please  type  the  %s  number,  or  (Q)uit  this",  theType) ; 
rc  - ask (message, GREEN, reply) ; 

/* 

* If  they  want  to  quit,  clean  up  and  return 

V 

if  (reply [0]  — 'q'  II  reply[0]  — 'Q') 

{ 

clearWA ()  ; 
return (ERROR) ; 

} 

/* 

* If  the  just  hit  return,  then  give  them  the 

* first  comp  or  group  In  the  list,  otherwise 

* atoi()  their  reply  to  get  chosen  number. 

*/ 

if (rc*»DEFAULT) 

♦numToGet  - 0;  /*  Default  to  the  first  one  */ 
else  *numToGet  - atoi  (reply)  - 1; 

/* 

* Check  to  see  that  the  number  corresponds  to  a name. 

*/ 

if  (*numToGet  < 0 j | *numToGet  >»  numOf Items) 

{ 

sprintf (message, "The  number  Is  does  not  belong  to  any  Is" , reply, theType) 
inform (message, PURPLE, 2) ; 
rc  * ERROR; 

}- 

/* 

* Now  that  we  know  that  it  is  a good  number  let's  get 

* a name  with  the  number. 

*/ 

else  strcpy  (nameToGet,  nameList [ *numToGet] . name) ; 

) while  (rc  — ERROR); 
clearWA  () ; 

/* 

* If  theType  is  Group  then  read  in  the  comps  associated 

* with  the  group. 

*/ 

if(strcmp  (theType,  "Group")  — 0) 
readCompNames () ; 


return  (OK) ; 


static  char 


SccsIdU  - 


"8 (#) getwd. c 2 .2 


* Function:  getwd 

★ 


* Entry  specification: 

* char  *getwd (work_area) 

* char  *work_area; 

* 


8/17/80 


08^51: 


* Description: 

* This  function  finds  the  current  directory,  it  is  based  on  the  UCB  getwd () 

* routine.  It  was  written  to  temporarily  replace  the  same  function  In  the 

* Masscomp  C library  (which  had  severe  problems  on  certain  machines) . 

* 

* 

* Inputs: 

* work  area  Pointer->  work  space  to  build  path 

* 

* Returns:  Pointer->  work  area  with  completed  path 


* External  references: 

* stat()  fstatO 

* bcopyO 

* openO  read()  write  ()  close  () 

* chdirO 

* strinsO  strlenO 

* exit<) 

* 

* 

* Resources  used:  None 

* Limitations:  None 

* Assumptions:  None 

* 

* 

* Written  by:  Tom  Silva,  Bruce  G.  Jackson  & Associates 

* 

* Traceability: 


* Version  Date  Description 

* 

* 1 . 0 07/01/87  initial  version 

* 1.1  08/01/88  modified  for  compatabilty  with  RTU  4.0  AA 

* 

* Notes:  None 

*  V 


/* 

* Includes. 

*/ 

♦include  <fcntl.h> 

♦Include  <sys/types .h> 

♦include  <sys/stat.h> 

♦include  "dir.h"  /*  AA  */ 

♦define  direct  ufs_direct  /*  AA  */ 

♦define  DIRSIZ  UFSJ3IRSIZ  /*  AA  */ 

/* 

* Local  definitions  of  variables,  structures,  and  compiler  directives 

* which  are  "owned"  by  this  file. 

V 

union  safe_dir 

{ 

struct  direct  entry; 

char  filler [sizeof (struct  direct)  + 4]; 

); 


/* */ 

char  *getwd (work_area) 
char  *work_area; 

{ 

struct  stat  current,  next; 

int  root_device,  root_inode; 

/* 

* Get  the  status  of  the  root  directory  in  order  to  save  it's  device  and 

* inode.  Initialize  the  caller's  string  work  area  to  an  empty  string. 


getwdc 

*/ 

stat ( "/",  ^current); 
root_device  * current . st_dev; 
root_inode  - current . st_ino; 
work_area[0]  * 0; 

/* — 

* Get  the  status  of  the  current  directory, 

* Loop  until  the  current  directory  is  the  root  directory. 

* Copy  the  status  of  the  next  directory  to  the  current  after  every  loop. 

V 

for  (stat  scurrent) ; 

current . st_dev  !-  root_device  M current . st_ino  1-  root_inode; 
bcopy(fcnext,  {current,  sizeof  (current ) ) 

) 

{ 

int  nextdir,  same_disk; 
union  safe  dir  dir? 


* Open  then  next  directory  for  reading,  status  it,  then  change  to  it. 

* We  still  regard  'current'  as  the  current  directory  under  test  even 

* though  it's  not  the  true  current  directory  at  this  time. 

* Figure  out  whether  the  next  directory  is  on  the  same  disk  device  as 

* the  current  directory.  This  info  is  needed  inside  the  loop. 

V 

nextdir  - open ("..",  0_RD0NLY) ; 

if  (nextdir  < 0)  bad_news ("getwd:  Can't  open  ..\n"); 
fstat (nextdir,  «next) ; 
chdir (".."); 

same  disk  - (current . st_dev  --  next . st_dev) ? 


* Loop  reading  from  the  next  directory,  try  to  find  the  current 

* directory. 

*/ 

for  {;;) 

{ 

/* 

* Read  one  directory  entry.  Put  it  into  a 'safe'  structure.  The 

* safe  structure  will  provide  padding  on  the  end  just  in  case  we 

* run  into  a 14  character  filename. 

*/ 

if  (read (nextdir,  fcdir. entry,  sizeof (struct  direct))  < sizeof (struct  direct)) 
bad_news ( "getwd : Can't  read  ,.\n"); 

/* 

* If  the  two  directories  are  from  the  same  disk  device  then  all 

* we  do  is  check  the  contents  of  the  next  directory  for  the  inode 

* of  the  current  directory.  Once  we've  found  it  then  we  have  a 

* name . 

*/ 

if  (same  disk) 

( 

if  (dir .entry .d_ino  current . st_ino)  break; 

) 

/* 

* If  the  two  are  from  different  disks  then  the  inodes  in  the  next 

* directory  have  no  relation  to  the  current  directory's  inode. 

* In  this  case  we  must  check  each  of  the  files  in  the  next 

* directory  (which  is  really  the  current  working  directory) . 

* We  do  a status  of  each  file  by  name  (after  correcting  for  any 

* 14  character  names) . If  the  tested  file  has  the  same  inode  AND 

* is  on  the  same  device  as  the  current  directory  then  we've  found 

* the  right  name. 

V 

else 

( 

struct  stat  match; 

dir .entry .d_name [DIRSIZ ] - 0; 
stat (dir .entry ,d_name,  fimatch) ; 

if  (match . st_ino  -»  current . st_ino  & & match. st_dev  — current . st_dev)  break 

) 

} 

/* 

* Close  the  directory  file.  Adjust  the  current  directory's  name  in 


* The  slash  actually  ends  up  In  that  part  of  the  'direct'  structure 

* that  holds  the  inode.  This  coercion  works  as  long  as  that  structure 

* has  the  inode  element  first. 

* Insert  the  new  name  at  the  beginning  of  the  caller's  work  string. 

* The  inserted  name  actually  starts  at  the  slash. 

*/ 

close (nextdir) ; 

dir .entry .d_name [-1]  - 

dir .entry .d_name [DIRSIZ ] - 0; 

strins (work_area,  dir . entry .d_name  - 1); 

} 

/* 

* If  there  isn't  anything  in  the  caller's  string  by  now  then  we're  at  the 

* root  directory,  so  make  the  correct  string. 

V 

if  ( ! work_area [0] ) 

{ 

work_area[0]  * '/'; 
work_area[l]  - 0; 

> 

/* 

* Change  directory  backwards  to  where  we  started,  return  the  address  of 

* the  work  area  to  the  user. 

*/ 

if  <chdir (work_area) ) bad_news ("getwd:  Can't  chdir  back\n") ; 
return  work  area; 


/* 


static  bad_news  (msg) 
char  *msg; 

{ 

write (2,  msg,  strlen (msg) ) ; 
exit (1) ; 

) 


*/ 


^****** ************************************ ******** 
INIT  CODE 


Purpose:  To  initialize  all  flags  and  strings  at  start  of  CODE 
Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  5/14/87 


Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by:  Terri  Murphy 
External  Interfaces 

informO  — display  text  in  the  message  window 
**************★*****★*******************************************/ 
linclude  "code.h" 

♦include  <termio.h>  /*  used  for  setting  up  the  keyboard  */ 

struct  termio  orig_tty;  /*  used  for  setting  up  the  keyboard  */ 

struct  termio  raw_tty;  /*  used  for  setting  up  the  keyboard  */ 

init_code  () 

{ 

char  knowledge_base [ 60 ] , /*  String  to  hold  CLIPS  KB  name  */ 
message [200] , /*  char  string  for  display  */ 

reply [50] , /*  String  for  user  input  */ 

*getenv(),  /*  Used  to  obtain  paths  */ 

listUserFuncs [250] , /*  String  for  storing/listing  user  functions  */ 
AM[PATH_LEN] , /*  path  for  algo  manager  */ 

chi,  /*  chi  & ch2  are  used  for  trashing  the  */ 

ch2;  /*  header  on  the  tag_msid_tbl  file  */ 

int  i,j,  /*  Counters  */ 

re;  /*  A return  code  */ 

FILE  *ptr,  /*  Pointer  */ 

*openFile();  /*  A handy  file  opening  routine  */ 

/* 

* Remove  the  old  system  errors  caused  while  running  CODE. 

*/ 

if (system("rm  /tmp/code . err  2>>  /tmp/code .err") ! -OK) 
inform ("Unable  to  remove  / tmp/code .err", PURPLE, 2) ; 

/* 

* raw  input  set-up 

* 

* Get  the  parameters  associated  with  the  terminal 

* and  store  them  in  both  orig  and  raw. 

* Modify  the  parameters  associated  with  the  raw  mode. 

*/ 

ioctl  (fileno  (stdout),  TCGETA,  4orig_tty) ; 
ioctl  (fileno  (stdout),  TCGETA,  4raw_tty) ; 
raw_tty ,c_lf lag  t-  -(ICANON  | ECHO  | ISIG); 

raw_tty .c_if lag  -{ISTRIP  I IXON  I IXANY  | INLCR  1 ICRNL  | IGNCR) ; 
raw_tty .c_cc [VMIN]  - 1; 
raw_tty .c_cc [VTIME]  - 0; 

ioctl (fileno (stdout) , TCSETAW,  traw_tty) ; /*  Begin  in  raw  tty  mode. 

/* 

* Load  knowledge  base  for  CLIPS 

*/ 

/*  inform("Initializing  CLIPS  Rule  Base. . PURPLE,  2) ; 
strepy  (knowledge_base,  CODE) ; 
streat  (knowledge_base, "/DeMorgan . clp") ; 
init_clips  {); 

load_rules  (knowledge_base) ; 

*/ 


/* 


Set  up  to  paths  which  are  used  in  this  and  other  modules 


V 

rc  - 0; 

strcpy  (RTDS,  getenv ("RTDS") ) ; 
if  (RTDS [ 0]  — 0) 

ask ("An  environment  variable  was  not  found  for  ' RTDS' \nPlease  setup  your  login  file  with  thi 
Hit  [RETURN] ", RED, reply) ; 
return  ERROR; 

) 

sprintf  (SignalTbl,  H%s/tables/signal_tablen , RTDS);  / * file  */ 

sprint f (MSIDTbl , "%s/tables/tag_msid_tbl",  RTDS);  /*  file  */ 

sprintf  (CodeGroups , "%s/rtds/code/groups",  RTDS);  /*  directory  */ 

sprintf  (GroupNamesFi le,  "%s/GroupNames" , CodeGroups);  /*  file  */ 

sprintf  (CodeDocs,  "%s/rtds/code/docs/code_doc",  RTDS);  /*  file  */ 

sprintf  (Code,  "%s/rtds/code" , RTDS);  /*  directory  */ 

sprintf  (UserFuncsLib,  "%s//rtds/lib/libuserfuncs .a",  RTDS);  /*  library  */ 
sprintf  (AM,  "%s/rtds/am" , RTDS)  ; /*  directory  */ 

sprintf  (AMSupport,  "%s/rtds/am/support",  RTDS);  /*  directory  */ 

sprintf  (AMGroups,  "ts/rtds/am/groups" , RTDS);  /*  directory  */ 

/* 

* Let's  check  the  accessibility  of  some  paths  to  see  if  they  exist 

* and  create  them  if  they  do  not,  and  exit  if  we  can  not  create  them. 

*/ 

rc  +-  CheckOrMkdir (Code) ; 
rc  +-  CheckOrMkdir (CodeGroups) ; 
rc  +*  CheckOrMkdir (AM) ; 
rc  +-  CheckOrMkdir (AMSupport ) ; 
rc  +■  CheckOrMkdir (AMGroups) ; 

if (rc)  cleanExit();  /*  Exit  if  we  had  difficulty  */ 


/* 

* Load  the  msid  list  and  info  for  msid  validation  in  put_msid.c 

V 

if (ptr  - openFile  (MSIDTbl, "r", "init_code") ) 

{ 

inform ("Loading  the  MSID  list  into  memory PURPLE, 0) ; 

MSIDCount  - 0; 

/* 

* Rip  the  header  off  the  file 

V 

while  ((  (chi  « fgetc  (ptr))  !-  EOF)  &£  ( ! (chi  « '/'  ««  ch2  — '*'))) 

( 

ch2  - chi; 

} 

/* 

* Loop  through  the  file  filling  the  global  structure  MSIDTable 

* with  all  those  lovely  maid's  and  related  info. 

V 

while  (fscanf  (ptr,"%s  %*c  %*c  %*c  %*c  %*c  %s  **c  %[A\n)",  MSIDTable [MSIDCount ]. name, 
MSIDTable [MSIDCount ] .type, 

MSIDTable [MSIDCount ] .nomenclature)  !-  EOF) 

( 

/* 

* Convert  the  one  character  msid  type  definition 

* to  a full  word  type  definition  which  is  the 

* standard  for  CODE. 

*/ 

if  (MSIDTable [MSIDCount] .type [0]  « 's') 

strcpy  (MSIDTable [MSIDCount ] .type,  "short"); 
else  if  (MSIDTable [MSIDCount) .type [0 ] »•  'i') 
strcpy  (MSIDTable [MSIDCount ] .type,  "int"); 
else  if  (MSIDTable [MSIDCount] .type [0]  — 'S') 
strcpy  (MSIDTable [MSIDCount 3 -type,  "char"); 
else  if  (MSIDTable [MSIDCount) .type [0]  — 'f') 

strcpy  (MSIDTable [MSIDCount ] .type,  "float"); 
else  if  (MSIDTable [MSIDCount] .type [0]  — 'd') 

strcpy  (MSIDTable [MSIDCount) . type,  "double"); 

/* 

* Increment  the  msid  record  counter 
*/ 

MSIDCount ++; 

> 

fclose  (ptr) ; 


* Create  and  execute  the  system  command  which 

* will  create  a file  listing  of  user  functions. 

V 

sprint f (listUserFuncs,  "ar  t %s  > /tmp/user_funcs  2>>/tmp/code .err",  UserFuncsLib) 
system (listUserFuncs) ; /*  If  we  can't  do  this,  who  cares!  */ 

/* 

* Now  create  a path  for  the  file  to  be  read 
*/ 

strcpy  (listUserFuncs,  n/tmp/user_funcs")  ; 


if 
{ 

) 

else 

{ 


Open  the  newly  created  file  /tmp/user_funcs 
and  read  out  the  names  of  the  user  functions. 

/ 

(!(ptr  ■ fopen  (listUserFuncs,  "r") )) 

inform(Mtmp/user_funcs  file  was  not  f ound” , PURPLE, 2) ; 


NumberOfUserFuncs 


0;  /*  start  at  0 */ 


* Loop  through  the  file  filling  the  global  structure  MSIDTable 

* with  all  those  lovely  maid's  and  related  info. 

*/ 

fscanf  (ptr,  "%*[A\n]");  /*  Rip  the  header  */ 

while  (fscanf  (ptr,"%s",  UserFuncs [NumberOfUserFuncs] ) !■  EOF) 

{ 

UserFuncs [NumberOfUserFuncs] [strlen (UserFuncs [NumberOfUserFuncs] ) -2] 1 

/* 

* Make  sure  the  function  is  not  a CODE  reserved  word. 

*/ 

( "if ", UserFuncs [NumberOfUserFuncs] ) — 0|| 

("then", UserFuncs [NumberOfUserFuncs] ) — 0 II 
("and", UserFuncs [NumberOfUserFuncs] ) —Oil 
("or", UserFuncs [NumberOfUserFuncs] ) — 0 M 
( "not ", UserFuncs [NumberOfUserFuncs] ) —0|| 

("print  1", UserFuncs [NumberOfUserFuncs] ) — 0 
("print2",  UserFuncs [NumberOfUserFuncs] ) — 0 
("print3", UserFuncs [NumberOfUserFuncs] ) — 0 
("print4", UserFuncs [NumberOfUserFuncs] ) — 0 
("print5", UserFuncs [NumberOfUserFuncs] ) — 0 
("set", UserFuncs [NumberOfUserFuncs] ) — 0 | I 
(">", UserFuncs [NumberOfUserFuncs] ) — 0 || 

(">-", UserFuncs [NumberOfUserFuncs] ) — 0 II 


'\0' 


if  (strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 


("<", UserFuncs [NumberOfUserFuncs] ) — 0 It 
("<-", UserFuncs [NumberOfUserFuncs] ) — 0 II 
("-", UserFuncs [NumberOfUserFuncs] ) — 0 II 
("else", UserFuncs [NumberOfUserFuncs] ) — 0 II 
("endif", UserFuncs [NumberOfUserFuncs] ) — 0 | 
("8", UserFuncs [NumberOfUserFuncs] ) — 0 II 
("(", UserFuncs [NumberOfUserFuncs] ) — 0 [ | 
(")", UserFuncs [NumberOfUserFuncs] ) — 0 II 
("+", UserFuncs [NumberOfUserFuncs] ) — 0 | | 
("-", UserFuncs [NumberOfUserFuncs] ) — 0 || 
("*", UserFuncs [NumberOfUserFuncs] ) — 0 | | 
("/", UserFuncs [NumberOfUserFuncs] ) — 0 | | 
("bitXor", UserFuncs [NumberOfUserFuncs] ) — 0 
("exp", UserFuncs [NumberOfUserFuncs] ) —0|| 
("log", UserFuncs [NumberOfUserFuncs] ) — 0 II 
("cos", UserFuncs [NumberOfUserFuncs] ) — 0 | | 
("acos", UserFuncs [NumberOfUserFuncs] ) — 0 II 
("sin", UserFuncs [NumberOfUserFuncs] ) — 0 |{ 
("asin", UserFuncs [NumberOfUserFuncs] ) — 0 J| 
( "tan", UserFuncs [NumberOfUserFuncs] ) — 0 || 

( "atan", UserFuncs [NumberOfUserFuncs] ) — 0 II 
("sqrt", UserFuncs [NumberOfUserFuncs] ) — 0 || 
("power", UserFuncs [NumberOfUserFuncs] ) — 0 | 
( "bit And", UserFuncs [NumberOfUserFuncs] ) — 0 
("bitOr", UserFuncs [NumberOfUserFuncs] ) — 0 I 
("shitfL", UserFuncs [NumberOfUserFuncs] ) — 0 
("shiftR", UserFuncs [NumberOfUserFuncs] ) — 0 
("p", UserFuncs [NumberOfUserFuncs] ) — 0 if 
(",", UserFuncs [NumberOfUserFuncs] ) — 0) 


I I 


( 


' ,v'  sprint f (message,  "'%s'  is  a CODE  reserved  word  and  therefore  can  not  be  used  as  a user  function. 
Xnlgnoring  %s",  UserFuncs [NumberOfUserFuncs] , UserFuncs [NumberOfUserFuncs ]) ; 
inform (message, RED, 2) ; 


} 

/* 

* Increment  the  function  counter. 
*/ 

else  NumberOfUserFuncs++; 


} 


} 


/ * 

* Let's  not  forget  to  clean  up  after  ourselves. 

*/ 

if  (system  ("rm  /tmp/user_funcs  2»/tmp/code  .err" ) ! —OK) 
inform ("Unable  to  remove  /tmp/code .err" , PURPLE, 2) ; 


/* 

* Read  the  GroupNames  file  into  memory.  If  we  have  a problem 

* we  exit  since  no  useful  work  can  be  done  without  reading 

* and  writing  this  file. 

V 

if  (readGroupNames ()  — ERROR) 
cleanExit () ; 

} 

/*************************************************************/ 

CheckOrMkdir (path) 

char  path  [] ; /*  path  to  be  checked  or  made  */ 

{ 

char  message [250] ; /*  for  displaying  a user  message  */ 

if  (access  (path,  F_OK)  —ERROR) 

( 

/* 

* Try  to  create  the  directory. 

V 

sprintf (message, "Creat ing  the  '%s'  directory path) ; 
inform (message, PURPLE, 1) ; 
if (mkdir (path, 511) !-OK) 

{ 

sprintf (message, "Could  not  create  directory  '%s'.  Check  code  installation  inst ructions\nfor  informat 
ion  to  correct  this.  Hit  [RETURN]  to  exit  code GREEN, path) ; 
ask (message, PURPLE, message) ; 
return  ERROR; 

} 

} 

return  OK; 


) 


/ 


initGraphics 

Purpose:  Initialize  the  windows  and  graphics. 

Designer:  Troy  Heindel/NASA/ JSC/MOD 

Programmer:  Troy  Heindel/NASA/ JSC/MOD 

Date:  12/13/88 

Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 

color_valid()  — redraws  the  tokens  in  red  or  yellow 
background ()  — draws  the  background  stuff 

hello_screen ( ) — draws  the  credits 
**************★★******★*★**★**•****★***•'*★★★*•***■*★★★*'**★★*★★***/ 
# include  "code.h" 
linclude  "cursor. h" 
linclude  <pwd.h> 


: J init_gp.c 


InitGraphics  {) 

int  resolution  [5] , /*  Used  to  place  the  screen  resolution  in;  winhardgetO  */ 

getuid  ();  /*  For  getting  the  name  of  the  user  */ 

struct  passwd  *getpvruid  (); 

struct  passwd  *user_pass;  /*  A structure  to  put  the  user  info  into  */ 

char  userName [15] ; /*  The  user's  name  is  set  in  get_header  */ 

/*  ignore  AC 
*/ 

/*  signal  (SIGINT,  SIG_IGN);*/ 

mgiasngp (0, 0) ; /*  Assign  the  graphics  processor  */ 

/* 

* Get  the  color  map  so  we  can  restore  it  before  exiting 
*/ 

mgigetcms  (0,  32,  ColorMap) ; 

/* 

* Assign  colors  to  color  map 

V 

mgicm  ( 1, mgfcns ( "dark  vivid  blue")); 

mgicm  (2, mgfcns ("red") ) ; 

mgicm  (4, mgfcns ("orange") ) ; 

mgicm  (8, mgfcns ("yellow")  ) ; 

mgicm  (12, mgfcns ("purple") ) ; 

mgicm  (16, mgfcns ("light  vivid  green")); 

mgicm  (18, mgfcns ("white”) ) ; 

/* 


DEFAULT  COLORS 


dark  vivid  blue 
red 

orange 

yellow 

purple 

light  vivid  green 
white 

*/ 

/* 

* Create  the  text  windows  and  associate  them  with  the  graphics  windows. 

* 1 - reserved,  2 - reserved,  3 - Work  Area,  4 - Prompt,  5 - Edit, 

* 7 - Messages. 

V 

mgidefw  (3);  /*  This  is  the  Working  Area  window  */ 

mgrpw  (3,  0,  0.1563,  0.1600,  1.0000,  0.9110); 

mgitwgw  (3,3);  /*  This  associates  a text  window  */ 

/*  with  the  working  area  window  */ 

mgidefw  (4);  /*  This  is  the  Keyboard  Input  window  */ 

mgrpw  {4,  0,  0.1563,  0.0800,  1.0000,  0.1600); 

mgitwgw  (4,4);  /*  This  associates  a text  window  */ 

/*  with  the  keybd  input  window  */ 

mgidefw  (5) ; /*  This  is  the  Edit  window  */ 

mgrpw  (5,  0,  0.1573,  0.0800,  0.9990,  0.9100); 

mgitwgw  (5,5);  /*  This  associates  a text  window  */ 

/*  with  the  working  area  window  */ 

mgidefw  (7);  /*  This  is  the  Mess age /Prompts  window  */ 

mgrpw  (7,  0,  0.1563,  0.0000,  1.0000,  0.0800); 

mgitwgw  (7,7);  /*  This  associates  a text  window  */ 

/*  with  the  Message/Prompts  window  */ 


/* 

* Assume  the  large  font 
V 


mgifetchgf  (Font,  "9x11"); 
mgifetchgf  (BoldFont,  "9xll_b") ; 
mgifetchgf  (ItalicFont,  "9xll_i"); 


/* 

* Get  the  horizontal  and  vertical  screen  resolution, 

* and  set  global  variables  to  these  values. 

*/ 

winhardget  (resolution,  3) ; 

if  (resolution [0] -1  > 1000) 

{ 


mgit  f 

(3,  LargeTextFont , 

-1, 

l) ; 

/* 

win. 

big 

font. 

subscripts,  wrap 

*/ 

mgitf 

(4,  LargeTextFont, 

-1, 

l) ; 

/* 

win. 

big 

font, 

subscripts,  wrap 

*/ 

mgit  f 

(5,  LargeTextFont, 

-1, 

l) ; 

/* 

win. 

big 

font. 

subscripts,  wrap 

*/ 

mgitf 

(7,  LargeTextFont, 

-1, 

i) ; 

/* 

win. 

big 

font. 

subscripts,  wrap 

*/ 

} 

else 

{ 


mgitf 

(3, 

MediumTextFont , 

-l,  1); 

/* 

win. 

little 

font. 

subscripts. 

wrap 

*/ 

mgitf 

(4, 

MediumTextFont , 

-1,  1); 

/* 

win, 

little 

font. 

subscripts. 

wrap 

*/ 

mgitf 

(5, 

MediumTextFont , 

-1,  1); 

/* 

win. 

little 

font. 

subscripts. 

wrap 

*/ 

mgitf 

(7, 

MediumTextFont , 

-l,  1); 

/* 

win, 

little 

font, 

subscripts. 

wrap 

*/ 

} 


/* 

* Cursor  definition  and  loading 


printf  ("\033Gac\n") ; 
mgiclearpln  <2, -1,0); 
mgigf  (ItalicFont) ; /* 

background  {) ; /* 

mgigf  (Font);  /* 


/*  Turn  off  the  text  cursor  */ 
/*  Clear  all  planes  */ 

Write  the  background  in  bold  font 
Draw  the  graphics  background  */ 

Do  all  else  in  normal  font  */ 


color  valid  (PrevChoice [ChoiceCounter  - 1],  99); 


*1 


/* 

* Draw  the  hello  screen  if  the  user  is  not  one  of  the  developers! 
*/ 

user_ pass  * getpwuid  (getuidO); 

strcpy  (userName,  user_pass->pw_name) ; 

if  ( (strncmp  (userName,  "troy",  4)  !-  0)  ££ 

{strncmp  (userName,  "terri",  5)  !-  0)) 

hello_screen  () ; /*  Draws  the  CODE  HELLO  screen  */ 
mgihue  (GREEN) ; 
mgiloadcurs  (7, 7 , 4 , Shuttle) ; 
mgicursmode  (15) ; 

mgrcursxy,  (2,  6,  0.1923,  0.9283);/*  Position  the  cursor  */ 


/***********★*************************  ****************  ******** 
HELLO 

Purpose i Hello  draws  the  hello  window  with  credits. 

Designer:  Troy  Heindel/NASA/ JSC/MOD 

Programmer:  Troy  Heindel/NASA/JSC/MOD 

Date:  12/1/88  (my  birthday!) 

Version : 2.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 

**t*********************************n***********************/ 

♦include  "code .h" 
hello  screen  () 


float  : 

rx [5] , ry  [5] ; /* 

for  drawing  the  thick 

lines  */ 

mgifb 

(1,  2); 

/* 

Show  1,  modify  2 */ 

mgifetchvf  (5, 

"compro 

■") ; 

mgrvfcontrol  (2 

12., 

1) ; 

mgrvfs 

(.1746, 

.8262, 

0,  "CODE"); 

mgrvfcontrol  (1 

.2,  1., 

0); 

mgrvfs 

(.18,  .4500,  0, 

"Computation") ; 

mgrvfs 

(.18,  .4000,  0, 

"Development" ) ; 

mgrvfs 

(.18,  .3500,  0, 

"Environment") ; 

mgrvfcontrol  (0 

.8,  1., 

0); 

mgrvfs 

(.5000, 

.8500, 

0,  "A  natural  language 

tool  for") ; 

mgrvfs 

(.5000, 

.8000, 

0,  "building  real-time 

algorithms . ") ; 

mgrvfs 

(.5000, 

.5900, 

0,  "Version  2.0b  Nov.  23,  1988"); 

mgigf 

(HugeFont) ; 

mgrgf s 

(.5000, 

.5000, 

0,  "Designed  6 Built  by:"); 

mgrgf s 

(.5000, 

.4500, 

0,  "Troy  A.  Heindel"); 

mgrgf s 

(.5750, 

.4250, 

0,  "*"); 

mgrgf s 

(.5000, 

.4000, 

0,  "Terri  B.  Murphy"); 

mgrgf s 

(.5000, 

.3500, 

0,  "National  Aeronautics  ( Space  Administration' 

mgrgf s 

(.5000, 

.3250, 

0,  "Johnson  Space  Center") ; 

mgrgf s 

(.5000, 

.3000, 

0,  "Mission  Operations 

Directorate") ; 

mgrgf s 

(.4200, 

.1800, 

0,  "(Click  anywhere  to 

begin ! ) ") ; 

mgigf 

(Font) ; 

rx  [0] 

- .1800; 

rx[l] 

- .424; 

rx[2] 

- .424; 

rx  [3] 

- .1800; 

rx  [4] 

- .1800; 

ryCO] 

- .8713; 

ry  [1] 

- .8713; 

ry[2] 

- .578; 

ry  [3] 

- .578; 

ry  [4] 

- .8713; 

mgiwidth  (5,  0) 

t 

mgrtls 

(5,  rx. 

ry)  ; 

/*  C * 

/ 

mgrbox 

(.2000, 

.7600, 

.2250,  .7700); 

mgrfc 

(.2125, 

.7100, 

.0125)  ; 

mgrbox 

(.2000, 

.6500, 

.2250,  .6600); 

mgrfc 

(.2125, 

.6100, 

.0125); 

mgrbox 
mgr box 
mgrbox 


I*  D */ 
mgrbox 
mgrfc 
mgrfc 

/*  E */ 
mgrfc 


{.2585, 

.7600, 

.2835, 

(.2585, 

.7050, 

.2835, 

(.2585, 

.6500, 

.2835, 

(.3170, 

.7600, 

.3420, 

(.3295, 

.7100, 

-0125); 

(.3295, 

.6550, 

.0125); 

(.3880, 

.7650, 

.0125)  ; 

.7700)  ; 
.7150)  ; 
.6600)  ; 


.7700); 


init_gp.c 


/* 

* Display  the  hello  screen  by  showing  frame  buffer  2 
V 

mgifb  (2,  1) ; 


INSTALL 


Purpose : This  routine  does  all  the  necessary  stuff  to  move  a 
comp  built  using  CODE  into  a group  of  comps  in  the 
INCO  Algorithm  Manager. 


Designer:  Terri  Murphy  & Troy  Heindel 

Programmer:  Terri  Murphy  & Troy  Heindel 


Date:  6/1/87 


Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 

openFileO  — generic  file  opening  routine. 
save_CompInfO ()  — save  new  comp  dispositions. 
informO  — display  text  in  the  message  window 

ask{)  — informO,  then  prompt  for  reply 

clearWAO  — clears  work  area  window 
displayWAO  — display  text  string  in  work  area  window 
read_vars O — read  variables  for  a "complete"  comp 

variable_exist () — see  if  the  variable  is  already  in  the  group  vars  list 
write_comp()  — appends  "complete"  comps  .c  to  group. c 

conf ig_mgmt ()  — verify  proper  type  of  signals  and  msids 

compile_group  --  Compiles  the  group. c file 
*■******************************************♦♦************♦***/ 

♦include  "code.h" 

struct  termio  orig_tty;  /*  used  for  setting  up  the  keyboard  */ 

struct  termio  raw_tty;  /*  used  for  setting  up  the  keyboard  */ 

FILE  *group_file,  /*  Pointer  to  the  file  that  the  <GroupName> . c code  will  go  in  */ 

♦report,  /*  Pointer  to  a file  for  standard  errors  */ 

♦openFileO;  /*  A handy  file  opening  routine  */ 

int  num  group_msids,  /*  The  number  of  msids  that  belong  to  this  group  ♦/ 

numSigsTBDef ; /*  the  number  of  signals  that  need  to  be  added  to  the  signal  table  */ 

struct  sig_tbl_struct  sigsTBDef [MAX_NUM_SIGNALS] ; /*  The  array  of  signals  that  need  to  be  added 
to  the  signal  table  */ 


installs  |i |§ ; ® ; 

install  0 

{ 

FILE  *ptrl,  /*  File  pointer  to  the  complete  group  report  */ 

*sig_tbl_ptr;  /*  File  pointer  to  the  signal  table  */ 

int  i,  /*  Simple  index  */ 

status,  f*  return  code  for  function  calls  */ 

installed [MAX_GROUPS] , /*  Contains  the  index's  of  all  comps  that  we 

are  attempting  to  install  */ 

comps  installed,  /*  The  number  of  comps  we  are  attempting  to  install  */ 
group~file_name [PATH_LEN] , /+  Full  path  name  of  the  group  file  */ 

comp  var_count,  /*  The  number  of  variable  that  belong  to  the  comp  that  is  currently 
being  processed  (Passed  to  translate) . */ 
numCOmpsError,  /*  The  number  of  comps  with  disposition  — ERROR  */ 
numCompsComplete,  /*  The  number  of  comps  with  disposition  ■«  COMPLETE  */ 

numCompsIncomplete,  /*  The  number  of  comps  with  disposition  »»  INCOMPLETE  */ 

numCompsInstalled,  /*  The  number  of  comps  with  disposition  ■-  INSTALLED  */ 

reportError,  /*  Flag  if  there' s an  error  in  creating  the  report  */ 

compileStatus;  /*  The  status  returned  from  compile  */ 


char  message [180 ] , /+  Holds  messages,  used  with  ask (), inform ()  */ 

reply[50],  /*  place  to  store  user  responses  V 
groupExe [80] , /*  The  name  of  the  group  executable  file  */ 

groupRpt [80] ; /*  The  name  of  the  group  report  */ 


struct  var_struct  this_comps_vars [MAX_COMP_VARS] ; /*  The  array  of  variables  for  the  comp  that 

is  currently  being  processed.  (Passed 
to  translate.  */ 


/* 

* If  there's  a group  executable  out  there,  remove  it  and 

* change  the  groups  disposition  to  complete. 

V 

sprintf (groupExe,  "%s/%s",  AMGroups,  GroupName) ; 

sprint f (message,  "rm  -f  %s  2>>  /tmp/code .err",  groupExe); 

if (system  (message) ! *OK) 

inform ("Unable  to  remove  old  group  executable",  PURPLE,  1); 

Grouplnfo [GroupNumber] .disposition  - COMPLETE; 

/* 

* Initially  there  are  no  group  msids,  installed  comps 

* or  signals  that  need  defining. 

•/ 

num_group_msids  * comps_installed  - 0; 

numCompsInstalled  * numCompsComplete  ■ numCompsIncomplete  * numCompsError  ■ 0; 
numSigsTBDef  * 0; 

/* 

* Open  a file  for  installation  report. 

*/ 

sprintf  (group_f ile_name,  "%s/%s/install . rpt ",  CodeGroups,  GroupName); 
if  ([(report  * openFile (group_f ile_name,  "w" install" )) ) 
return  (ERROR) ; 

fprintf (report , "\nlnstallat ion  report  for  %s:\n\n",  GroupName); 


/* 

* We  always  have  at  least  one  group_var  "QUALITY". 

*/ 

NumGroupVars  - 1; 

strcpy (GroupVars [0 ] .name,  "QUALITY"); 
strcpy (GroupVars [0] .type,  "short"); 
strcpy (GroupVars [0] . class,  "ms id") ; 

GroupVars [0 ] .occurrence  * 0; 

GroupVars [0] ,put_or_get  * 0; 

GroupVars [0] . lol_limit  - 0; 

GroupVars [0] . lo2_limit  - 0; 

GroupVars [0] .hi l_limit  * 0; 

GroupVars [0] .hi2_limit  - 0; 

strcpy (GroupVars [0] .nomenclature,  "/*  QUALITY  */")  ; 

for(i*0;  i<NumOfComps ; i++) 

( 

/* 

* Get  variables  for  comps  and  translate  comps  that 

* satisfy  either  of  the  following  conditions: 

* 1.  All  disposition  INSTALLED 


install.c 


*/ 

if  (Complnfo [i] .disposition  « INSTALLED  ||  Complnfo [ i }. disposition  =*  COMPLETE) 

( 

sprint f {message,  "Installing  comp  : %s",  Complnfo [ i] .name) ; 
inform (message, PURPLE, 0) ; 

fprintf (report,  "\n%s:\n",  Complnfo [ i ]. name) ; 

status  = read_vars (Complnfo [ i ] .name, tbis_comps_vars,  £comp_var_count) ; 
if  (status  -«  ERROR) 

( 

fprintf (report , "\tVariable  File  Error  - Notify  Developers\n") ; 

Complnfo [ i ]. disposition  - ERROR; 


) 

status  - translate  (Complnfo  [ i]  .name,  this_comps__vars,  comp_var_count)  ; 
if (status  ERROR) 

{ 

fprintf  (report,  "\tTranslat ion  Error  - Notify  Developers\n") ; 
Complnfo [ i] .disposition  - ERROR; 

} 

else 


{ 

fprintf  (report,  "\tTranslat ion  Complete\n") ; 
installed [comps  installed++]  * i; 

) 

) 

) 


/* 

* If  there  are  no  comps_installed  don't  bother  building  the 

* <group>.c 
*/ 

if (comps_installed  > 0) 

{ 

/* 

* Let's  open  a file  for  the  <GroupName> .c  code  and  put 

* the  header  information  in  it. 

V 

sprintf  (group_f ile_name,  "%s/ls/%s . c",  CodeGroups,  GroupName,  GroupName); 
if  ( ! (group_f ile  « openFile  (group_f ile_name,  "w", "install") ) ) 

{ 

fprintf (report,  "Install:  Unable  to  open  %s.\n",  group_file) ; 
fclose (report) ; 
return  (ERROR) ; 

) 


/* 

* Write  our  '#include's. 

*/ 

fprintf (group_f ile,  "finclude 
fprintf (group_f ile,  "#include 
fprintf (group_f ile,  "finclude 
fprintf (group_f ile,  "finclude 
fprintf (group_f ile,  "finclude 


<rti ,h>\n") ; 
<math.h>\n") ; 
<stdio .h>\n" ) ; 
<values ,h>\n") ; 
<nf .h>\n\n") ; 


/* 

Write  our  'fdefine's. 

*/ 

fprintf (group_f ile,  "fdefine  MSID_CNT  %d\n",  num_group_msids+l) ; 
fprintf (group_file,  "fdefine  COMP_CNT  %d\n",  comps_installed) ; 

fprintf (group_f ile,  "fdefine  GROUP_DAT  \042%s/%s .dat \042\n",  AMSupport,  GroupName); 
fprintf (group_f ile,  "fdefine  MAX_SIGNAL_LENGTH  80\n") ; 
fprintf (group_f ile,  "fdefine  MAX_NAME_LEN  ll\n\n") ; 

/* 

* Define  our  global  variables. 

*/ 

fprintf (group_f ile,  "int  *ind_ptr; \nint  *rate_ptr; \nint  *nf_ptr;\nint  nf_index; \n") ; 
fprintf (group_f ile,  "int  iteration_ctr  * 0;\nint  nf [COMP_ CNT] ; \n\n") ; 
fprintf (group_f ile,  "short  value [MS ID_CNT] ; \nchar  status [MSID_CNT] ; \n\n") ; 

/* 

* Loop  through  the  group  variable  list. 

V 

fprintf (group_f ile,  "/*  Signal  List  */\n"); 
for (i-0; i<NumGroupVars; i++) 

( 

I* 

* If  we  find  a signal  then  define  it. 


• installc 

if (strcmp (GroupVars [i] .class,  "signal")  — 0) 

{ fprintf (group_f ile,  "%s  %s",  GroupVars [ i] . type,  GroupVars [ i] .name) ; 

/*  * 

* If  the  signal  is  a char  string,  define  the  string 

* length  to  be  MAX_SIGNAL_LENGTH  long. 

*/ 

if  (strcmp  (GroupVars [ i ]. type,  "char")  — 0) 

fprint f (group_f lie,  " [MAX_SIGNAL_LENGTH] ; \ n") ; 
else  fprint f (group_file,  ";\n"); 

} 

fprint f (group_f i le , "/*  End  Signal  List  */\n\n"); 

/* 

* Define  the  main!!!! 

*/ 

fprintf (group_f ile,  "main  Urge,  argv) \n  int  argc;\n  char  *argv [ ] ; \n { \n") ; 


/* 

* Loop  through  the  group  variable  list. 

*/ 

fprintf  (group_f  ile,  "\tstatic  char  *msid_list[]  =»  (\n"); 
for (i«0; KNumGroupVars; i++) 

( 

/* 

* If  we  find  an  MSID  then  define  it. 

*/ 

if (strcmp (GroupVars [i] .class,  "msid")  — 0) 

fprintf (group^f ile,  "\t\t\t\t\042%s\042, \n",  GroupVars [i] .name) ; 

fprintf (group_f ile,  "\t\t\t\t\042\042\n\t\t\t\t } ; \n\n") ; 


/* 

* Declare  our  remaining  locals. 


*/ 

fprintf (group_f ile, 
fprintf (group_f ile, 
fprintf (group_f ile, 
fprintf (group_f ile, 
fprintf  (group_file. 


"\tPILE  *in; \n\n") ; 

"\tint  indx_array [MSID_CNT] ;\n\tint  i»0;\n\tint  disposition; \n" ) ; 
"\t int  ind_array[COMP_CNT] ;\n\tint  rate_array [COMP_CNT] ; \n\n") ; 
"\tchar  purpose [80] ; \n") ; 

"\tchar  CompName  ( MAX_NAME__LEN ] ;\n\n")  ; 


/* 

* Declare  external  fault  message  routines. 

*/ 

fprintf (group_f ile,  "\tvoid  f ltmsg_init () ;\n\tint  fltmsg_issue ( ) ; \n\n") ; 


/* 


* Open  the  .dat  file  and  read  in  the  CompName 

* noise  filter,  rate,  on/off,  disposition  and  purpose. 
*/ 


fprintf (group_f ile, 
fprintf (group_f ile, 
fprintf (group_file, 
fprintf (group^f ile, 
fprintf (group_f ile, 
fprintf (group_f ile, 
fprintf (group_f ile, 
fprintf (group_f ile, 
fprintf (group^file, 
fprintf <group_file, 
fprintf (group_file, 
fprintf (group_file, 
fprintf (group_f ile, 
fprintf (group_file, 
fprintf (group_file, 
fprintf (group_f ile, 
fprintf (group_file. 


«\t/************************************************\n")  * 

"\t  Open  <GroupName> .dat  file  and  read  in  the\n") ; 

"\t  comp  name  (which  isn't  used),  noise  filter,  \n*); 

"\t  rate,  on/off,  disposition  and  purpose  \n") ; 

"\t  for  all  comps  in  the  group. Nn"); 

*★**★*****★★★***★★★***★*★**★**** **************  */\n") ; 

"\tif  ({in  - fopen (GROUP_DAT,  \042r\042))  NULL) \n") ; 

"\t { \n\t\t f ltmsg_issue (\042Unable  to  open  %%s  file\\n\042,  GROUP_DAT) ; \n") 
"\t\texit (-1) ;\n\t}\n\n") ; 

"\tf scanf  (in,  \042%%MA\\n]\042); \n")  ; 

"\t while  <f scanf (in, \042%%s  %%d  %%d  %%d  %%d  %% [ A\\n] \042,  CompName, \n")  ; 


\t 

finf [ i] , \n") ; 

\t 

4rate__array  [i] , \n")  ; 

\t 

fiind_array [i] , \n") ; 

At 

fidisposition, \nH) ; 

At 

purpose)  !-  EOF)  i + + 

\tfclose (in) ; \n\n") ; 

/* 

* Attach  to  shared  memory  for  telemetry  and  fault 

* messages,  initialize  fault  messsage,  and  get 

* the  array  of  msid  indexes. 

V 

fprintf  (group__f  ile,  "\tattch_shmem  (STD)  ;\n")  ; 
fprintf (group_f ile,  "\t fltmsg_init ( ) ; \n" ) ; 

fprintf (group_f ile,  "\tgetmsid_indx_lst (msid_list , indx_array) ;\n\n"); 


/* 

* Now  for  the  loop. . . . 

V 

f print f (group_f ile,  "\twhile (++iterat ion_ctr) \n\t (\n") ; 

fprintf (group_f ile,  "\t\tdo\n\t\t (\n\t\t\tgetmsid_of f_data_lst (indx_array,  value,  status) ; \n\t\t } while  ( 
value [0]  — 0);\n\n"); 

fprintf (group_file,  "\t\t ind_ptr  - ind_array; \n") ; 
fprintf (group_f ile,  "\t\trate _j?tr  - rate_array; \n") ; 
fprintf <group_f ile,  "\t\tnf_index  - 0;\n\nM) ; 

for { i-0; i<comps_installed; i++) 

fprintf (group_file,  "\t\tif { (*ind_ptr++  — 1)  (iteration_ctr  %%  *rate_ptr)  — 0)\n"); 

fprintf (group_f ile,  "\t\t\t%s () ;\n",  Complnfo [ installed [ i] ] .name) ; 
fprintf  <group_f ile,  "\t\t++nf_index; \n\t \t++rate_ptr; \n\n") ; 

} 

fprintf (group_file,  "\t }\n}\n\n")  ; 


/★★*********************************************** 

Herers  where  we  write  the  comp's  C code  that's 
generated  by  translate. 

**************************************************/ 
for (i-0; i<comps_ins tailed; i++) 

( 

if (write_comp (Complnfo [ installed [ i] ] .name)  *■  ERROR) 

fprintf (report , "Install:  Unable  to  write  Is's  'C'  version. \n",  Complnfo [ installed [ i] ] .name) ; 
fprintf (group_f ile,  "%s () \n{ \n\treturn; \n) ; \n\n",  Complnfo [installed [i] 3 .name) ; 

Complnfo [installed [ i] ] .disposition  * ERROR; 

) 

else  Complnfo [ installed [ i] ] .disposition  - INSTALLED; 

} 

fclose (group_f ile) ; 


/★***************************************************************** 

Compile  and  save  the  group  variables  and  the  updated  dispositions. 
****************** *************************************************/ 
compileStatus  * compile_group () ; 

if (compileStatus  •«  ERROR) 

{ 

/* 

* If  we  couldn't  compile  - then  we  need  to  change  the  comp  dispositions 

* back  to  COMPLETE,  and  the  group  disposition  to  ERROR. 

*/ 

for  ( i-0; i<NumOf Comps; i++) 

{ 

if (Complnfo [ i] .disposition  -•  INSTALLED) 

Complnfo [ i] .disposition  - COMPLETE; 

) 

} 

) 

/******************************************** 

Report  on  the  new  disposition  of  the  comps. 
*********************************************/ 
fprintf (report,  "\n\n\nComp  Name\tDisposition\n") ; 

fprintf  (report,  " \n"); 

for (i-0; i<NumOfComps; i++) 

( 

switch (Complnfo [ i ] .disposition) 

{ 

case  ERROR:  fprintf  (report, "%s\t\tERROR\n",  Complnfo [i] .name) ; 
numCompsError++; 
break; 

case  COMPLETE:  fprintf (report, "%s\t\tCOMPLETE\n", Complnfo [i] .name) ; 

numCompsComplete++; 
break; 

case  INCOMPLETE: fprintf (report, "%s\t\t INCOMP LETE\n" , CompInfo[i] .name) ; 
numCompsIncomplete++; 
break; 


case  INSTALLED:  fprintf {report , rtls\t\tINSTALLED\n",  Complnfo [ i] . name) ; 
numCompsInstalIed++; 
break; 

default:  break; 


fprintf (report,  "\n\nTotal  Comps :\t\t\t%d\n'\  NumOfComps) ; 
fprintf (report,  "Installed  comps :\t\t%d\n",  numCompsInstalled) ; 
fprintf (report,  "Incomplete  comps : \t\t%d\n",  numCompsIncomplete) ; 
fprintf (report,  "Comps  containing  errors :\t%d\n\n" , numCompsError) ; 


if (comps_installed  > 0) 

{ 

if (compileStatus  !-  ERROR) 

{ 

/* 

* Since  the  group  was  successfully  installed,  we  need  to  add 

* the  signals  to  the  signal  table  and  report  what  signals  were 

* added.  But  before  we  do  that  let's  make  sure  the  signal 

* table  exists  and  don't  do  anything  if  it  does  not. 

V 

if (access (SignalTbl , F_0K) ! *ERR0R) 

fprintf  (report,  "Signals  defined  in  %s  as  a result  of  installing  group  %s:\n",  SignalTbl,  GroupName) ; 
if  ( ! (sig_tbl_ptr  - fopen  (SignalTbl,  "a"))) 

sprintf (message, "Warning:  Could  not  open  ' %s'  for  writing. ", SignalTbl) ; 
inform (message, GREEN, 2) ; 

) 

else 

( 

/* 

* If  we're  adding  signals  to  the  signal  table,  we  need 

* to  need  to  make  sure  that  we  start  on  a new  line. 

*/ 

if  (numSigsTBDef  > 0) 

fprintf (report,  "\n") ; 

/* 

* Add  the  new  signals. 

*/ 

for ( i-0; i<numSigsTBDef ; i++) 

{ 

/* 

* Since  we're  adding  it  to  the  file  - we  better  also  add  to 

* our  signal  table  structure  in  memory  in  case  we  install 

* again  without  retrieveing ! ! ! 

*/ 

strcpy (SignalTable [SignalCount] .name,  sigsTBDef[i] .name); 
strcpy (SignalTable [SignalCount] .type,  sigsTBDef [i] .type) ; 
strcpy (SignalTable [SignalCount] .nomenclature, sigsTBDef [i] .nomenclature) ; 

SignalCount++; 

/* 

* If  the  type  is  'c'  the  signal  table  expects 

* the  type  to  be  'S' 

*/ 

if (sigsTBDef [i] .type[0]  — 'c') 
sigsTBDef [i] .type [0]  - 'S'; 

fprintf (sig_tbl_ptr,  "%s  %c  %s\n",  sigsTBDef [i] .name,  sigsTBDef [ i] . type [0] , sigsTBDef [ i] .nome 

nclature) ; 

fprintf (report,  "\t%s  %c  %s\n", sigsTBDef [i] .name,  sigsTBDef [ i] . type [0] , sigsTBDef [ i] . nomencla 

ture) ; 

) 

fclose  (sig_tbl_ptr) ; 

) 

) 

fprintf (report , "\n\n") ; 

f print  f (report,  "**********************************************************  »***********\n"); 
fprintf (report, "NtCONGRATULATIONS  - %s  has  been  successfully  compiled . \n",  GroupName); 

) 

else 

{ 

fprintf (report,  "\n\n"); 

fprintf (report , «**********************************************************************\n"); 
fprintf (report,  "NtUnable  to  compile  - Please  notify  developers\n") ; 
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fprintf (report , "\n\n"); 

fprintf (report,  "★******★**************************************************** **********\n"); 
fprintf (report,  "\tCompilat ion  not  attempted  - No  comps  installed . \n") ; 

fprintf  (report,  "fr*********************************************************************^'' }; 
fclose (report) ; 
save_Comp!nfo () ; 

/★a************************************************************** 

Compbine  the  date,  install  report,  and  compile  report  into  one 
master  <group_name> . rpt 

a************************************#***************************/ 

system ("date  9 +DATE : %h  %d,  19%y%nTIME:  %H:%M:%S%n'  > /tmp/date  2»  /tmp/code . err" ) ; 

sprintf (message,  "cat  /tmp/date  %s/%s/install . rpt  %s/%s/compile .rpt  >%s/%s/ls . rpt  2>>/tmp/code .err",  CodeGrou 
ps,  GroupName,  CodeGroups,  GroupName,  CodeGroups,  GroupName,  GroupName) ; 
if (system (message)  !«  0) 

{ 

ask ("Install : Unable  to  create  install/compile  report.  Hit  <RETURN>", RED, reply) ; 

) 

/******************************** *************  ********** 

Write  some  blank  lines  to  the  end  of  the  report, 

so  we  can  see  error  messages  when  we  "more"  the  report. 

★A******************************************************/ 

sprintf (groupRpt,  "%s/%s/%s . rpt",  CodeGroups,  GroupName,  GroupName); 
if  (Uptrl  - fopen  (groupRpt,  "a"))) 

{ 

ask ("Install : Unable  to  write  group  report RED, reply) ; 


for ( i»0; i<60; i++) 

fprintf (ptrl,  "\n") ; 
fclose (ptrl) ; 

) 

chmod (666,  groupRpt ) ; 

/★★★★★A************************************************************************** 

Write  the  report  to  the  work  area  window.  Flush  the  input  buffer  that  may  have 
been  filled  with  garbage  while  input  was  not  expected,  and  go  into  orig 
tty  mode. 

*********************************************************************************/ 
ioctl  (fileno  (stdout),  TCFLSH,  0); 
ioctl  (fileno  (stdout),  TCSETAW,  Sorig_tty) ; 
/*************************************************** 

Show  the  "MORE"  prompt  and  select  the  work  area 
window  for  the  ouput  of  the  system  call. 

****************************************************  j 

Inform (MORE, GREEN, 0) ; 
clearWAO; 

sprintf (message,  "more  -n3D  %s/%s/ls.rpt  ",  CodeGroups,  GroupName,  GroupName); 
if (system(message)  [-  0) 

( 

reportError  - TRUE; 

ask ("Install : Unable  to  show  install/compile  report.  Hit  <RETURN>", RED, reply) ; 

) 

/**************************************************************** 

Go  back  to  raw  tty  mode  and  put  the  comp  back  in  the  work  area. 
*****************************************************************/ 
ioctl  (fileno  (stdout),  TCSETAW,  firaw_tty) ; 
clearWAO  ; 
displayWA (Comp) ; 

/***★**«  ********** ************ 

Print  the  report  if  desired. 

******************************/ 

sprint f (message,  "Print  report?  (Y/N)"); 

ask (message, GREEN, reply) ; 

if (reply [0]  — fY'  ||  reply[0)  — 'y') 

( 

sprint f (message,  "print  ls/%s/%s.rpt  2>>/tmp/code . err",  CodeGroups,  GroupName,  GroupName); 
if (system (message)  !-  0) 

( 

ask ("Install:  Unable  to  create  install/compile  report.  Hit  <RETURN>",  GREEN,  message); 
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read_vars (compName,  thi3_comps_vars,  comp_var_count ) 
char  compName [ ] ; 

struct  var_struct  this_comps_vars ( ] ; 
int  *comp_var_count; 

{ 

FILE  *var  file; 


char  variable  f ile [PATH_LEN] ; 


int  index,  /*  The  index  returned  from  variable_exists  if  it  exists  */ 
status,  /*  The  status  of  the  config_mgmt  V 
i-0; 

sprintf  {variable_f ile,  "%s/%s/%s. v",  CodeGroups,  GroupName,  compName); 
if  (!(var_file  - openFile  (variable_f ile,  "r" ," install" )) ) 

{ 

fprintf {report , "Cannot  find  variables  for  %s.\n",  variable_f ile) ; 
return  (ERROR) ; 

} 


/a****************************************** 

First  we  will  discard  the  comment 
that  is  the  1st  line  of  all  variable  files, 
★a******************************************/ 

fscanf (var_file,  "%* [A\nJ ") ; 

/*  + *****★  * T a********************************* 

Now  let's  read  the  variable  info  for  this 
comp  until  we  reach  the  end  of  the  file. 
*********************«#**********************/ 

*comp_var_count  *0; 

while {fscanf  <var_f ile, "Is  %s  %s  %d  %d  %f  %f  %f  %f  %[A\n]", 
this_comps_vars [*comp_var_count ] .name, 
this_comps_vars [*comp_var_count] .type, 
this_comps_vars [ *comp_var_count ] .class, 
tthis_comps_vars ( *comp_va recount ] .occurrence, 
*this_comps_vars  [*comp_va recount]  .put_or_get, 
*this_comps_vars  [ *comp_va recount  ] . lol_limit, 
«this_comps_vars [ *comp_var_count ] . lo2_limit , 
fithis_comps_vars [*comp_var_count ] .hil_limit, 
4this_comps_vars  [ *comp_var_count ] .hi2_limit, 
this_comps_vars [*comp_var_count] .nomenclature)  !•  EOF) 

{ 

/***************+***************************** 

Let's  do  some  CM  if  it's  an  M5ID  or  a signal. 

******************************** **************/ 

if (strcmp (this_comps_vars [ *comp_va recount 3 .class,  "msid")  *■  0 [I 
strcmp (this_comps_vars [*comp_var_count 3 .class,  "signal")  — 0) 

( 

conf ig_mgmt (this_comps_vars [*comp_var_count] .name, 
this_comps_vars [ *comp_var_count ] . class, 
this_comps_vars [*comp_var_count ] .type, 
this_comps_vars [*comp_var_count ] .nomenclature) ; 

} 


/********************************************* 

First  we  need  to  see  if  the  variable  already 
exists  in  the  group_var  structure.  If  it  doesn't 
exist  we  will  increment  the  NumGroupVars  and 
copy  the  *comp_var  into  the  GroupVars  list. 

If  it  existed  we  increment  the  occurrence 
field  of  the  group_var 

******************★***************************/ 

if  ({index  - variable_exists (this_comps_vars [ *comp_var_count ] .name, 
this_comps_vars [*comp_va recount  1 .type, 
this_comps_vars [*comp_var_count ] .class) ) — ERROR) 

{ 

GroupVars [NumGroupVars]  - this_comps_vars [*comp_var_count] ; 

/★★★**#★*#**********★** #* ******** ************ 

Let's  keep  track  of  how  many  msid's  we  have 
because  we  need  to  "#define  MSID_CNT"  in 
the  <group>.c  file. 

ft********************************************  j 

if (strcmp {GroupVars [NumGroupVars] .class,  "msid")  ■■  0) 
num_group_msids++; 


) 


NumGroupVars++ 


variable_exists (name,  type,  class) 
char  named; 
char  typed; 
char  class  [] ; 

( 

int  1; 

char  temp [100 3; 

for(i-0;  KNumGroupVars; i++) 

if  (strcmp {GroupVars [ i ] .name,  name) 

{ 

return  (i) ; 

} 

return (ERROR) ; 

) 


instaU.c  ^ 


save_CompInfo  () 

FILE  *CompInfo_f ile; 
char  Complnf o_name [PATH_LEN] ; 
int  i;  /*  Simple  index  */ 

sprintf  (CompInfo_name,  n%s/%s . dat" , AMSupport,  GroupName) ; 

/★ ****************************************** 

Open  group  info  file  and  write  variables 
★ **#■»»★■***■**★*********'*****'*'****************/ 

if  ( ! (CompInfo_file  * openFile  {Complnfo_name, "w" , "install") ) ) 
return  (ERROR) ; 

/★a***************************************************** 

Write  all  of  the  group  info  for  the  group  with  header. 

****** ******************************* *******************/ 

fprintf  (CompInfo_file,  "#name_name  noise_filter  rate  on_off  disposition^") 
for  (i*0;i  < NumOf Comps; i + + ) 

{ fprintf  (CompInfo_f ile, "%s  %d  %d  %d  %d  %s\n",  Complnfo [ i] .name, 

Complnfofi] ,noise_f ilter, 

Complnfo(i] .rate, 

Complnfo [i] . on_off, 

Complnfo [i] .disposition, 

Complnfo [ i] .purpose) ; 


) 


) 

fclose (CompInfo_f ile) ; 


write_comp  (name) 
char  name [ ] ; 

{ 

FILE  *ptr; 

char  the_file[PATH_LEN],  ch; 

sprintf (the_file,  "%s/%s/%s .c",  CodeGroups,  GroupName,  name); 

if  ( ! (ptr  * openFile (the_f lie,  "r", "Install") ) ) 

( 

fprintf (report , "write_comp:  unable  to  open  %s.\n",  the_file) 

return  (ERROR) ; 

} 

while  ( (ch  - fgetc  (ptr))  !*  EOF) 

( 

fputc  (ch,  group_file); 

) 

fputc  (' \n' , group_file) ; 
fputc  (' \n' , group_file) ; 
fclose (ptr) ; 

> 


::;§|  installc  g 

configjngmt (name,  class,  type,  nomenclature) 
char  name[]; 
char  class ( ) ; 

/ char  type[]; 

char  nomenclature [ ] ; 

{ 

char  compare_type [TYPE_LEN] ; /*  the  corrected  type  from  the  signal  table  'S'  ->  'c'  */ 


w 


/******************************************************** 

If  it's  a signal  make  sure  is  in  the  SignalTable  list 

*********************************************************/ 
if (strcmp (class,  "signal")  — 0) 

{ 

for  (i-0;i  < SignalCount ; i++) 

if  (strcmp  (name,  SignalTable [ i ]. name)  — 0) 

( 

if  (SignalTable [i] -type [0]  — 'S') 
strcpy (compa re-type,  "c"); 
else  strcpy  (compare_type,  SignalTable [ i 3 . type) ; 

/■kit********************************** 

It's  in  the  signal  table  - verify 
that  the  type  is  correct. 

♦★★★★a*******************************/ 

if (type [0]  !-  compare_type [0] ) 

fprintf (report , "\t%s  type  is  not  consistent  with  signal  table. \n",  name); 
return (ERROR) ; 

) 

else  return (OK); 

} 

) 

/★************************************* 

It's  not  defined  in  the  signal  table. 

See  if  it's  already  in  our  array  of 
signals  that  need  to  be  defined. 

***************************************/ 
for  ( i-0; icnumSigsTBDef ; i++) 

( 

if (strcmp (sigsTBDef [i] .name,  name)  **  0) 

( 

/★★★a************************************************ 

If  it's  alread  in  our  list  of  signals  to  be  defined 
make  sure  it  has  the  same  type  and  nomenclature. 
******************★*********★**★*********************/ 
if ( strcmp (sigsTBDef [i] . type,  type) *»0  && 

strcmp (sigsTBDef [i] .nomenclature,  nomenclature) »*0) 

( 

return (OK) ; 

} 

else 

fprintf (report,  "\t%s  type  is  not  consistent  with  previous  definition .\n",  name); 
return (ERROR) ; 

) 

} 

} 

/***********★***************************************** 

It's  not  in  the  list  to  be  defined  so  put  it  there, 
★★a***************************************************/ 
strcpy (sigsTBDef [numSigsTBDef] .name,  name) ; 
strcpy (sigsTBDef [numSigsTBDef] .type,  type) ; 

strcpy (sigsTBDef [numSigsTBDef] .nomenclature,  nomenclature); 

numSigsTBDef++; 

return (OK) ; 

) 

else  if  (strcmp (class,  "msid")  --  0) 

( 

for  ( i*0; i < MSIDCount ; i++) 

( 

if  (strcmp  (name,  MSIDTable [i] .name)  — 0) 

{ 

if (strcmp (type,  MSIDTable [ i] . type)  !=  0) 

( 

fprintf (report,  *\t%s  type  is  not  consistent  with  tag_msid_table . \n" , name); 
return (ERROR) ; 


install.c 


} 

else  return (OK); 

) 

fprintf (report f "\t%s  is  not  defined  in  the  tag_ms id_table . \n" 
return (ERROR) ; 


name) 


install.o 
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c omp i 1 e_g  r oup 


Purpose:  Compile_group  does  a system  call  on  cc,  compiling  the 
the  C file  in  order  to  create  an  executable.  It 
compiles  with  the  correct  libraries  and  include  files. 


Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 


Date:  8/18/87 


Version:  1.0 

Project:  CODE  {Comp  Development  Environment) 

a***************************************************************/ 

compile_group  0 

* char  sys_cmd[500] , /*  String  to  hold  system  command.  */ 

compileRpt [PATH_LENJ , /*  String  to  hold  file  name  of  compile  report  */ 

response [5],  /*  A place  for  get  user  input  */ 

libPath [PATH_LEN] ; /*  string  to  build  path  to  the  libraries  */ 

int  i,  /*  A simple  counter  */ 

rC;  / * Retrun  code  for  system  command.  */ 


/* 

* Compile  the  group  and  redirect  errors  to  the  installation  report 

* <GroupName> . rpt . 

*/ 

inform  ("Please  wait,  compiling...",  PURPLE,  0) ; 

sprintf (compileRpt,  "%s/%s/compile . rpt",  CodeGroups,  GroupName) ; 

sprint f (libPath,  "%s/ rtds/lib", RTDS)  ; ^ ^ 

sprintf  (sys_cmd,  "cc  -o  %s/%s  %s/%s/ls.c  -I$RTDS/rtds/include  %s/libuserfuncs . a %s/libnf.a  Is/libf ltmsg.a  %s 
/librti.a  %s/libiesputil .a  2>  %s",  AMGroups,  GroupName,  CodeGroups,  GroupName,  GroupName,  libPath,  libPath,  libPa 
th,  libPath,  libPath,  compileRpt); 
rc  ■ system  (sys_cmd); 

/* 

* If  there  were  compilation  errors  return  an  ERROR. 

*/ 

if  (rc  I-  0) 

( 

Grouplnfo [GroupNumber] .disposition  • ERROR; 

/* 

* Put  the  group  names  into  the  Grouplnfo  file 

V 

writeGroupNames  ()  / 
return (ERROR) ; 

} 

else 

{ 

Grouplnfo [GroupNumber] .disposition  m INSTALLED; 

/* 

* Put  the  group  names  into  the  GroupNames  file 
*/ 

writeGroupNames  {) ; 
return (OK) ; 


) 


> 


■ menu.c 

menu . c 


♦include  "code.h" 

♦include  "color. h" 

int  button  pressed;  /*  The  number  of  the  pressed  button  1,2,  or  4 */ 

/a***************************************************************** 

The  option_struct  is  used  to  store  the  mouse  sensitive  options  and 
there  corresponding  coordinates. 

*************************★**********★******************************/ 
struct  optionStruct 
{ 

char  *name; 
float  lowX; 
float  lowY; 
float  highX; 
float  highY; 

}; 

struct  optionStruct  opt  ions [NUMBER_OF_OPT IONS]  • { 


"if". 

0.0091, 

0.8540, 

0.0681,  0.8790, 

"then”. 

0.0844, 

0.8540, 

0.1444,  0.8790, 

"and", 

0.0081, 

0.7950, 

0.0681,  0.8200, 

"or". 

0.0844, 

0.7950, 

0.1444,  0.8200, 

"not". 

0.0844, 

0.7655, 

0.1444,  0.7905, 

"print". 

0.0081, 

0.2820, 

0.0681,  0.3070, 

"set". 

0.0081, 

0.3115, 

0.0681,  0.3365, 

«\n 

* t 

0.1101, 

0.3735, 

0.1201,  0.3985, 

ns.ii 

' r 

0.0590, 

0.3735, 

0.0790,  0.3985, 

n/w 
s t 

0.1101, 

0.4030, 

0.1201,  0.4280, 

n/an 
N , 

0.0590, 

0.4030, 

0.0790,  0.4280, 

n-R 

• 

0.0217, 

0.4030, 

0.0317,  0.4280, 

"MS ID", 

0.0081, 

0.6450, 

0.0681,  0.6700, 

"signal". 

0.0044, 

0.6450, 

0.1444,  0.6700, 

"local" , 

0.0081, 

0.6155, 

0.0681,  0.6405, 

"number", 

0.0844, 

0.6155, 

0.1444,  0.6405, 

"integer". 

0.0794, 

0.5240, 

0.1494,  0.5490, 

"float", 

0.0081, 

0.4945, 

0.0681,  0.5195, 

"double". 

0.0844, 

0.4945, 

0.1444,  0.5195, 

"New", 

0.0081, 

0.9455, 

0.0681,  0.9705, 

"Save", 

0.2500, 

0.9455, 

0.2900,  0.9705, 

"Install", 

0.3000, 

0.9455, 

0.3700,  0.9705, 

"Retrieve", 

0.1600, 

0.9455, 

0.2400,  0.9705, 

"Quit", 

0.6600, 

0.9455, 

0.7000,  0.9705, 

"Delete" , 

0.0081, 

0.9160, 

0.0681,  0.9410, 

"else", 

0.0081, 

0.0245, 

0.0681,  0.8495, 

"endif ", 

0.0844, 

0.8245, 

0.1444,  0.8495, 

"List", 

0.7637, 

0.9455, 

0.8050,  0.9705, 

"8", 

0.0217, 

0.3735, 

0.0317,  0.3985, 

0.0155, 

0.1905, 

0.0255,  0.2155, 

">  ", 

0.0525, 

0.1905, 

0.0625,  0.2155, 

0.0155, 

0.2200, 

0.0255,  0.2450, 

n_n 

l 

0.0525, 

0.2200, 

0.0625,  0.2450, 

« * n 

t 

0.0895, 

0.2200, 

0.0995,  0.2450, 

0.1265, 

0.2200, 

0.1365,  0.2450, 

"Remove", 

0.4300, 

0.9455, 

0.4900,  0.9705, 

"Edit", 

0.0844, 

0.9455, 

0.1444,  0.9705, 

"comment". 

0.0720, 

0.2820, 

0.1520,  0.3070, 

"Hardcopy", 

0.5000, 

0.9455, 

0.5800,  0.9705, 

"bitXor", 

0.0081, 

0.7655, 

0.0681,  0.7905, 

"Backup", 

0.5900, 

0.9455, 

0.6500,  0.9705, 

"short", 

0.0081, 

0.5240, 

0.0681,  0.5490, 

"char",  0.0081,  0.4650,  0.0681,  0.4900,  /*  Type's  string  */ 


"function". 

0.0720, 

0.3115, 

0.1520,  0.3365, 

"exp". 

0.0155, 

0.1315, 

0.0455,  0.1565, 

"log". 

0.0895, 

0.1315, 

0.1095,  0.1565, 

"cos". 

0.0155, 

0.0695, 

0.0681,  0.0945, 

"acos". 

0.0895, 

0.0695, 

0.1444,  0.0945, 

"sin". 

0.0155, 

0.0400, 

0.0681,  0.0650, 

"asin". 

0.0895, 

0.0400, 

0.1444,  0.0650, 

"tan", 

0.0155, 

0.0105, 

0.0681,  0.0355, 

"atan". 

0.0895, 

0.0105, 

0.1444,  0.0355, 

"Copy", 

0.3800, 

0.9455, 

0.4200,  0.9705, 

"sqrt". 

0.0155, 

0.1610, 

0.0555,  0.1860, 

"power". 

0.0895, 

0.1610, 

0.1495,  0.1860, 

"string". 

0.0081, 

0.5860, 

0.0681,  0.6110,  /*  Variable's  string  */ 

"bit And", 

0.0081, 

0.7360, 

0.0681,  0.7610, 

"bitOr", 

0.0844, 

0.7360, 

0.1444,  0.7610, 

"shiftL", 

0.0155, 

0.1020,  0.0755,  0.1270 

"shiftR", 

0.0895, 

0.1020,  0.1495,  0.1270 

"PI", 

0.0895, 

0.1905,  0.0995,  0.2155 

n n ^ 

0.1265, 

0.1905,  0.1365,  0.2155 

"Help", 

0.7187, 

0.9455,  0.7587,  0.9705 

"Small", 

0.8200, 

0.9455,  0.8600,  0.9705 

"Medium", 

0.8750, 

0.9455,  0.9150,  0.9705 

"Large ", 

0.9400, 

0.9455,  0.9800,  0.9705 

} ; 


struct  helpOptionStruct 
{ 

int  name; 
float  lowX; 
float  lowY; 
float  highX; 
float  highY; 

In- 
struct helpOptionStruct  help_options [NUMBER_OF_HELP]  - { 
WORK  AREA,  0.1563,  0.1033,  1.0000,  0.9110, 
KEYIN_AREA,  0.1563,  0.0850,  1.0000,  0.1600, 

P ROMP  T_  ARE  A , 0.1563,  0.0000,  1.0000,  0.0600 

}; 


menu.c 


mmm 


menu  (theMode) 
int  theMode; 

{ 

/★a************************************************************************************* 
Local  Variables 

******★***********★********************************'********'***************************** 
options  all  the  possible  options  to  mouse  on 

x_picked  x coordinate  of  mouse  location 

y_picked  y coordinate  of  mouse  location 

i simple  counter 

j simple  counter 

******************************************************************************************/ 

int  pushedO,  /*  The  routine  down  below  called  by  mgibuttonint  */ 

show_buf,  /*  The  graphics  buffer  to  show  */ 

modjbuf,  /*  The  graphics  buffer  to  modify  */ 

i;  /*  simple  counter  */ 

char  temp [150];  /*  always  need  one  of  these  */ 

float  x_picked,  y__picked;  /*  relative  coordinates  of  mouse  */ 

/************★**★**★**********★******** 

Assume  a button  has  not  been  pressed 
**********★**★*************★**•*********/ 
button_pressed  *0; 
mgibuttonint  (0); 

/**************************■******★*■**★* 

Hang  out  until  a button  is  pressed 

♦ ♦•IT***********************************/ 

mgibuttonint  (pushed) ; 
while  ( ! (button_pressed) ) 
astpause  (-1,  100) ; 

inform BLUE,  0) ; 

/★-*★★*★**★*★***★**★*****★****★**★*★*★** 

Get  the  relative  coordinates  of  mouse 
a********#*****#***********************/ 

mgrgetcursxy  (2,1, fix_picked, fcy_picked) ; 
mgibuttonint  (0) ; 

/************************************** 

Find  out  what  area  we  are  in 
****************★****★*************★**★/ 
if  (theMode  — HELP  j | theMode  — LIST) 


( 


for  (i-0;i<NUMBER_OF_OPTIONS;i++) 

{ 

/*★★*******★*★**★* *********** ********** 

Have  they  chosen  a token 
*********************★★***********★****/ 
if  (xjpicked  < opt  ions [i] .highX  ££ 
xjpicked  > options [i] . lowX  &£ 
y_picked  < opt  ions [i] .highY  4£ 
y_picked  > opt  ions [i] . lowY) 

( 

mgifb(l,  1) ; 
return  (i); 

) 

) 

inform ("You  are  not  over  a mouseable  token . BLUE, 0) ; 

/* 

* Show  the  frame  buffer  we're  not  currently  showing. 

* Modify  the  frame  buffer  we're  not  currently  modifying. 

V 

mgigetfb  (fishow^buf,  £mod_buf) ; 
if  (showjauf— 1) 
clearWAO  ; 

else  displayWA (Comp) ; 
mgifb  (11,  1); 
return (ERROR) ; 


} 

else  if  (theMode 
{ 


FONT) 


See  if  we're  mousing  in  one  of  our  windows 
a******************************************/ 
for  (i-0;i<NUMBER_OF_HELP;i++) 

{ 

/a************************************* 

Have  they  chosen  a token 
***************************************/ 
if  (x_picked  < help_options [ i] .highX  64 
x_picked  > help_options (ij . lowX  && 
y_picked  < help_opt ions [i] .highY  64 
y_picked  > help_options [ i] . lowY) 

{ 

mgifb (1,1) ; 

return  (help_opt ions [i] . name) ; 

) 

} 

inform ("You  are  not  over  a mouseable  token BLUE, Q) ; 

/* 

* Show  the  frame  buffer  we're  not  currently  showing. 

* Modify  the  frame  buffer  we're  not  currently  modifying. 

V 

mgigetfb  (4show_buf,  tmod_buf) ; 
if  <show_buf—  1) 
clearWA  ()  ; 

else  displayWA (Comp) ; 
mgifb  (11,  1)  ; 
return (ERROR) ; 

> 

else  if  (theMode  — RUN) 

{ 

for  (i-0;  KTotValPts;  i++) 

( 

if  (x_picked  < options [ValidPoints [ i] ]. highX  46 
x_picked  > options  (ValidPoints  [i]  ] .lowX  44 
y_picked  < options [ValidPoints [i] ] .highY  £6 
y_picked  > options [ValidPoints [ i] ]. lowY) 

{ 

mgifb  (1, 1); 

return (ValidPoints [i] ) ; 

) 

} 

inform ("You  are  not  over  a mouseable  token BLUE, 0) ; 

/* 

* Show  the  frame  buffer  we're  not  currently  showing. 

* Modify  the  frame  buffer  we're  not  currently  modifying. 

V 

mgigetfb  (4show_buf,  4mod__buf ) ; 
if (show_buf»-l) 
clearWA () ; 

else  displayWA (Comp) ; 
mgifb  (11,  1); 
return (ERROR) ; 

} 

} 


menu.c 

/*★*********************************************************** 

COLOR_VALID 

Purpose : Color  valid  is  used  to  write  all  the  valid  next  choices 

in  a different  color  (yellow)  than  the  invalid  choices 
(red) . 

Designer:  J.  Harold  Taylor/SDC 

Programmer:  J.  Harold  Taylor/SDC 

Date:  12/11/86 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 
None . 

color_valid  {previous,  other) 
Global  Variables 


int  previous,  other; 

/a************************************************************************************** 
Local  Variables 

**************************************************************************************** 
all  the  possible  options  to  mouse  on 
the  lower  left  x coordinate  of  the  mousable  area 
the  lower  left  y coordinate  of  the  mousable  area 

the  upper  right  x coordinate  of  the  mousable  area 
the  upper  right  y coordinate  of  the  mousable  area 
i simple  counter 

j simple  counter 

flag  flag  for  determining  color  of  this  particular  choice 

* ***********************************************************  ********★********★*★**********/ 


options 
low_x_point 
l°w_y— point 
hlgh_x_point 
hlgh_y_point 


int  i; 

char  temp [100]; 

/*•***  + *****★*****★**********★********** 

Call  next_inputs  if  required 
********** *******★**★**★************★**/ 
next_inputs  (previous,  other); 

if  (previous  < 0 I I previous  > 50) 
previous  * 0; 

mg i hue (RED) ; 

for  (i»0; i<NUMBER_OF_OPTIONS; i++) 

{ 

/************************************************★************ 

Draw  the  allowable  options  given  that  we  need  to 

size  these  normalized  coordinates  based  on  screen  resolution 

♦♦♦♦♦♦♦A******************************************************/ 

mgrgfs  (opt ions [ i] . lowX  + 0 . 0024, options [i] . lowY  + 0.0012,  0,  options [i] .name) ; 

} 

/****************************************************** 

Now  go  through  and  draw  all  the  valid  tokens  in  yellow 
*******************************************************/ 
mgihue (YELLOW) ; 
for  (i-0;  KTotValPt  s;  i++) 

( 


J menu.c  : 

* * * * * **V**************  ********  . 
Draw  the  allowable  options  given  that  we  need  to 
size  these  normalized  coordinates  based  on  screen  resolution 

a*************************************************************/ 

mgrgfs  {options [ValidPoints (i] ]. lowX  + 0.0024, 
options [Valid?oints[i]3 . lowY  + 0.0012,  0, 
options [ValidPoints [i] ] .name) ; 

) 

mgicursmode  (9); 

mgrcursxy  (2, 6, opt  ions [LikelyNextChoice] . lowX  + 0.0048, 
options [LikelyNextCboice] .lowY  + 0.013); 
mgicursmode  (15) ; 


} 


menu.c 

; ; " 

, -mm  * 

PUSHED 


Purpose:  Pushed  is  simply  the  routine  that  is  invoiced  when 

a mouse  button  is  pressed.  It  must  be  preceded  by 
a mgibuttonint  (pushed)  command 

Designer:  J.  Harold  Taylor/SDC 

Programmer:  J.  Harold  Taylor/SDC 

Date:  12/11/86 

Version:  1 ,0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 
None . 

************************************************************** 
Global  Variables 

*****************************************  ***************  ****** 
x x coordinate  of  cursor 

y y coordinate  of  cursor 

s mask  for  which  button  has  been  pressed 

*************************************************************/ 
pushed  (x,  y,  s) 

unsigned  int  x,y,s; 

{ 


{ 

button_pressed  ■ s; 

> 

) 


NEW 


Purpose:  Prompts  the  user  for  the  name  of  a new  group  or  comp. 
Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  2/0/89 


Version : 2.0 

Project:  CODE  (Comp  Development  Environment) 

fr**********#*'**************"***************'**********************/ 

♦include  "code.h" 

♦include  "color .h" 

new (theClass) 

char  theClass [];  /*  Either  "Comp"  or  "Group"  */ 

* char  tempStr  [200] , nameToGet  [MAX__NAME_LEN] , group_dir  [PATH_LEN]  ; 
int  i, status; 


/* 

* Clean  the  mean  screen  in  prep  for  the  new  comp. 

V 

cleanSlate  ()  ; 

mgihue  (BLACK);  /*  Blank  out  the  out  names  */ 
mgrbox  (.7,  0.9120,  .999  ,0.9320); 


* Get  the  new  name  from  the  user,  if  the  user  defaults 

* we  return  to  calling  routine  with  no  changes. 

*/ 

if  (get_new_name (theClass, nameToGet ) --DEFAULT) 
return (DEFAULT) ; 

if  (! strcmp (theClass, "Comp") ) 

{ 

CompNumber  - NumOfComps++; 

strcpy  (CompName,  nameToGet) ; 

strcpy  (Complnfo [CompNumber ] .name, CompName) ; 

Complnfo [CompNumber ]. disposition  * INCOMPLETE; 

Complnfo [CompNumber] . rate  * 1; 

Complnfo [CompNumber ]. on_off  » FALSE; 

Complnfo [CompNumber] . noise_f ilter  * 2; 

put St rWithBlue (CompName,  0.8823);  /*  string,  norm  x */ 

) 

else  /*  It  was  a group  */ 

{ 

GroupNumber  * NumOf Groups; 
strcpy  (GroupName,  nameToGet) ; 

strcpy  (Grouplnfo [NumOfGroupsJ .name, GroupName) ; 

/* 

* This  is  the  only  place  where  NumOfGroups++ 

*/ 

Grouplnfo [NumOf Group s++] .disposition  - INCOMPLETE; 
/*★*********************************************************** 
Create  the  necessary  directory  since  it  does  not  exist  yet. 
**************★******************★****************************/ 
sprintf  (group_dir,  "%s/%s",  CodeGroups,  GroupName); 
mkdir  (group_dir,  511) ; 

NumOfComps  - 0; 

putStrWithBlue (GroupName,  0.75);  /*  string,  norm  x */ 

} 


get_new_name (theClass, nameToGet) 

char  theClass [],  /*  Whether  it  is  a 'Comp'  or  'Group' 
"nameToGet;  /*  The  name  we  shall  set  within  */ 


< 


char  tmpStr[2G0]; 
int  i,  status; 


V 


do 


sprintf (tmpStr, "Please  type  the  new  %s  name(<%d  char),  or  (Q) uit", theClass,MAX_NAME_LEN-2) ; 
status  ■ ask (tmpStr,  GREEN,  nameToGet) ; 

if (status--DEFAULT I I nameToGet [0] — ' q'  i I nameToGet [0] — ' Q' ) 
return (DEFAULT) ; 

/********************************************* 

File  names  may  not  have  a leading  zero 
******************************* ***************/ 
if  (nameToGet [0]  >-  '0'  £6  nameToGet [0]  <-  '9') 

( 

status  » ERROR; 

ask ("First  character  must  be  alphabetic  --  Hit  [RETURN]  to  continue",  GREEN,  tmpStr); 

/★****************************************************** 

Make  sure  that  it's  not  an  already  existing  name. 
********************************************************/ 

else 

{ 

/* 

* The  comp  name  is  called  as  a subroutine 

* and  therefore  can  not  have  the  name  main. 

V 

if  (I strcmp ("main", nameToGet) ) 

{ 

status  - ERROR; 

inform ("'main'  is  reserved;  do  not  use  it . " , PURPLE, 2) ; 

) 

else  if  <! strcmp (theClass, "Group") ) 

( 

/* 

* Look  for  a duplicate  group  name 
*/ 

for  (i-0;  KNumOfGroups;  ++i) 

{ 

if  (!  strcmp  (Grouplnfo  [ i]  .name',  nameToGet)) 

{ 

status  * ERROR; 

sprintf {tmpStr,  ”%s  already  exists.  - Hit  [RETURN]  to  continue",  nameToGet) 

ask (tmpStr,  GREEN,  tmpStr); 

break; 

) 

} 

} 

else  /*  Look  through  the  list  of  comps  */ 

( 

/* 

* Look  for  a duplicate  comp  name 
*/ 

for  (i-0;  KNumOfComps; ++i) 

{ 

if  (! strcmp  (Complnfo [ i] . name,  nameToGet)) 

{ 

status  - ERROR; 

sprintf (tmpStr, "%s  already  exists  — Hit  [RETURN]  to  continue" , nameToGet ) ; 

ask  (tmpStr,  GREEN,  tmpStr)  ; 

break; 

} 

) 

) 

> 

) while  (status  !-  OK); 
return  OK; 


External  Interfaces 


/★A*********************************************************** 

Include  files 

*****************************  **************** ****************/ 

# include  "code.h" 

next_inputs  (on_my_left, on_my_right) 
int  on_my_left, on_my_right; 

{ 

int  i,  defaults  - 17; 
char  temp [15 6]; 

if  (on_my_right  --  -2) 
return  (OK) ; 

TotValPts  - defaults; 

/*  The  following  17  points  are  default  and  should  always  be  mouseable  */ 
ValidPoints [ 0]  - QUIT; 

ValidPoints [13  - HELP; 

ValidPoints [2]  - RETRIEVE; 

ValidPoints [3)  - HARDCOPY; 

ValidPoints [4]  - EDIT; 

ValidPoints [5]  - SAVE; 

ValidPoints [6]  - REMOVE; 

ValidPoints [7]  - INSTALL; 

ValidPoints [8]  - COMMENT; 

ValidPoints [9)  - DELETE; 

ValidPoints [10]  - NEW; 

ValidPoints (11)  - COPY; 

ValidPoints (12)  - LIST; 

ValidPoints [133  - SMALL; 

ValidPoints [143  - MEDIUM; 

ValidPoints [153  - LARGE; 

ValidPoints [163  - BACKUP; 

/***♦************************************************************** 

COMMENTS 

Comments  are  handled  differently  than  other  tokens,  since  they  do 
not  change  what  is  valid,  but  are  part  of  the  comp  string.  Search 
backwared  for  a valid  token,  or  just  find  the  end  of  the  string. 
********★**********************************************************/ 
if  (on_jmy_left  ■■  COMMENT) 

( 

/********************************* 

Start  out  assuming  its  a new  comp 
**********************************/ 
on_my_left  - NEW; 

/*************•********************************** 

Loop  through  the  choices  until  we  find  one  which 
is  not  a comment,  then  reset  and  break 


!||"  nextJnputs.C; f 


for  (i-ChoiceCounter-1; i>l; i — ) 

^ /*********************************************** 

_ __  One®  we  have  found  the  first  occurrence  of 

something  that  is  not  a comment  we  call,  break 
*******★****************************************/ 
if  (PrevChoice [i]  !-  COMMENT) 

{ 

on_my_left  - PrevChoice [ i] ; 
break; 

) 

} 

) 

/**************************************** 

IF 

it#***************************************/ 


(on_my_left  — IF) 

TotValPts  - defaults 

+ 

20; 

ValidPoints [defaults 

+ 

0]  - 

LOCAL; 

ValidPoints [defaults 

+ 

1]  - 

MS  ID; 

ValidPoints [defaults 

+ 

2]  - 

SIGNAL; 

ValidPoints [defaults 

+ 

33  - 

NUMBER; 

ValidPoints [defaults 

4]  - 

L PAREN; 

ValidPoints [defaults 

+ 

5)  - 

NOT; 

ValidPoints [defaults 

+ 

63  - 

COS; 

ValidPoints [defaults 

+ 

7]  - 

ACOS; 

ValidPoints [defaults 

+ 

83  - 

SIN; 

ValidPoints (defaults 

+ 

93  - 

AS  IN; 

ValidPoints [defaults 

+ 

103 

* TAN; 

ValidPoints [defaults 

+ 

U] 

- AT  AN; 

ValidPoints [defaults 

+ 

12] 

- STRING; 

ValidPoints [defaults 

+ 

13] 

- PI; 

ValidPoints [defaults 

+ 

143 

- FUNCTION; 

ValidPoints [defaults 

+ 

153 

- SQRT; 

ValidPoints [defaults 

+ 

163 

- POWER; 

ValidPoints [defaults 

* 

173 

- EXP; 

ValidPoints [defaults 

+ 

18] 

- LOG; 

ValidPoints [defaults 

+ 

19) 

- SUBTRACT; 

LikelyNextChoice  ■ MS ID? 

} 

/******************************************* 

GET_TYPE 

If  the  user  is  to  enter  the  type,  don't  let 
do  anything  else  until  they  do. 
****★***************************************/ 
else  if  (on_my_left  — GET_TYPE) 

{ 

TotValPts  * 5? 

ValidPoints [0]  - FLOAT; 

ValidPoints [ 1]  - DOUBLE; 

ValidPoints [2]  - INTEGER; 

ValidPoints [3]  - SHORT; 

ValidPoints [4]  - CHAR; 

LikelyNextChoice  - SHORT; 

) 

/**************************************** 

MS ID  NUMBER  PI  CHAR  SIGNAL  LOCAL 
*****************************************/ 
else  if  (on_my_left  — MS  ID  | [ on  my_left  — NUMBER  I I 
on_my_l*ft  —PI  II  on_my_left  — STRING  i | 
on_my_left  — SIGNAL  I | on_my_left  — LOCAL) 

{ 

/ft****************************** **************** 

Having  an  equal  number  of  ifs  and  endifs  means 
we're  outside  of  the  if  which  is  the  same 
as  being  in  the  consequence. 
***********************************************★/ 
if  (WhereAml  — CONSEQUENCE  | { NumberOflfs  — NumberOfEndif s) 
{ 

if  (Equation  — RHS) 

{ 

if  (CompareType [NumberOfCompares-1] [0]  !*  'c') 

{ 

/******************************************* 
Check  if  they  have  balanced  their  paren's, 
if  not,  make  'em  balance  the  parens. 


nextjnputs.c  'Ji  . rC;. 

This  takes  care  of  argDefs  too. 

********************************************/ 
if  {ParenCount  > 0) 

{ 

TotValPt s - defaults  + 10; 

ValidPoints [default s + 0]  - ADD; 

ValidPoints [default s + 1]  - SUBTRACT; 

ValidPoints [default s + 2]  - MULTIPLY; 

ValidPoints [default s + 3]  - DIVIDE; 

ValidPoints [default 3 + 4]  « SHIFTR; 

ValidPoints [defaults  + 5]  - SHIFTL; 

ValidPoints [defaults  + 6]  - R_PAREN; 

ValidPoints [defaults  + 7]  - BITOR; 

ValidPoints [default s + 8]  - BITXOR; 

ValidPoints [defaults  + 9]  - BITAND; 

LikelyNextChoice  - R_PAREN; 
if (FuncParenCount  > 0 a 

FunctionArgsDef [Funct ionCurrent ] < Funct ionArguments [Funct ionCurrent ] -1) 
ValidPoints [TotValPt s++]  - COMMA; 

} 

else 

{ 

TotValPts  - defaults  + 12; 

ValidPoints [defaults  + 0]  - ADD; 

ValidPoints [defaults  + 1]  - SUBTRACT; 

ValidPoints [defaults  + 2]  - MULTIPLY; 

ValidPoints [default s + 3]  - DIVIDE; 

ValidPoints [defaults  + 4]  - IF; 

ValidPoints [defaults  + 5]  - SET; 

ValidPoints [default s + 6]  ■ PRINT; 

ValidPoints [defaults  + 7]  - SHIFTR; 

ValidPoints [defaults  + 8]  - SHIFTL; 

ValidPoints [defaults  + 9]  - BITOR; 

ValidPoints [defaults  + 10]  » BITXOR; 

ValidPoints [defaults  + 11]  - BITAND; 

LikelyNextChoice  « IF; 

/***★*★*****★*******■*************■************ 

If  an  ELSE  has  already  been  used  in  this  if 
we  don't  let  them  use  it  again! 
*********************************************/ 
if (NestedElseCheck [NumberOf If s-NumberOfEndifs]  ■■  THEN) 

{ 

LikelyNextChoice  - ELSE; 

ValidPoints [TotValPt s++]  * ELSE; 

} 

/★★****************************************** 

If  they  have  closed  all  their  if's  with 
endif's  then  they  don't  need  endif  any  more. 
**+******************************************/ 
if  { (NumberOflfs  - NumberOfEndif s)  > 0) 

{ 

LikelyNextChoice  * END— IF; 

ValidPoints [TotValPts++]  - END_IF; 

} 

) 

) 

/* 

* Compare  type  is  a string. 

*/ 

else 

{ 

TotValPts  * defaults  +3; 

ValidPoints [defaults  + 0]  - IF; 

ValidPoints [defaults  + 1]  * SET; 

ValidPoints [defaults  + 2]  - PRINT; 

/******************★*  ****************  ******** 

If  an  ELSE  has  already  been  used  in  this  if 
we  don't  let  them  use  it  again! 

********★*★********************★************★/ 
if (NestedElseCheck [NumberOf Ifs-NumberOfEndifs]  — THEN) 

{ 

LikelyNextChoice  * ELSE; 

ValidPoints [TotValPts++]  - ELSE; 

> 

/**★*★★*★***★*********#★★★*★★*★***★★********* 

If  they  have  closed  all  their  if's  with 
endif's  then  they  don't  need  endif  any  more. 
*********************************************/ 


next_inputs.c 

if  UNurr^rOfifs  - Nur^rOfEnd  > 0) 

{ 

LikelyNextChoice  - END_IF; 

ValidPoints [TotValPts++]  - END_IF; 

} 


/****************************"******************** 

Don't  worry  - be  happy  we  couldn't  get  to 

this  point  with  an  MSID  or  constant  expression. 
See  on_my_left  — SET. 

****** ***************** **************************/ 
else  if  (Equation  **  LHS) 

{ 

TotValPt s - defaults  + 1; 

ValidPoints [defaults  + 0]  » EQ; 

Like lyNext Choice  = EQ; 

} 

} 

else  if  (WhereAmI  — PREMISE) 

{ 

if  (Equation  — LHS) 

{ 

if  (ParenCount  > 0) 

{ 

/*************************************** 

If  we're  done  defining  arguments,  let 
them  do  some  relational  stuff. 
***************************************/ 
if  (FuncParenCount  ■■  0) 

{ 

TotValPts  * defaults  + 16; 

ValidPoints [defaults  + 0]  - ADD; 

ValidPoints [defaults  + 1]  - SUBTRACT; 

ValidPoints [defaults  + 2]  * MULTIPLY; 

ValidPoints [default s + 3]  * DIVIDE; 

ValidPoints [defaults  + 4]  - LT; 

ValidPoints [defaults  + 5]  * GT; 

ValidPoints [default s + 6]  * LE; 

ValidPoints [defaults  + 7]  ■ GE; 

ValidPoints [defaults  + 8]  - NE; 

ValidPoints [defaults  + 9]  - R_PAREN; 

ValidPoints [defaults  + 10]  - EQ; 
ValidPoints [defaults  + 11]  - SHIFTR; 
ValidPoints [defaults  + 12]  * SHIFTL; 
ValidPoints [defaults  + 13]  - BITOR; 
ValidPoints [defaults  + 14]  - BITXOR; 
ValidPoints [defaults  + 15]  - BITAND; 


LikelyNextChoice  - EQ; 

} 

else 

{ 

TotValPts  - defaults  + 10; 

ValidPoints [defaults  + 0]  - ADD; 

ValidPoints [defaults  + 1]  - SUBTRACT; 

ValidPoints [defaults  + 2]  - MULTIPLY; 

ValidPoints [defaults  + 3]  - DIVIDE; 

ValidPoints [defaults  + 4]  - SHIFTR; 

ValidPoints [defaults  + 5]  - SHIFTL; 

ValidPoints [defaults  + 6]  - R_PAREN; 

ValidPoints [defaults  + 7]  - BITOR; 

ValidPoints [defaults  + 8]  • BITXOR; 

ValidPoints [defaults  + 9]  - BITAND; 

if  (FunctionArgsDef [Funct ionCurrent ] < Function Arguments [Funct ionCurrent] -1) 
ValidPoints [TotValPts++]  - COMMA; 

LikelyNextChoice  * R_PAREN; 

) 

} 

else 

{ 

TotValPts  - defaults  + 15; 

ValidPoints [defaults  + 0]  - ADD; 

ValidPoints [defaults  + 1]  - SUBTRACT; 

ValidPoints [defaults  + 2]  - MULTIPLY; 

ValidPoints [defaults  + 3]  - DIVIDE; 

ValidPoints [defaults  + 4]  « LT; 

ValidPoints [defaults  + 5]  - GT; 


VaiidPoints [defaults  + 
VaiidPoints [defaults  + 
VaiidPoints [defaults  + 
VaiidPoints [defaults  + 
VaiidPoints [defaults  + 
VaiidPoints [defaults  + 
VaiidPoints [defaults  + 
VaiidPoints [defaults  + 
VaiidPoints [defaults  + 
LikelyNextChoice  * EQ; 
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6]  - 

* LE; 

7]  - 

- GE; 

8]  = 

* NE; 

9]  - 

‘ EQ; 

10] 

- SHIFTR; 

11] 

- SHIFTL; 

12] 

= BITOR; 

13] 

- BITXOR; 

14] 

- BITAND; 

} 


RHS) 


> 

else  if  (Equation 

{ 

if  (ParenCount  > 0) 

{ 

/★**★************★********★*********★****** 
If  we're  done  defining  function  arguments, 
let  them  do  some  relational  stuff. 

a*****************-*************************/ 

if  (FuncParenCount  »-  0) 

{ 

TotValPts  - defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
LikelyNextChoice  - R 

) 

else 

{ 

TotValPts  - defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 
VaiidPoints [defaults 


15; 

0] 

- 

AND; 

1] 

- 

DIVIDE; 

2] 

- 

OR; 

3] 

- 

ADD; 

4] 

- 

SUBTRACT, 

5] 

• 

MULTIPLY, 

6] 

- 

BITXOR; 

7] 

- 

R PAREN; 

8] 

- 

BITAND; 

9] 

- 

BITOR; 

10] 

■ SHIFTR; 

11] 

- SHIFTL; 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

PAREN; 


10 

0] 

* 

DIVIDE; 

1] 

- 

ADD; 

2] 

- 

SUBTRACT; 

3] 

- 

MULTIPLY; 

4] 

- 

R PAREN; 

5] 

- 

SHIFTR; 

6] 

- 

SHIFTL; 

7] 

- 

BITOR; 

8] 

- 

BITXOR; 

9] 

- 

BITAND; 

} 


} 

else 

{ 


if  (Funct ionArgsDef [Funct ionCurrent ] < Funct ionArgument s [Funct ionCurrent ] -1) 
VaiidPoints [TotValPts++]  - COMMA; 

LikelyNextChoice  - R_PAREN; 


TotValPts  * defaults  + 12; 

VaiidPoints [defaults  + 0]  - AND; 

VaiidPoints [defaults  + 1]  - DIVIDE; 

VaiidPoints [defaults  + 2]  * OR; 

VaiidPoints [defaults  + 3]  - ADD; 

VaiidPoints [defaults  + 4]  - SUBTRACT; 

VaiidPoints [defaults  + 5]  - MULTIPLY; 

VaiidPoints [defaults  + 6]  - BITXOR; 
VaiidPoints [defaults  + 7]  - THEN; 
VaiidPoints [defaults  + 8]  » BITAND; 
VaiidPoints [defaults  + 9]  * BITOR; 
VaiidPoints [defaults  + 10]  - SHIFTR; 
VaiidPoints [defaults  + 11]  * SHIFTL; 
LikelyNextChoice  - THEN; 


/★a************************************* 
Logical  ops  covers  <,  >,  <-,  >«,  <> 
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**★★****★/ 


else  if  ( (on_my_left  --  GT)  I 1 
(on_my_left  — GE)  I 1 
(on_my_left  --  NE)  | | (on 
(on_my_left  -■  ADD) ] j (on 
(on_my“left  — MULTIPLY) 
(on_my_left  --  SHIFTL)  ! 
(on_my_left  — BITOR)  | | 


(on_my_left  — LT)  ) | 
(on_my_left  — LE)  I | 
__my_left  « EQ)  | | 
i my_left  -*  SUBTRACT)  | | 

I | <on_my_left  -=  DIVIDE)  | I 
(on  my_left  --  SHIFTR)  j | 
(on_my_ieft  — BITAND)) 


TotValPts  - defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidRoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults  ■ -j 
ValidPoints [defaults  + 6] 

ValidPoints [defaults  + 7] 

if  ( (Where Ami  ■■  CONSEQUENCE  £6  CompareType [NumberOfCompares-1] [0] 
WhereAmI  — PREMISE) 


8; 

0) 

1] 

2] 

3] 

4] 
53 


MS  ID; 

SIGNAL; 

LOCAL; 

FUNCTION; 

NUMBER; 

L_PAREN; 

SUBTRACT; 

STRING; 


ValidPoints [TotValPts++]  - COS; 

ValidPoints [TotValPts**]  - ACOS; 

ValidPoints [TotValPts++]  - SIN; 

ValidPoints [TotValPts++]  - ASIN; 

ValidPoints [TotValPts++)  - TAN; 

ValidPoints [TotValPts++ 3 - ATAN; 

ValidPoints [TotValPts++]  - PI; 

ValidPoints [TotValPts++]  - SQRT ; 

ValidPoints [TotValPts++3  - POWER; 

ValidPoints [TotValPts++]  - EXP; 

ValidPoints [TotValPts++]  - LOG; 

) 

LlkelyNextChoice  - NUMBER; 

} 

/*************************★****★*****■**** 

AND,  OR,  BITXOR,  BITAND,  BITOR 
***********★**************★**************/ 

else  if  <on_my_left  --OR  | 1 on_my_left  — BITXOR  j 1 on_my_left  --  AND  ) 

{ 


TotValPts  - defaults 

+ 

20; 

ValidPoints [defaults 

+ 

0] 

- SIGNAL; 

ValidPoints [defaults 

+ 

1] 

- LOCAL; 

ValidPoints [defaults 

+ 

2] 

- MSID; 

ValidPoints [defaults 

+ 

3] 

- L PAREN; 

ValidPoints [defaults 

+ 

4] 

- NOT; 

ValidPoints [defaults 

+ 

5] 

- NUMBER; 

ValidPoints [defaults 

+ 

6] 

- STRING; 

ValidPoints [defaults 

+ 

7] 

- PI; 

ValidPoints [defaults 

+ 

8] 

- COS; 

ValidPoints [defaults 

+ 

9] 

- ACOS; 

ValidPoints [defaults 

+ 

10] 

- SIN; 

ValidPoints [defaults 

+ 

113 

- ASIN; 

ValidPoints [defaults 

+ 

123 

- TAN; 

ValidPoints [defaults 

+ 

133 

- ATAN; 

ValidPoints [defaults 

+ 

143 

- FUNCTION; 

ValidPoints [defaults 

+ 

153 

- SQRT; 

ValidPoints [defaults 

163 

- POWER; 

ValidPoints [defaults 

+ 

17) 

- EXP; 

ValidPoints [defaults 

+ 

18] 

- LOG; 

ValidPoints [defaults 

+ 

19] 

- SUBTRACT; 

Like lyNext Choice  - MSID; 

) 

/a*************************************** 

THEN 

*******************★*****★***************/ 
else  if  (on_my_left  — THEN) 

( 

TotValPts  - defaults  + 3; 

ValidPoints [defaults  + 0]  - IF; 
ValidPoints [defaults  + 1]  - PRINT; 
ValidPoints [defaults  + 2]  - SET; 
LlkelyNextChoice  - PRINT; 

) 

/**************************★************* 

ELSE 

************★****************************/ 


- 'd')  j ! 


nextjnputs.c 


else  if  {onjny_left 


ELSE) 


{ 


TotValPts  - defaults  + 6; 
ValidPoints [defaults  + 0]  - IF; 
ValidPoints [defaults  + 1]  - SIGNAL; 
ValidPoints [defaults  + 2]  - LOCAL; 

ValidPoints [defaults  + 3]  « MSID; 

ValidPoints (defaults  + 4]  * PRINT; 

ValidPoints [defaults  + 5]  - SET; 

Like lyNextCho ice  - PRINT; 


/ 


♦★n************************************* 

NOT 

*****************************************/ 
else  if  (on_my_left  -«  NOT) 

{ 

TotValPts  - defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 


4; 
0] 
1] 
2] 
3] 

Like lyNextCho ice  - MSID; 


- MSID; 

- SIGNAL; 

- LOCAL; 

- L PAREN; 


} 

L_PAREN 

else  if  (on_my_left  — L— PAREN) 
{ 


★*****★★★* 


★★*******★/ 


TotValPts  - defaults 

+ 

20; 

ValidPoints [defaults 

+ 

0]  - 

MSID; 

ValidPoints [defaults 

+ 

1]  - 

SIGNAL; 

ValidPoints [defaults 

+ 

2]  - 

LOCAL; 

ValidPoints [defaults 

+ 

3)  - 

NUMBER; 

ValidPoints [defaults 

+ 

4]  - 

STRING; 

ValidPoints [defaults 

+ 

5]  - 

NOT; 

ValidPoints [defaults 

+ 

6]  - 

PI; 

ValidPoints [defaults 

+ 

7]  - 

COS; 

ValidPoints [defaults 

+ 

8]  - 

ACOS; 

ValidPoints [defaults 

+ 

9]  - 

SIN; 

ValidPoints [defaults 

+ 

10) 

- ASIN; 

ValidPoints [defaults 

+ 

11] 

* TAN; 

ValidPoints [defaults 

+ 

12) 

- ATAN; 

ValidPoints [defaults 

+ 

13) 

- FUNCTION; 

ValidPoints [defaults 

+ 

14] 

- SQRT; 

ValidPoints [defaults 

+ 

15] 

- POWER; 

ValidPoints [defaults 

+ 

16] 

- EXP; 

ValidPoints [defaults 

+ 

17] 

- LOG; 

ValidPoints [defaults 

+ 

18] 

- L PAREN; 

ValidPoints [defaults 

+ 

19] 

- SUBTRACT; 

LikelyNextChoice  * MSID; 

} 

/a**************************** 
COMMA 

****************************** 
else  if  (on_my_left  --  COMMA) 

{ 


*********** 


***********/ 


TotValPts  * defaults 

+ 

20; 

ValidPoints [defaults 

+ 

0] 

- MSID; 

ValidPoints [defaults 

+ 

1] 

- SIGNAL; 

ValidPoints [defaults 

+ 

2] 

- LOCAL; 

ValidPoints [defaults 

+ 

3] 

- NUMBER; 

ValidPoints [defaults 

+ 

4] 

- STRING; 

ValidPoints [defaults 

+ 

5] 

- NOT; 

ValidPoints [defaults 

+ 

6] 

- PI; 

ValidPoints [defaults 

+ 

7] 

- COS; 

ValidPoints [defaults 

+ 

8] 

- ACOS; 

ValidPoints [defaults 

+ 

9] 

- SIN; 

ValidPoints [defaults 

+ 

10] 

- ASIN; 

ValidPoints [defaults 

+ 

11] 

- TAN; 

ValidPoints [defaults 

+ 

12] 

- ATAN; 

ValidPoints [defaults 

+ 

13] 

- FUNCTION; 

ValidPoints [defaults 

+ 

14] 

- SQRT; 

ValidPoints [defaults 

+ 

15] 

- POWER; 

ValidPoints [defaults 

+ 

16] 

- EXP; 

ValidPoints [defaults 

+ 

17] 

- LOG; 

ValidPoints [defaults 

+ 

18] 

- L PAREN; 

ValidPoints [defaults  + 19] 
LikelyNextChoice  - MSID; 

- SUBTRACT; 

next_mputsx; 


R_PAREN  ***★*★/ 


else  if  (on_my_left  — R_PAR£N) 

/************************  ****************************  ****** 
/ + - * SHIFTL  SHIFTR  BITOR  BITXOR  BITAND 


are  always  allowed  after  a 
***************************' 

TotValPts  - defaults  + 10; 
ValidPoints [default s + 0]  ■ 
ValidPoints [default s + 1]  ■ 
ValidPoints [defaults  + 2]  » 
ValidPoints [defaults  + 3]  - 
ValidPoints [defaults  + 4]  - 
ValidPoints [defaults  + 5]  « 
ValidPoints (defaults  + 7]  - 
ValidPoints [default s + 8]  - 

ValidPoints [defaults  + 9]  • 


R_PAREN . 

★ Hr  ***♦*************************/ 

DIVIDE; 

ADD; 

SUBTRACT; 

MULTIPLY; 

SHIFTR; 

SHIFTL; 

BITOR; 

BITXOR; 

BITAND; 


if  (FuncParenCount  --  0) 

/*★***★**★* ************************ **** 

If  we're  outside  of  an  "if"  statement 
and  all  paren' s are  balanced  and  on 
the  RHS  allow  IF  PRINT  and  SET. 

***************************************/ 

if  (NumberOf Ifs  — NumberOfEndif s &&  ParenCount  -«  0 46  Equation  — RHS) 

{ 

TotValPts  - defaults  + 12; 

ValidPoints [defaults  + 10]  - IF; 

ValidPoints [defaults  + 11]  - PRINT; 

ValidPoints (defaults  + 12]  - SET; 

Like lyNextCho ice  - IF; 

) 

/*★****************************************♦ 

If  we're  in  the  premise  and  not  defining 
function  arguments  allow  AND  OR  BITXOR 
BITAND  BITOR. 

********************************************/ 
else  if  (WhereAml  — PREMISE) 

{ 

/*********************************************** 

If  we're  in  the  PREMISE  and  our  overall  paren 
count  is  balanced  and  we're  on  the  RHS  allow 
some  logical  operands  . 

***************★*★******************************/ 
if  (ParenCount  --  0) 

{ 

if (Equation  — RHS) 

{ 

TotValPts  - defaults  + 13; 

ValidPoints [defaults  + 10]  - AND; 

ValidPoints [defaults  + 11]  - OR; 

ValidPoints [defaults  + 12]  - THEN; 

LikelyNextChoice  - THEN; 

} 

/************************************************** 

If  we  also  happen  to  be  on  the  LHS  of  an  Equation 
allow  some  relational  stuff  too. 

**************** **************************** *******/ 
else  if  (Equation  ■»  LHS) 

( 

TotValPts  - defaults  + 16; 

ValidPoints [defaults  + 10]  * LT; 

ValidPoints [defaults  + 11]  - GT; 

ValidPoints [defaults  + 12]  - LE; 

ValidPoints [defaults  + 13]  - GE; 

ValidPoints [defaults  + 14]  - NE; 

ValidPoints [defaults  + 15]  - EQ; 

LikelyNextChoice  - EQ; 

) 

) 

/*********************************************** 

If  we're  in  the  PREMISE  and  our  overall  paren 
count  is  unbalanced  allow  R PAREN  and  logical 
operands . 


w 


else 


{ 


} 


TotValPts  - defaults  + 13; 

ValidPoints [defaults  + 10]  - AND; 
ValidPoints [defaults  + 11]  - OR; 
ValidPoints [defaults  + 12]  - RJ>AREN; 
LikelyNextChoice  - R_PAREN; 


} 

/*************************************************** 

We're  in  the  CONSEQUENCE  and  not  defining  function 
arguments . 

**************★*************************************/ 

else 

{ 

/*********************************************** 

If  we're  in  the  CONSEQUENCE  and  not  defining 
function  arguments  and  we  have  balanced  paren' s 
allow  ENDIF  PRINT  SET* 

************************************************/ 
if  (ParenCount  — 0) 

{ 

TotValPts  - defaults  + 14; 

ValidPoints [defaults  + 10]  * END_IF; 

ValidPoints [default s + 11]  - PRINT; 

ValidPoints [defaults  + 12]  ■ SET; 

ValidPoints [defaults  + 13]  - IF; 

Like lyNext Choice  - END_IF; 

/★★A********************************************** 

If  we  don't  already  have  an  else  associated  with 
the  current  THEN  allow  an  ELSE. 
**************************************************/ 

If  (NestedElseCheck [NumberOf If s-NumberOfEndif s]  — THEN) 

{ 

ValidPoints [TotValPt s++]  * ELSE; 

LikelyNextChoice  - ELSE; 

) 

} 

else 

{ 

/************************************************ 

If  we  don't  have  balanced  paren' s be  better  give 
them  the  opportunity  to  balance  them. 

********* ****************************************/ 
TotValPts  - defaults  + 11; 

ValidPoints [defaults  + 10]  - R_PAREN; 

LikelyNextChoice  - R_PAREN; 


} 


) 


} 

/*********************************************** 

We're  defining  function  arguments. 

*****************************************  *******/ 
else 

{ 

TotValPts  - defaults  + 11; 

ValidPoints [defaults  + 10]  - R_PAREN; 

if  (FunctionArgsDef [FunctionCurrent ] < FunctionArguments [FunctionCurrent ] -1) 
ValidPoints [TotValPt s++]  » COMMA; 

LikelyNextChoice  - R_PAREN; 

> 

} 

/**************************************** 

SET 

*****************************************  j 

else  if  (on_my_left  «•«  SET) 

{ 


TotValPts  » defaults  + 2; 
ValidPoints [defaults  + 0]  * 
ValidPoints [defaults  + 1]  » 
LikelyNextChoice  - SIGNAL; 


SIGNAL; 

LOCAL; 


} 

PRINT 

else  if  (on_my_left  PRINT) 

{ 


J hexUnpuis^c 

★★*★#***★# 

If  an  ELSE  has  already  been  used  in  this  if 
we  don't  let  them  use  it  again! 

a********************************************/ 

if  (NestedElseCheck [NumberOf Ifs-NumberOfEndifs]  «=  THEN) 
TotValPt s - defaults  + 4; 
else  TotValPts  * defaults  + 4; 

ValidPoints [defaults  + 0]  - IF; 

ValidPoints [defaults  + 1]  - SET; 

ValidPoints [defaults  + 2]  - PRINT; 

LikelyNextChoice  - PRINT; 
if  (NumberOflfs  - NumberOfEndif s > 0) 

( 

TotValPts  +-  1; 

ValidPoints [TotValPts  - 1]  - END_IF ; 

LikelyNextChoice  - END_IF; 

/a************************************************ 

If  we  don't  already  have  an  else  associated  with 
the  current  THEN  allow  an  ELSE. 

A*************************************************/ 

if  (NestedElseCheck [NumberOf If s-NumberOfEndif s]  — THEN) 

{ 

TotValPts  +«  1; 

ValidPoints [TotValPts  - 1]  - ELSE; 

LikelyNextChoice  - ELSE; 

LikelyNextChoice  * ELSE; 

) 

) 

) 

/I**************************************** 

NEW,  DOCUMENT 

*****************************************/ 


else  if  (on_my_left  --  NEW  | J 

{ 

TotValPts  * defaults  + 3; 
ValidPoints [defaults  + 0] 
ValidPoints [default s + 1] 
ValidPoints [defaults  + 2] 
LikelyNextChoice  ■ IF; 


on_my_lef t »■ 


- IF; 

- SET; 

- PRINT; 


) 


HELP) 


END_IF 


else  if  (on_my_left  « END__IF) 

{ 

TotValPts  - defaults  + 3; 

ValidPoints [defaults  + 0]  - IF; 

ValidPoints [defaults  + 1]  - SET; 

ValidPoints [defaults  + 2]  - PRINT; 

/******************************************** 

If  the  difference  between  the  if  and  endifs 
is  0,  then  we  don't  need  any  more  endifs. 

If  an  ELSE  has  already  been  used  in  this  if 
we  don't  let  them  use  it  again! 

ft********************************************/ 

if  { (NumberOf If s-NumberOfEndif s)  > 0) 

{ 

ValidPoints [TotValPts++]  - END_IF; 

LikelyNextChoice  * IF; 

) 

if  (NestedElseCheck [NumberOf If s-NumberOfEndif s]  — THEN) 

{ 

ValidPoints [TotValPts++]  - ELSE; 

LikelyNextChoice  - ELSE; 

} 

} 

/ft********#*****#**-******-*****-***-****#*** 


DELETE 


*************★****★**********★***********/ 
if  (on_my_right  ■■  DELETE) 

LikelyNextChoice  - DELETE; 
/★a*********************************** 

For  when  we  just  have  started  up. 
************************************★*/ 
if  (on_my_right  — 99) 

{ 


TotValPts  - 10; 
ValidPoints [0]  - QUIT; 


ValidPoints [1]  - 
ValidPoints [2]  = 
ValidPoints [3]  - 
ValidPoints [ 4 ] - 
ValidPoints [5]  - 
ValidPoints [6]  - 
ValidPoints [73  - 
ValidPoints [83  m 
ValidPoints [93  * 
Like lyNext Choice 


next_inputs.c 


RETRIEVE; 

REMOVE; 

BACKUP; 

SMALL; 

MEDIUM; 

LARGE; 

HELP; 

LIST; 

NEW; 

- RETRIEVE; 


♦include  "nf.h" 

♦define  MAXMSGS  20 
♦define  MAX  COMPS  50 
♦define  UNLIKELY_VALUE  -999 

/-Ik*********************"***********'*****'*********************** 

purpose:  This  file  contains  noise  filtering  routinges.  There 
is  one  noise  filter  routine  for  every  output  routine  in  the 
interface.  For  an  explanation  of  these  output  routines  see 
the  user' s guide  for  IESP . There  are  two  different 
algorithms  used  in  all  the  routines  discounting  types  (i.e. 
short,  float,  etc.).  The  simpler  routine  handles  string 
output,  since  we  don't  want  to  store  and  compare  strings. 

The  more  complicated  routine  handles  all  numerical  data. 

Designer:  Troy  Heindel/NASA,  Erick.  Kindred/Dual  & John  Muratore/NASA 

Prototype:  Troy  Heindel/NASA  using  HyperCard 

Programmer:  Troy  Heindel/NASA 

Date:  7/11/80 

Version:  1.0 

Project:  INCO  Expert  System  Project 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 


fltmsg_issue  {Class,  Text) 
fltmsg_issue  {Class,  Text) 
putsig_of f_str  (Sig_name,  Sig_data) 
putsig_str  (Sig_name,  Sig_data) 
putsig_c  {Sig_name,  Sig_data) 
putsig_s  (Sig_ name,  Sig_data) 
putsig_f  (Sig_name,  Sig_data) 
putsig_d  (Slg_name,  Sig_data) 
putsig_ u (Sig_name,  Sig_jdata) 
putsig_i  {Sig_name,  Sig__data) 
put*ig_l  (Sig_name,  Sig__data) 
putsig_off_c  (Sig_name,  Sig_data) 
putsig_off_s  {Sig_name,  Sig_data) 
putsig_off_f  (Sig_name,  Sig_data) 
putsig_off_d  {Sig_name,  Sig_data) 
putsig_off_u  (Sig_name,  Sig_data) 
putsig_off_i  (Sig_name,  Sig_data) 
putsig_off_l  (Sig_name,  Sig_data) 


nf.c 

****************************************************************/ 
fltmsg  issue_NF  (faultMsg,  color,  index,  noiseFilter,  out) 

char  faultMsg [ ] ; /*  The  message  the  user  wishes  to  print  */ 

int  color,  /*  The  color  number;  either  1,  2,  or  3 */ 

index,  /*  The  index  to  the  fault  in  the  comp  */ 

noiseFilter;  /*  The  noise  filter  value  for  this  comp  */ 
struct  faultMsgStruct  *out; 

extern  int  *rate_ptr;  /*  Global  pointer  to  comp's  noise  filter  value  */ 

extern  int  iterat ion_ct r;  /*  Global;  How  many  times  the  group  has  looped  */ 

/************************************************♦************* 

Are  we  deviating  from  the  established  value?  If  we  are  doing 
so  consistently,  then  invalidate  the  established  value. 
************************************************  ***************/ 
if  ( (strcmp  (out [index] .estFaultMsg,  faultMsg)  !-  0)  £& 

(out [ index] . countDownFaultMsg  < noiseFilter)) 

if  (++out [index] .countDownFaultMsg  « noiseFilter) 
out [index] .estFaultMsg [0]  » '\0'; 

) 

/************************************************************** 

If  we  are  not  firing  continuously,  then  send  everyone  back  to 

the  starting  values. 

**★************************************************************/ 
if  ( abs (iteration_ctr  - out [ index] . loopFaultMsg)  > *rate_ptr) 

{ 

out [index] . countUpFaultMsg  * 0; 
out [index] .countDownFaultMsg  - 0; 
/******************************************************* 

If  we  have  consistently  not  fired,  then  invalidate  the 
previously  established  value. 
******************★*************************************/ 
if  ( abs ( iterat ion_ctr  - out [ index] . loopFaultMsg)  > (*ratej)tr  * noiseFilter)) 
out [ index] .estFaultMsg [0]  - '\0'; 

) 

/************************************************************** 

Reset  the  loop  count_up  to  the  new  loop  count_up. 
***************************************************************/ 
out [index] . loopFaultMsg  - iteration_ctr; 

/************************************************************** 

If  the  current  value  is  different  from  the  last  value,  then 
start  the  count_up  at  1 and  reset  the  prevous  value,  else... 

**************** 7 * * ************ ******* ************ ************* / 

if  (strcmp  (out [ index] .prevFauItMsg,  faultMsg)  !-  0) 

{ 

out [index] .countUpFaultMsg  * 0; 

strcpy  (out [ index] .prevFauItMsg,  faultMsg); 

} 

else 

{ 

/★★♦A*********************************************************** 

If  the  count_up  is  less  than  noiseFilter  then  increment  it. 
****************************************************************/ 
if  (out [index] .countUpFaultMsg  < noiseFilter)  /*  Stop  us  from  wrap-around  V 
< 

/*************************************************************** 

If  the  incremented  county up  * noiseFilter  then  give  'em  output,  and 
reset  the  established  value  to  the  newly  established  value. 
************************************************************* ***/ 
if  (++out [index] .countUpFaultMsg  « noiseFilter) 

{ 

if  (strcmp  (out  [ index]  .estFaultMsg,  faultMsg)  !-*  0) 

{ 

strcpy  (out [index] .estFaultMsg,  faultMsg); 
fltmsg_issue  (color,  faultMsg) ; 

} 

) 

/*****************************************★ 

Initialize  the  invalidation  counter  to  1. 
*******************************************/ 
out [index] .countDownFaultMsg  - 0; 

) 

) 


/a****************************************/ 
putsig_str_NF  (Sig_name,  Sig_data,  index,  noiseFilter,  out) 
char  $Tg_name  ( ] , /*  The  name  of  the  signal  put  */ 

Sig_data [ ] ; /*  The  data  for  signal  put  */ 

int  index,  /*  The  index  to  the  signal  in  the  comp  */ 

noiseFilter;  /*  The  noise  filter  value  for  this  comp  */ 
struct  sigStringStruct  *out; 

{ 

extern  int  *rate_ptr;  /*  Global  pointer  to  comp's  noise  filter  value  */ 

extern  int  iterat ion_ct r;  /*  Global;  How  many  times  the  group  has  looped  */ 

/******************  **************** **************************** 

Are  we  deviating  from  the  established  value?  If  we  are  doing 
so  consistently,  then  invalidate  the  established  value. 
******************************************************'*********/ 
if  { (strcmp  {out [index] . estSigString,  Sigjdata)  !-  0)  44 

(out [ index] .countDownSigString  < noiseFilter)) 

{ 

if  (++out [index] .countDownSigString  «»  noiseFilter) 

{ 

out [index] .estSigString [0]  - '\0'; 

) 

} 

/★A************************************************************ 

If  we  are  not  firing  continuously,  then  send  everyone  back  to 
the  starting  values. 

♦★★a***********************************************************/ 
if  ( abs (iterat ion_ctr  - out [ index] . loopSigSt ring)  > *rate_ptr) 

{ 

out [index] . countUpSigString  * 0; 
out [index] .countDownSigString  » 0; 
/******************************************************* 

If  we  have  consistently  not  fired,  then  invalidate  the 
previously  established  value. 
********************************************************/ 

* if  { abs { iterat ion  ctr  - out  [ index]  . loopSigString)  > (*rate^)tr  * noiseFilter)) 

out [index] .estSigString [0]  » '\0'; 

) 

/A************************************************************* 

Reset  the  loop  count_up  to  the  new  loop  count_up. 
***************************************************************/ 
out [ index] . loopSigString  - iterat ion_ctr; 

/************************************************************** 

If  the  current  value  is  different  from  the  last  value,  then 
start  the  count_up  at  1 and  reset  the  prevous  value,  else... 
***************************************************************/ 

If  (strcmp  (out [index] . prevSigString,  SIg_data)  !-  0) 

{ 

out [index] .countUpSigString  * 0; 

strcpy  (out [ index] .prevSigString,  Sig_data) ; 

} 

else 

( 

/ft************************************************************** 

If  the  count_up  is  less  than  noiseFilter  then  increment  it. 

************  *■***************************************************/ 

if  (out [index] .countUpSigString  < noiseFilter)  /*  Stop  us  from  wrap-around  */ 

( 

/*****************************************  ********************** 

If  the  incremented  count_up  * noiseFilter  then  give  'em  output,  and 
reset  the  established  value  to  the  newly  established  value. 
****************************************************************/ 
if  (++out [index] .countUpSigString  noiseFilter) 

{ 

if  (strcmp  (out  [ index]  .estSigString,  Sig_data)  !=*  0) 

{ 

putsig_str  (Sig_name,  Sig_data) ; 

strcpy  (out [index] .estSigString,  Sig_data) ; 

V / > 

} 

/****************************************** 

Initialize  the  invalidation  counter  to  1. 

************************  ******************* ^ 
out [index] .countDownSigString  » 0; 


/*****************************************/ 

puts ig_o f f_st  r_NF  (Sig_name,  Sig_data,  index,  noiseFiiter,  out) 
char  Sig_name [ ] , /*  The  name  of  the  signal  put  */ 

Sig_data [ ] ; /*  The  data  for  signal  put  */ 

int  index,  /*  The  index  to  the  signal  in  the  comp  */ 

noiseFiiter;  /*  The  noise  filter  value  for  this  comp  */ 
struct  sigOf f St ringStruct  *out; 

{ 

extern  int  *rate_ptr;  /*  Global  pointer  to  comp's  noise  filter  value  */ 

extern  int  iterat ion_ct r ; /*  Global;  How  many  times  the  group  has  looped  */ 

/********************★***************************************** 

Are  we  deviating  from  the  established  value?  If  we  are  doing 
so  consistent ly,  then  invalidate  the  established  value. 
***************************************************************/ 
if  { (strcmp  {out [ index] . estSigOf fStr ing,  Sig_data)  !*  0)  && 

(out [index] . countDownSigOf f St r ing  < noiseFiiter)) 

{ 

if  (++out [ index] . countDownSigOf fString  -*  noiseFiiter) 
out { index] .estSigOf fString [0]  - '\0'; 

) 

/a************************************************************* 

If  we  are  not  firing  continuously,  then  send  everyone  back  to 
the  starting  values. 

***************************************************************/ 
if  ( abs (iterat ion_ctr  - out [index] . loopSigOf fString)  > *rate_ptr) 

{ 

out [index] . countUpSigOf fString  - 0; 
out [ index] . countDownSigOf fString  - 0; 
/******************************************************* 

If  we  have  consistently  not  fired,  then  invalidate  the 
previously  established  value. 
********************************************************/ 

if  ( abs  (iteration_ctr  - out  [ index]  . loopSigOf  fString)  > (*rate_jptr  * noiseFiiter)) 
out [ index] .estSigOf fString [0 ] - '\Q'; 

) 

/************************************************************** 

Reset  the  loop  count_up  to  the  new  loop  count^up. 

******************************************  ********************* f 

out [ index] . loopSigOf fString  - iterat ion_ctr; 

/************************************************************** 

If  the  current  value  is  different  from  the  last  value,  then 
start  the  count_up  at  1 and  reset  the  prevous  value,  else... 

****************7******  ****************  ************  ************  j 

if  (strcmp  (out [ index] .prevSigOf fString,  Sig_data)  !-  0) 

{ 

out [index] . countUpSigOf fString  * 0; 

strcpy  (out [ index] .prevSigOf fString,  Sig_data) ; 

> 

else 

{ 

/*************************************************************** 

If  the  count_up  is  less  than  noiseFiiter  then  increment  it. 

****************************************************************  f 

if  (out [index] .countUpSigOf fString  < noiseFiiter)  /*  Stop  us  from  wrap-around  */ 

{ 

/*************************************************************** 

If  the  incremented  count_up  - noiseFiiter  then  give  'em  output,  and 
reset  the  established  value  to  the  newly  established  value. 
****************************************************************/ 
if  (++out [index] .countUpSigOf fString  noiseFiiter) 

< 

if  (strcmp  (out [ index] .estSigOf fString,  Sig_data)  ! - 0) 

{ 

putsig_of f_str  (Sig_name,  Sig_data) ; 

strcpy  (out [ index] . estSigOf fString,  Sig_data) ; 

) 

} 

/****************************************** 

Initialize  the  invalidation  counter  to  1. 
*******************************************/ 
out [index] .countDownSigOf fString  « 0; 

) 

) 


/***********************♦*****★********************************************/ 

putsig_s_NF  (Sig_name,  Sig_data,  index,  noiseFilter,  out) 
char  Sig_name ( ] ; /*  The  name  of  the  signal  put  */ 

short  $ig_data;  /*  The  data  for  signal  put  */ 

int  index,  /*  The  index  to  the  signal  in  the  comp  */ 

noiseFilter;  /*  The  noise  filter  value  for  this  comp  */ 

struct  sigShortStruct  *out; 


extern  int  *rate_ptr;  /*  Global  pointer  to  comp's  noise  filter  value  */ 

extern  int  iterat ion_ctr ; /*  Global;  How  many  times  the  group  has  looped  */ 


/******************************★******************************* 
Are  we  deviating  from  the  established  value?  If  we  are  doing 
so  consistently,  then  invalidate  the  established  value. 
***************************************************************/ 
if  ( (out [index] .estSigShort  !-  Sig_data)  && 

(out [index] .countDownSigShort  < noiseFilter)) 

{ 

if  (++out [ index] . countDownSigShort  «»  noiseFilter) 
out [ index] .estSigShort  * UNLIKELY_VALUE; 

} 


/************************************************************** 

If  we  are  not  firing  continuously,  then  send  everyone  back  to 
the  starting  values. 

******************★********************************************/ 
if  ( abs (iteration_ctr  - out [ index] . loopSigShort)  > *rate_ptr) 

{ 

out [index] . count UpSigShort  - 0; 
out [ index] . countDownSigShort  - 0; 
/**********************★******************************** 

If  we  have  consistently  not  fired,  then  invalidate  the 
previously  established  value. 
********************************************************/ 

if  ( abs (iteration_ctr  - out [index] . loopSigShort ) > (*rate _ptr  * noiseFilter)) 
out [index] .estSigShort  - UNL IKE LY_ VALUE ; 

) 

/★************★*********************************  *************** 

Reset  the  loop  count_up  to  the  new  loop  count_up. 
**********************************************"*****************/ 
out [index] . loopSigShort  - Iterat ion^ctr; 


/************************************************************** 

If  the  current  value  is  different  from  the  last  value,  then 
start  the  count_up  at  1 and  reset  the  prevous  value,  else... 
******************************************************★*★**★***/ 
if  (out [index] .prevSigShort  !-  Sig_data) 

{ 

out [index] . countUpSigShort  * 0; 
out [index] .prevSigShort  - Sig_data; 

) 

else 

{ 

/**********************************************★**************** 

If  the  count_up  is  less  than  noiseFilter  then  increment  it. 
****************************************************************/ 
if  (out [index] .countUpSigShort  < noiseFilter)  /*  Stop  us  from  wrap-around  */ 
{ 

/*************************************************************** 

If  the  incremented  count_up  - noiseFilter  then  give  'em  output,  and 
reset  the  established  value  to  the  newly  established  value. 
****************************************************************/ 
if  (++out [ index] .countUpSigShort  — noiseFilter) 

{ 

if  (out [ index] .estSigShort  !-  Sig_data) 

( 

putsig_s  (Sig_name,  Sig_data) ; 
out [ index] .estSigShort  * Sig_data; 

) 

) 

/★★A*************************************** 

Initialize  the  invalidation  counter  to  1. 
*******************************************/ 
out [ index] . countDownSigShort  - 0; 

) 

} 


/***************************************  ***********************************/ 
putsig_off_s_NF  (Sig_name,  Sig_data,  index,  noiseFilter,  out) 
char  ™S ig_name [ ] ; /*  The  name  of  the  signal  put  */ 

short  Sig_data;  /*  The  data  for  signal  put  */ 

int  index,  /*  The  index  to  the  signal  in  the  comp  */ 

noiseFilter;  /*  The  noise  filter  value  for  this  comp  V 

struct  sigOf fShortStruct  *out; 

extern  int  *rate_ptr;  /*  Global  pointer  to  comp's  noise  filter  value  */ 

extern  int  iterat ion^ctr ; /*  Global;  How  many  times  the  group  has  looped  */ 


/★************************************************************* 

Are  we  deviating  from  the  established  value?  If  we  are  doing 
so  consistently,  then  invalidate  the  established  value. 
****************•**********************************************/ 
if  ( {out [index] . estSigOf fShort  !»  Sig_data)  && 

(out [index] , countDownSigOf fShort  < noiseFilter)) 

{ 

if  (++out [ index] . countDownSigOf fShort  — noiseFilter) 
out [index] .estSigOf fShort  - UNLIKE LY— VALUE; 

} 

/*****************★*****************♦************************** 

If  we  are  not  firing  continuously,  then  send  everyone  back  to 
the  starting  values. 

***************************************************************/ 
if  ( abs (iterat ion_ctr  - out [ index] . loopSigOf fShort ) > *rate_ptr) 

( 

out [ index] . countUpSigOf fShort  - 0; 
out [index] .countDownSigOf fShort  - 0; 
/★**********************************»******************* 

If  we  have  consistently  not  fired,  then  invalidate  the 
previously  established  value. 

a*******************************************************/ 

if  ( abs <iteration_ctr  - out [index] . loopSigOffShort)  > (*ratejptr  * noiseFilter)) 
out [index] .estSigOf fShort  - UNLIKELY_VALUE; 

> 

/**********************★*************************************♦* 

Reset  the  loop  count_up  to  the  new  loop  count_up. 
***************************************************************/ 
out [index] . loopSigOffShort  - iteration_ct r; 


/************************************************************** 

If  the’ current  value  is  different  from  the  last  value,  then 
start  the  count_up  at  1 and  reset  the  prevous  value,  else... 
***************************************************************/ 
if  (out [ index] .prevSigOf fShort  !«  Sig_data) 

( 

out [index] .countUpSigOf fShort  - 0; 
out [index] .prevSigOf fShort  - Sig_data; 

} 

else 

{ 

/*************************************************************** 

If  the  count_up  is  less  than  noiseFilter  then  Increment  it. 
************************************  *************** *************/ 
if  (out [index] .countUpSigOf fShort  < noiseFilter)  /*  Stop  us  from  wrap-around  */ 
{ 

/*************************************************************** 

If  the  incremented  count_up  - noiseFilter  then  give  'em  output,  and 
reset  the  established  value  to  the  newly  established  value. 
*********************************★*************************♦**★*/ 
if  (++out [ index] .countUpSigOf fShort  — noiseFilter) 

{ 

if  (out [index] .estSigOf fShort  !*  Sig_data) 

{ 

putsig_s  (Sig_name,  Sig_data) ; 

out [index] .estSigOf fShort  * Sig_data; 

) 

} 

/****************************************** 

Initialize  the  invalidation  counter  to  1. 
*******************************************/ 
out [index] .countDownSigOf fShort  - 0; 

) 


} 


/A*************************************************************************/ 

putsig_i_NF  (Sig_name,  Sig_data,  index,  noiseFilter,  out) 
char  SIg_name [ ] ; /*  The  name  of  the  signal  put  */ 

int  Sig_dataf  /*  The  data  for  signal  put  */ 

index,  /*  The  index  to  the  signal  in  the  comp  */ 

noiseFilter;  /*  The  noise  filter  value  for  this  comp  */ 
struct  siglntStruct  *out; 

{ 

extern  int  *rate_ptr;  /*  Global  pointer  to  comp's  noise  filter  value  */ 

extern  int  iterat ion_ct r;  /*  Global;  How  many  times  the  group  has  looped  */ 

/************************************************************** 

Are  we  deviating  from  the  established  value?  If  we  are  doing 
so  consistently,  then  invalidate  the  established  value. 
***************************************************************/ 
if  ( (out [index] .estSiglnt  !-Sig_data)  &£ 

(out [ index] . countDownSiglnt  < noiseFilter)) 

( 

if  (++out [index] . countDownSiglnt  *■  noiseFilter) 
out  [index]  .estSiglnt  - UNLIKELY_VALUE; 

) 


/************************************************************** 

If  we  are  not  firing  continuously,  then  send  everyone  back  to 
the  starting  values. 

***************************************************************/ 
if  ( abs (iteration_ctr  - out [ index] . loopSiglnt ) > *rate_ptr) 

{ 

out [index] .countUpSiglnt  - 0; 
out [index] .countDownSiglnt  - 0; 
/******************************************************* 

If  we  have  consistently  not  fired,  then  invalidate  the 
previously  established  value. 
********************************************************/ 

if  ( abs (iterat ion_ctr  - out [index] . loopSiglnt)  > (*rate_ptr  * noiseFilter)) 
out [index] .estSiglnt  - UNLIKELY  VALUE; 

} 

/***************************************  *********************** 

Reset  the  loop  count_up  to  the  new  loop  count_up. 
****«*****************’*****************************************/ 
out [index] . loopSiglnt  - Iterat ion_ctr; 

/A************************* A*********************************** 

If  the  current  value  is  different  from  the  last  value,  then 
start  the  count_up  at  1 and  reset  the  prevous  value,  else... 

************** ********************** ******* ********************/ 
if  (out [ index] .prevSiglnt  !-  Sig_data) 

{ 

out [index] . countUpSiglnt  - 0; 
out [index] .prevSiglnt  - Sig_data; 

) 

else 

{ 

/*************************************************************** 

If  the  count_up  is  less  than  noiseFilter  then  increment  it. 
****************************************************************/ 
if  (out [index] .countUpSiglnt  < noiseFilter)  /*  Stop  us  from  wrap-around  */ 

{ 

/*************************************************************** 

If  the  incremented  count_up  - noiseFilter  then  give  'em  output,  and 
reset  the  established  value  to  the  newly  established  value. 
****************************************************************/ 
if  (++out [ index] . countUpSiglnt  — noiseFilter) 

{ 

if  {out [index] .estSiglnt  !-  Sig_data) 

( 

putsig_s  (Sig_name,  Sig_data) ; 
out [index] .estSiglnt  - Sig_data; 

} 

> 

/****************************************** 

Initialize  the  invalidation  counter  to  1. 
*******************************************/ 
out [ index] .countDownSiglnt  - 0; 

} 

) 


s**************************************************************************/ 

putsig  off_I_NF  (Sig_name,  Sig_data,  index,  noiseFilter,  out) 
char  Sig_name(];  /*  The  name  of  the  signal  put  */ 

int  Sig_data,  /*  The  data  for  signal  put  */ 

index,  /*  The  index  to  the  signal  in  the  comp  */ 

noiseFilter;  /*  The  noise  filter  value  for  this  comp  */ 
struct  sigOfflntStruct  *out; 


extern  int  *rate_ptr;  /*  Global  pointer  to  comp's  noise  filter  value  */ 

extern  int  iterat ion__ct r ; /*  Global;  How  many  times  the  group  has  looped  */ 


/*******************************************************1******* 
Are  we  deviating  from  the  established  value?  If  we  are  doing 
so  consistently,  then  invalidate  the  established  value. 
****************★**********************************************/ 
if  ( {out [index] . estSigOf f Int  !=  Sig_data)  &£ 

(out [index] . countDownSigOf f Int  < noiseFilter)) 

if  (++out [ index] . countDownSigOf f Int  «*  noiseFilter) 
out  [ index]  .estSigOf  f Int  =■  UNLIKELY_VALUE; 

) 


/a************************************************************* 

If  we  are  not  firing  continuously,  then  send  everyone  back  to 
the  starting  values. 

***************************************♦***********************/ 
if  ( abs (iteration_ctr  - out [ index] . loopSigOff Int)  > *rate_ptr) 

{ 

out [index] .countUpSIgOff Int  - 0; 
out [index] .countDownSigOf f Int  - 0; 
/******************************************************* 

If  we  have  consistently  not  fired,  then  invalidate  the 
previously  established  value. 
********************************************************/ 

if  ( abs (iteration_ctr  - out [ index] . loopSigOff Int ) > (*rate_ptr  * noiseFilter)) 
out [index] .estSigOf f Int  - UNLIKELY_VALUE; 

) 


/*********************★**************************************** 
Reset  the  loop  count_up  to  the  new  loop  count_up. 

a**************************************************************/ 
out [index] . loopSigOff Int  • iteration_ctr; 


/*****************************★******************************** 

If  the  current  value  Is  different  from  the  last  value,  then 
start  the  count_up  at  1 and  reset  the  prevous  value,  else... 
**************************♦************************************/ 
if  (out [index] .prevSigOff Int  !-  Sig_data) 

{ 

out [ index] . countUpSIgOff Int  - 0; 
out [index] .prevSigOff Int  - Sig_data; 

) 

else 

{ 

/*************************************************************** 

If  the  count_up  is  less  than  noiseFilter  then  increment  it. 
****************************************★**★********************/ 
if  (out [index] .countUpSIgOff Int  < noiseFilter)  /*  Stop  us  from  wrap-around  */ 
{ 

/*************************************************************** 

If  the  incremented  count__up  - noiseFilter  then  give  'em  output,  and 
reset  the  established  value  to  the  newly  established  value. 
****************************************************************/ 
if  (++out [index] .countUpSIgOff Int  -■  noiseFilter) 

( 

if  (out [index] .estSigOf f Int  !»Sig_data) 

{ 

putsig_s  (Sig_name,  Sig_data) ; 
out [ index] .estSigOf f Int  * Sig_data; 

} 

) 

/****************************************** 

Initialize  the  invalidation  counter  to  1. 
*****************************************★*/ 
out [index] .countDownSigOf flnt  - 0; 

) 

} 


putsig_f_NF 

char 

float 

int 


struct 


(Sig_name,  Sig_data,  index,  noiseFilter,  out) 

Sig_name [] ; /*  The  name  of  the  signal  put  */ 

Sig_data;  /*  The  data  for  signal  put  */ 

index,  /*  The  index  to  the  signal  in  the  comp  */ 

noiseFilter;  /*  The  noise  filter  value  for  this  comp  */ 

sigFloatStruct  *out; 


extern  int  *rate_ptr;  /*  Global  pointer  to  comp's  noise  filter  value  */ 

extern  int  iterat ion_ctr;  /*  Global;  How  many  times  the  group  has  looped  */ 


/************************************************************** 
Are  we  deviating  from  the  established  value?  If  we  are  doing 
so  consistently,  then  invalidate  the  established  value. 

♦♦★A***********************************************************/ 

if  ( (out [index] .estSigFloat  !-  Sig_data)  fifi 

(out [index] . countDownSigFloat  < noiseFilter)) 

{ 

if  (++out [ index] . countDownSigFloat  --  noiseFilter) 
out [ index] . estSigFloat  - UNLIKELY_VALUE; 

) 


/***************************************************  *********** 

If  we  are  not  firing  continuously,  then  send  everyone  back  to 
the  starting  values. 

***************************************************************/ 
if  ( abs (iterat ion_ctr  - out [ index] . loopSigFloat)  > *rate _ptr) 

( 

out [index] .countUpSigFloat  - 0; 
out [index] .countDownSigFloat  - 0; 
/******************************************************* 

If  we  have  consistently  not  fired,  then  Invalidate  the 
previously  established  value. 
********************************************************/ 

if  ( abs ( Iterat ion_ctr  - out [ index] . loopSigFloat)  > (*rate_ptr  * noiseFilter)) 
out [index] .estSigFloat  - UNLIKELY_VALUE ; 

} 

/******************************************************+******* 

Reset  the  loop  count_up  to  the  new  loop  count_up. 
***************************************************************/ 
out [index] . loopSigFloat  - iteration_ctr; 


/************************************************************** 

If  the  ‘current  value  is  different  from  the  last  value,  then 
start  the  count_up  at  1 and  reset  the  prevous  value,  else... 
****************7******************************  ***★★*★*★**★**★*  j 

if  (out [ index] .prevSigFloat  !•  Sig_data) 

( 

out [ index] . countUpSigFloat  - 0; 
out [index] .prevSigFloat  * Sig_data; 

} 

else 

{ 

/*************************************************************** 

If  the  count_up  is  less  than  noiseFilter  then  increment  it. 
****************************************************************/ 
if  (out [index] .countUpSigFloat  < noiseFilter)  /*  Stop  us  from  wrap-around  */ 
{ 

/*************************************************************** 

If  the  incremented  count_up  * noiseFilter  then  give  'em  output,  and 
reset  the  established  value  to  the  newly  established  value. 
****************************************************************/ 
if  (++out [ index] . countUpSigFloat  ■«  noiseFilter) 

{ 

if  (out [ index] .estSigFloat  !-  Sig_data) 

{ 

putsig_s  (Sig_name,  Sig_data) ; 
out [index] .estSigFloat  - Sig_data; 

} 

} 

/****************************************** 

Initialize  the  invalidation  counter  to  1. 
*******************************************/ 
out [index] .countDownSigFloat  - 0; 

} 

) 


/*******************★**************************■****************************/ 
putsig_off_f_NF  (Sig_name,  Sig_data,  index,  noiseFilter,  out) 
char  Sig_name [ ] ; /*  The  name  of  the  signal  put  V 

float  Sig_data;  /*  The  data  for  signal  put  */ 

int  index,  /*  The  index  to  the  signal  in  the  comp  */ 

noiseFilter;  /*  The  noise  filter  value  for  this  comp  */ 

struct  sigOf fFloatStruct  *out; 

{ 

extern  int  *rate_ptr;  /*  Global  pointer  to  comp's  noise  filter  value  */ 

extern  int  iterat ion_ctr ; /*  Global;  How  many  times  the  group  has  looped  */ 

/************************************************************** 

Are  we  deviating  from  the  established  value?  If  we  are  doing 
so  consistently,  then  invalidate  the  established  value. 
***************************************************************/ 
if  ( (out [index] .estSigOf fFloat  !«  Sig_data)  £& 

(out [index] .countDownSigOf fFloat  < noiseFilter)) 

( 

if  (++out [ index] . countDownSigOf fFloat  «■  noiseFilter) 
out [index] .estSigOf fFloat  - UNLIKELY_VALUE; 

) 

/************************************************************** 

If  we  are  not  firing  continuously,  then  send  everyone  back  to 
the  starting  values* 

***************************************************************/ 
if  ( abs (iteration_ctr  - out  [ index] . loopSigOf fFloat ) > *rate_ptr) 

{ 

out [index] . countUpSigOf fFloat  - 0; 
out [index] . countDownSigOf fFloat  « 0; 

y******************************************************* 

If  we  have  consistently  not  fired,  then  invalidate  the 
previously  established  value. 
********************************************************/ 

if  ( abs (iteration_ctr  - out [index] . loopSigOf fFloat ) > (*rate_ptr  * noiseFilter)) 
out [index] .estSigOf fFloat  - UNL IKELYJ VALUE ; 

) 

/************************************************************** 

Reset  the  loop  count_up  to  the  new  loop  count__up. 
***************************************************************/ 
out [index] . loopSigOf fFloat  - iteration_ct r; 

/************************************************************** 

If  the  current  value  is  different  from  the  last  value,  then 
start  the  count_up  at  1 and  reset  the  prevous  value,  else... 

******************  *********************************************y 
If  (out [index] .prevSigOf fFloat  !«  Sig_data) 

( 

out [index] . countUpSigOf fFloat  - 0; 
out [index] .prevSigOf fFloat  - Sig_data; 

) 

else 

( 

/*************************************  *****************  ********* 

If  the  count_up  is  less  than  noiseFilter  then  increment  it. 
****************************************************************/ 
if  (out [index] .countUpSigOf fFloat  < noiseFilter)  /*  Stop  us  from  wrap-around  */ 

( 

/*************************************************************** 

If  the  incremented  count_up  • noiseFilter  then  give  'em  output,  and 
reset  the  established  value  to  the  newly  established  value. 

**************************************************************** i 

if  (++out [index] . countUpSigOf fFloat  — noiseFilter) 

{ 

if  (out [index] .estSigOf fFloat  !-  Sig_data) 

{ 

putsig_s  (Sig_name,  Sig_data) ; 

out [ index] .estSigOf fFloat  - Sig_data; 

} 

) 

/****************************************** 

Initialize  the  invalidation  counter  to  1, 
*******************************************/ 
out [index] .countDownSigOf fFloat  - 0; 

} 

} 


/***************************************  **************★********************/ 
putsig  d_NF  (Sig_name,  Sig_data,  index,  noiseFilter,  out) 

char  Sig_name [ ] ; /*  The  name  of  the  signal  put  */ 

double  Sig_data;  /*  The  data  for  signal  put  */ 
int  index,  /*  The  index  to  the  signal  in  the  comp  */ 

noiseFilter;  /*  The  noise  filter  value  for  this  comp  */ 
struct  sigDoubleStruct  *out; 

* extern  int  *rate_ptr;  /*  Global  pointer  to  comp's  noise  filter  value  */ 

extern  int  iterat ion_ct r;  /*  Global;  How  many  times  the  group  has  looped  */ 


z************************************************************** 

Are  we  deviating  from  the  established  value?  If  we  are  doing 
so  consistently,  then  invalidate  the  established  value. 
******#***********★********************************************/ 
if  ( (out [index] .estSigDouble  l*  Sig_data)  £& 

(out [index] .countDownSigDouble  < noiseFilter)) 

if  (++out [index] .countDownSigDouble  noiseFilter) 
out [ Index] . estSigDouble  * UNLIKELY_VALUE; 

} 

/a************************************************************* 

If  we  are  not  firing  continuously,  then  send  everyone  back  to 
the  starting  values. 

******************************* ********************  ****** ******/ 
if  ( abs <iteration_ctr  - out [ index] . loopSigDouble)  > *rate_ptr) 

{ 

out [index] .countUpSigDouble  - 0; 
out [index] . countDownSigDouble  - 0; 

/******************************************************* 

If  we  have  consistently  not  fired,  then  invalidate  the 
previously  established  value. 
********************************************************/ 

if  < abs  <iteration_ctr  - out [ index] . loopSigDouble)  > (*rate_ptr  * noiseFilter)) 
out [index] .estSigDouble  * UNLIKELY_VALUE; 

) 


/★★♦♦A********************************************************* 

Reset  the  loop  count_up  to  the  new  loop  count_up. 

•★♦♦♦♦♦★♦♦♦a***************************************************/ 

out [ index] . loopSigDouble  « Iterat ion_ctr; 


/★★************************************************************ 

If  the’ current  value  is  different  from  the  last  value,  then 
start  the  count_up  at  1 and  reset  the  prevous  value,  else... 
**********♦****************************************★***********/ 
if  (out [index] .prevSigDouble  !■  Sig_data) 

( 

out [index] . countUpSigDouble  - 0; 
out [index] .prevSigDouble  * Sig_data; 

) 

else 

( 

/*************************************************************** 

If  the  count_up  Is  less  than  noiseFilter  then  increment  it. 
*★**************************************************************/ 
if  (out [index] .countUpSigDouble  < noiseFilter)  /*  Stop  us  from  wrap-around  */ 
{ 

/★★★★★♦★♦★A***************************************************** 

If  the  incremented  count_up  * noiseFilter  then  give  'em  output,  and 
reset  the  established  value  to  the  newly  established  value. 
************************************************★**★************/ 
if  (++out [index] .countUpSigDouble  «■  noiseFilter) 

{ 

if  (out [index] .estSigDouble  !-  Sig_data) 

{ 

putsig_s  (Sig_name,  Sig_data) ; 
out [index] .estSigDouble  » Sig_data; 

} 

} 

/****************************************** 

Initialize  the  invalidation  counter  to  1. 
*******************************************/ 
out [index] .countDownSigDouble  - 0; 

) 

) 


) 


/a****************************************-*********************************/ 
putsig_of f_d_NF  (Sig_name,  Sig_data,  Index,  noiseFilter,  out) 
char  Sig  name!];  /*'  The  name  of  the  signal  put  */ 

double  Sig_data;  /*  The  data  for  signal  put  */ 

int  index,  /*  The  index  to  the  signal  in  the  comp  */ 

noiseFilter;  /*  The  noise  filter  value  for  this  comp  */ 
struct  sigOf f Double St ruct  *out; 


extern  int  *ratej?tr;  /*  Global  pointer  to  comp's  noise  filter  value  */ 

extern  int  iteration_ctr;  /*  Global;  How  many  times  the  group  has  looped  */ 


/************************************************************** 
Are  we  deviating  from  the  established  value?  If  we  are  doing 
so  consistently,  then  invalidate  the  established  value. 
**************************************************************V 
if  ( (out [index] .estSigOf fDouble  !-  Sig_data)  fifi 

(out [index] .countDownSigOf fDouble  < noiseFilter)) 

if  (++out [index] .countDownSigOf fDouble  « noiseFilter) 
out  [index]  .estSigOf fDouble  - UNL IKEL Y_VALUE ; 

} 


/*********************************•**************************** 

If  we  are  not  firing  continuously,  then  send  everyone  back  to 
the  starting  values. 

****************  **************************************** *******/ 
if  ( abs (iteration_ctr  - out [ index] . loops igOf fDouble)  > *rate_ptr) 

{ 

out [index] .countUpSigOf fDouble  * 0; 
out [index] .countDownSigOf fDouble  * 0; 
/******************************************************* 

If  we  have  consistently  not  fired,  then  Invalidate  the 
previously  established  value. 
******★***********************************************♦*/ 

if  ( abs (Iteration_ctr  - out [index] . loops IgOf fDouble)  > (*rate_ptr  * noiseFilter)) 
out [index] .estSigOf fDouble  ■ UNLIKELY_VALUE; 

) 


/*******************♦****************************************** 
Reset  the  loop  count_up  to  the  new  loop  count_up. 
*******************★*******************************************/ 
out [index] .loopSigOf fDouble  - iteration_ctr ; 


/**********★*************************************************** 

If  the  current  value  is  different  from  the  last  value,  then 
start  the  count _up  at  1 and  reset  the  prevous  value,  else... 

**************  **"**********************  ***********★*************/ 
if  (out [index] .prevSigOf fDouble  !-  Sig_data) 

{ 

out [index] . countUpSigOf fDouble  - 0; 
out [index] .prevSigOf fDouble  - Sig_data; 

> 

else 

{ 

/*************************************************★************* 

If  the  count_up  is  less  than  noiseFilter  then  increment  it. 
****************************************************★***********/ 

if  (out [index] .countUpSigOf fDouble  < noiseFilter)  /*  Stop  us  from  wrap-around  */ 

( 

/**********************************************************★**** 

If  the  incremented  count_up  * noiseFilter  then  give  'em  output,  and 
reset  the  established  value  to  the  newly  established  value. 
****************************************************************/ 
if  (++out [index] .countUpSigOf fDouble  --  noiseFilter) 

{ 

if  (out [ index] .estSigOf fDouble  !»  Sig_data) 

( 

putsig_s  (Sig_name,  Sig_data) ; 

out [index] . estSigOf fDouble  - Sig_data; 

) 

) 

/****************************************** 

Initialize  the  invalidation  counter  to  I. 
***»***************************************/ 
out [ Index] .countDownSigOf fDouble  * 0; 

) 

) 


/************★★*********  ***************************************************/ 
putsig  u NF  (Sig_name,  Sig_data,  index,  noiseFilter,  out) 

char~  S ig_name [ ] ; /*  The  name  of  the  signal  put  */ 

unsigned  Sig_data;  /*  The  data  for  signal  put  */ 

int  index, ~ /*  The  index  to  the  signal  in  the  comp  */ 

noiseFilter;  /*  The  noise  filter  value  for  this  comp  V 
struct  sigUnsignedStruct  *out; 


extern  int  *rate_ptr;  /*  Global  pointer  to  comp's  noise  filter  value  */ 

extern  int  iterat ion_ctr;  /*  Global;  How  many  times  the  group  has  looped  */ 


/************************************************************** 
Are  we  deviating  from  the  established  value?  If  we  are  doing 
so  consistently,  then  invalidate  the  established  value. 
************************★**************************************/ 
if  ( (out [index] .estSigUnsigned  !-  Sig_data)  && 

(out [index] .countDownSigUnsigned  < noiseFilter)) 

if  (++out [index] .countDownSigUnsigned  — noiseFilter) 
out [index] .estSigUnsigned  - UNLIKELY_VALUE; 

} 


/a**#*****************************************'********'********* 

If  we  are  not  firing  continuously,  then  send  everyone  back  to 
the  starting  values. 

★w*************************************************************/ 

if  ( abs (iterat ion_ctr  - out [ index] . loopSigUnsigned)  > *rate_ptr) 

{ 

out [ index] . countUpSigUnsigned  - 0; 
out [ index] .countDownSigUnsigned  - 0; 

/*************************»***************************** 

If  we  have  consistently  not  fired,  then  invalidate  the 
previously  established  value. 
*****************★***********♦**************************/ 

if  < abs (iteration_ctr  - out [ index] . loopSigUnsigned)  > (*rate_ptr  * noiseFilter)) 
out [ index] .estSigUnsigned  - UNLIKELY_VALUE; 

) 

/************************************************************** 

Reset  the  loop  count_up  to  the  new  loop  count_up. 
***************************************************************/ 
out  [ index]  . loopSigUnsigned  * iterat  ion__ct r; 


/************************************************************** 

If  the  current  value  is  different  from  the  last  value,  then 
start  the  count_up  at  1 and  reset  the  prevous  value,  else... 
****************★**********************************************/ 
if  (out [index] .prevSigUnsigned  !-  Sig_data) 

{ 

out [ index] .countUpSigUnsigned  - 0; 
out [index] .prevSigUnsigned  - Sig_data; 

} 

else 

{ 

/*************************************************************** 

If  the  count_up  is  less  than  noiseFilter  then  increment  it. 
*******************************♦********************************/ 
if  (out [index] .countUpSigUnsigned  < noiseFilter)  /*  Stop  us  from  wrap-around  */ 
{ 

/★************************************************************** 

If  the  incremented  count_up  - noiseFilter  then  give  'em  output,  and 
reset  the  established  value  to  the  newly  established  value. 

Ik***************************************************************/ 

if  (++out [index] .countUpSigUnsigned  »-  noiseFilter) 

{ 

if  (out [index] .estSigUnsigned  !-  Sig_data) 

{ 

putsig_s  (Sig_name,  Sig_data) ; 

out [index] .estSigUnsigned  - Sig_data; 

} 

) 

/***★* ****** ******************* ************ 

Initialize  the  invalidation  counter  to  1. 
*******************************************/ 
out [index] .countDownSigUnsigned  - 0; 

) 

} 


/★A************************************************************************/ 

putsig_off_u_NF  (Sig_name,  Sig_data,  index,  noiseFilter,  out) 
char  *"  Sig_name  [ ] ; /*  The  name  of  the  signal  put  */ 

unsigned  Sig_data;  /*  The  data  for  signal  put  */ 

int  index,  /*  The  index  to  the  signal  in  the  comp  */ 

noiseFilter;  /*  The  noise  filter  value  for  this  comp  */ 
struct  sigOf fUnsignedStruct  *out; 

* extern  int  *rate_ptr;  /*  Global  pointer  to  comp's  noise  filter  value  */ 

extern  int  iterat ion_ctr ; /*  Global;  How  many  times  the  group  has  looped  */ 

/************************************************************** 

Are  we  deviating  from  the  established  value?  If  we  are  doing 
so  consistently,  then  invalidate  the  established  value. 
***************************************************************/ 
if  ( (out [ index] . estSigOf fUnsigned  !-  Sig_data)  && 

{out [index] . countDownSigOf fUnsigned  < noiseFilter)) 

{ 

if  (++out [index] . countDownSigOf fUnsigned  noiseFilter) 

out  [ index]  . estSigOf  fUnsigned  * UNLIKELY_VALUE; 

) 

/************************************************************** 

If  we  are  not  firing  continuously,  then  send  everyone  back  to 
the  starting  values. 

***************************************************************/ 
if  ( abs  (iteration_ctr  - out [index] . loopSigOf fUnsigned)  > *rate_ptr) 

{ 

out [index] .countUpSigOf fUnsigned  - 0; 
out [index] . countDownSigOf fUnsigned  - 0; 

/a****************************************************** 

If  we  have  consistently  not  fired,  then  invalidate  the 
previously  established  value. 
********************************************************/ 

if  ( abs {iteration_ctr  - out [ index] . loopSigOf fUnsigned)  > {*rate _j>tr  * noiseFilter)) 
out [ index] .estSigOf fUnsigned  - UNLIKELY_VALUE; 

) 

/★a********************************** ************************** 

Reset  the  loop  count_up  to  the  new  loop  count_up. 
*********************************♦*****************************/ 
out [Index] . loopSigOf fUnsigned  - iterat ion_ctr; 

/************************************************************** 

If  the  current  value  is  different  from  the  last  value,  then 
start  the  count_up  at  1 and  reset  the  prevous  value,  else  — 

***************************  *******************************  ******/ 
if  {out [ index] .prevSigOf fUnsigned  !-  Sig_data) 

{ 

out [index] .countUpSigOf fUnsigned  - 0; 
out [ index] . prevSigOf fUnsigned  - Sig_data; 

) 

else 

{ 

/*************************************************************** 

If  the  count_up  is  less  than  noiseFilter  then  increment  it. 
****************************************************************/ 

if  (out [index] .countUpSigOf fUnsigned  < noiseFilter)  /*  Stop  us  from  wrap-around  */ 

{ 

/*************************************************************** 

If  the  incremented  count_up  - noiseFilter  then  give  'em  output,  and 
reset  the  established  value  to  the  newly  established  value. 
****************************************************************/ 
if  (++out [ index] . countUpSigOf fUnsigned  — noiseFilter) 

{ 

if  {out [index] .estSigOf fUnsigned  !-  Sig_data) 

{ 

putsig_s  (Sig_name,  SIg_data) ; 

out [index] .estSigOf fUnsigned  - Sig_data; 

) 

) 

/****************************************** 

Initialize  the  invalidation  counter  to  1. 
*»*****************************************/ 
out [index] .countDownSigOf fUnsigned  - 0; 


) 


/A********************************** ************************************+★*/ 

putsig_l_NF  (Sig_name,  Sig_data,  index,  noiseFiiter,  out) 

char  Sigjn*m*[];  /*  The  name  of  the  signal  put  */ 

long  Sig_data;  /*  The  data  for  signal  put  */ 

int  index,  /*  The  index  to  the  signal  in  the  comp  */ 

noiseFiiter;  /*  The  noise  filter  value  for  this  comp  */ 
struct  sigLongStruct  *out; 

extern  int  *rate__ptr;  /*  Global  pointer  to  comp's  noise  filter  value  */ 

extern  int  iterat ion_ct r ; /*  Global;  How  many  times  the  group  has  looped  */ 


/★★★★A********************************************************* 

Are  we  deviating  from  the  established  value?  If  we  are  doing 
so  consistently,  then  invalidate  the  established  value. 
***************************************************************/ 
if  ( (out [index] .estSigLong  !■  Sig_data)  £& 

(out [ index] . countDownSigLong  < noiseFiiter)) 

{ 

if  (++out [index] .countDownSigLong  **  noiseFiiter) 
out [index] .estSigLong  - UNLIKELY_VALUE; 

} 


/************************************************************** 

If  we  are  not  firing  continuously,  then  send  everyone  back  to 
the  starting  values. 

********************************************♦******************/ 
if  ( abs (iterat ion_ctr  - out [ index]  . loopSigLong)  > *rate _ptr) 

{ 

out [ index] . countUpSigLong  - 0; 
out [ index] . countDownSigLong  - 0; 
/******************************************************* 

If  we  have  consistently  not  fired,  then  invalidate  the 
previously  established  value. 
********************************************************/ 

if  ( abs (iteration_ctr  - out ( index] . loopSigLong)  > (*rate_ptr  * noiseFiiter)) 
out [Index] .estSigLong  - UNLIKELY_VALUE; 

) 


/******★******************************************************* 

Reset  the  loop  count_up  to  the  new  loop  count_up. 
***************************************************************/ 
out [index] . loopSigLong  * iteration_ct r; 

/************************************************************** 

If  the  current  value  is  different  from  the  last  value,  then 
start  the  count_up  at  1 and  reset  the  prevous  value,  else... 
***************************************************************/ 
if  (out [index] .prevSigLong  !-  Sig_data) 

( 

out [index] .countUpSigLong  - 0; 
out [ index] .prevSigLong  » Sig_data; 

) 

else 

{ 

/*************************************************************** 

If  the  count_up  is  less  than  noiseFiiter  then  increment  it. 
****************************************************************/ 
if  (out ( index] .countUpSigLong  < noiseFiiter)  /*  Stop  us  from  wrap-around  */ 
{ 

/*************************************************************** 

If  the  incremented  count_up  • noiseFiiter  then  give  'em  output,  and 
reset  the  established  value  to  the  newly  established  value. 
*********************************** *****************************/ 
if  (++out [ index] . countUpSigLong  --  noiseFiiter) 

( 

if  (out [index] .estSigLong  t-  Sig_data) 

{ 

putsig_s  ($ig_name,  Sig_data) ; 
out [ index] .estSigLong  - Sig_data; 

} 

) 

/****************************************** 

Initialize  the  invalidation  counter  to  1. 
*******************************************/ 
out [index] . countDownSigLong  - 0; 

) 

> 


/********* kkkkkkkkkkkkkkkkkkkkk****************** ***************** *********/ 

putsig_off_l_NF  (Sig_name,  Sig_data,  index,  noiseFilter,  out) 
char  Sig_name ( ] ; f*  The  name  of  the  signal  put  *1 

long  Sig_data;  /*  The  data  for  signal  put  */ 

int  index,  /*  The  index  to  the  signal  in  the  comp  */ 

noiseFilter;  /*  The  noise  filter  value  for  this  comp  *{ 
struct  sigOffLongStruct  *out; 

extern  int  *rate_ptr;  /*  Global  pointer  to  comp's  noise  filter  value  */ 

extern  int  iterat ion_ct r;  /*  Global;  How  many  times  the  group  has  looped  */ 


/■kit************************************************************ 

Are  we  deviating  from  the  established  value?  If  we  are  doing 
so  consistently,  then  invalidate  the  established  value. 
***************************************************************/ 
if  ( (out [index] , estSigOf fLong  !■  Sig_data)  £& 

(out [index] . countDownSigOf fLong  < noiseFilter)) 

{ 

if  (++out [ index] . countDownSigOf fLong  noiseFilter) 
out [ index] . estSigOf fLong  * UNLIKELY_VALUE; 

) 

/************************************************************** 

If  we  are  not  firing  continuously,  then  send  everyone  back  to 
the  starting  values. 

***************************************************************/ 
if  ( abs (iterat ion_ctr  - out [index] . loopSigOf fLong)  > *rate_ptr) 

{ 

out [index] . countUpSigOf fLong  - 0; 
out [index] .countDownSigOf fLong  - 0; 

/kk***************************************************** 

If  we  have  consistently  not  fired,  then  invalidate  the 
previously  established  value. 
********************************************************/ 

if  < abs (iterat ion_ctr  - out [ index] . loopSigOf fLong)  > (*rate_ptr  * noiseFilter)) 
out [ index] .estSigOf fLong  « UNLIKELY_VALUE; 

) 


/a************************************************************* 

Reset  the  loop  count_up  to  the  new  loop  count_up. 

♦ it*************************************************************/ 

out [index] . loopSigOffLong  - iteration__ctr; 

/★t************************************************************ 

If  the  -current  value  is  different  from  the  last  value,  then 
start  the  count_up  at  1 and  reset  the  prevous  value,  else... 
************★**★********■■***•**★*********★★*★**•******************/ 
if  (out [index] .prevSigOf fLong  !-  Sig_data) 

< 

out [index] . countUpSigOf fLong  - 0; 
out [index] .prevSigOf fLong  - Sig_data; 

) 

else 

{ 

/*************************************************************** 

If  the  count_up  is  less  than  noiseFilter  then  increment  it. 
★a**************************************************************/ 

if  (out [index] .countUpSigOf fLong  < noiseFilter)  /*  Stop  us  from  wrap-around  */ 

{ 

/a************************************************************** 

If  the  incremented  count_up  * noiseFilter  then  give  'em  output,  and 
reset  the  established  value  to  the  newly  established  value. 

I****************************************************************/ 

if  <++out [ index] .countUpSigOf fLong  --  noiseFilter) 

{ 

if  (out [ index] .estSigOf fLong  !»  Sig_data) 

{ 

putsig_s  (Sig_name,  Sig_data) ; 

out [ index] .estSigOf fLong  - Sig_data; 

> 

} 

/*****kk*******kk*k**k*kkkkk*k*k*k**k*kkkk* 

Initialize  the  invalidation  counter  to  1. 

★ ****★*■★★***★★#★**■*★*****★★★***★*********■**/ 
out [ index] . countDownSigOf fLong  « 0; 

} 

) 


#def ine  MAX_S I G_N AME _LE N 
#def ine  MAX_STR_LEN  125 


32 


struct  faultMsgStruct 

char  prevFaultMsg [MAX_STR_LEN] ; 
char  estFaultMsg [MAX_STR_LEN] ; 
int  countUpFaultMsg; 
int  countDownFaultMsg; 
int  loopFaultMsg; 


struct  sigStringStruct 

( 

char  sigName [MAX_SIG_NAME_LEN] ; 
char  estSigStr ing [MAX_STR_LEN] ; 
char  prevSigSt ring [MAX_STR_LEN] ; 
int  countUpSigString; 
int  countDownSigStr ing; 
int  loopSigString; 

In- 


struct sigOf fStringStruct 

< 

char  sigName [MAX_SIG_NAME_LEN] ; 
char  estSigOf fString [MAX_STR_LEN] ; 
char  prevSigOf fString [MAX_STR_LEN 3 
int  countUpSigOf fString; 

int  countDownSigOffString; 
int  loopSigOf fString; 
in- 


struct sigShortStruct 
{ 


char 

sigName  [MAX_SIG_NAME_LEN]  ; 

short 

estSigShort ; 

short 

prevSigShort ; 

short 

countUpSigShort ; 

short 

countDownS igShort ; 

short 

loopSigShort ; 

in- 


struct sigOf fShortStruct 

{ 

char  sigName  [ MAX_S IG_N AME__LEN ] ; 

short  estSigOf fShort; 
short  prevSigOf fShort ; 
short  countUpSigOf fShort ; 
short  countDownSigOf fShort ; 
short  loopSigOf fShort ; 
in- 


struct siglntStruct 

{ 

char  sigName [MAX_SIG_NAME_LEN] ; 
int  estSiglnt; 

int  prevSiglnt; 

int  countUpSiglnt ; 

int  countDownSiglnt; 

int  loopSiglnt; 

in- 


struct sigOf flntStruct 

{ 

char  sigName [MAX_SIG_NAME_LEN] ; 
int  estSigOf flnt ; 

int  prevSigOf flnt ; 

int  countUpSigOf flnt; 

int  countDownSigOf flnt ; 

int  loopSigOf flnt; 

in- 


struct sigFloatStruct 

{ 

char  sigName [ MAX_S IG_NAME_LEN ] ; 
float  estSigFloat; 
float  prevSigFloat ; 
float  countUpSigFloat ; 


float 

float 


countDownSigFloat ; 
loops lgFl oat ; 


I; 

struct  sigOf fFloatStruct 

{ 

char  slgName [MAX_SIG_NAME_LEN] ; 
float  estSigOf fFloat ; 
float  prevSigOf fFloat ; 
float  countUpSigOf fFloat ; 
float  countDownSigOf fFloat ; 

float  loopSigOf fFloat; 

} ; 


struct  sigDoubleStruct 
( 


char 

sigName [ MAX_S I G_N AME_LEN ] ; 

double 

estSigDouble; 

double 

prevSigDouble; 

double 

count UpSigDouble; 

double 

count DownS igDouble; 

double 

loops igDouble; 

In- 


struct sigOf fDoubleStruct 

{ 

char  slgName [ MAX_S IG_NAME_LEN ] ; 

double  estSigOf fDouble; 

double  prevSigOf fDouble ; 

double  countUpSigOf fDouble; 

double  countDownSigOf fDouble; 

double  loopSigOf fDouble ; 

In- 


struct slgUnsignedSt ruct 


( 

char 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

I; 


sigName  [MAX_SIG_NAME_LEN]  ; 
estSigUnsigned; 
prevSigUn signed; 
countUpSigUnsigned; 
countDownSigUnsigned; 
loops igUnsigned; 


struct  sigOf fUnsignedSt ruct 


{ 


char 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 


sigName [ MAX_S IG_NAME_LEN ] ; 
estSigOf f Unsigned; 
prevSigOff Unsigned; 
countUpSigOf f Unsigned; 
countDownSigOf f Unsigned; 
loopSigOf f Unsigned; 


In- 


struct sigLongStruct 

{ 

char  sigName  [MAX_SIG_NAME_LEN]  ; 

long  estSigLong; 

long  prevSigLong; 

long  countUpSigLong; 

long  countDownSigLong; 

long  loops igLong; 

In- 


struct sigOffLongStruct 

( 

char  sigName [MAX_SIG_NAME_LEN] ; 
long  estSigOffLong; 
long  prevSigOf fLong; 

long  countUpSigOf fLong; 

long  countDownSigOffLong; 
long  loopSigOffLong; 


I 


PUT  LOCAL 


Purpose:  Put_local  handles  the  local  variables. 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  5/27/87 

Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by:  Troy  A.  Heindel  — 10-27-88 
Reasons  for  Revision: 


External  Interfaces 


/**★********************************************************** 

Include  files 

************  ******************************************* ******/ 

♦include  "code.h" 

♦include  "color. h" 

put_local  0 

int  rc,  /*  The  returned  values  from  var_check()  */ 

locallndex,  /*  The  index  to  the  variable  in  the  CompVars  struct  */ 

globallndex;  /*  This  index  in  not  of  use  to  local  variables  */ 

char  local [MAX_VAR_LEN] , /*  String  for  temporary  variable  storage  */ 
msgStr  [150] ; 

/* 

* Get  the  name  the  local  from  the  user 
*/ 

if  (getVarName  (local,  LOCAL) —ERROR) 
return  ERROR; 

/* 

* Now  check  to  see  if  the  name  is  proper 
*/  - 

if  (var_check  (local,  fclocallndex,  fcgloballndex,  "local")  — ERROR) 

{ 

sprint f (msgStr,  "%s  has  been  used  previously  as  a Signal  variable", local) ; 
inform (msgStr, GREEN, 2) ; 

ask ("Signal  and  Local  variables  can  not  share  names. \nHit  [RETURN]  to  cont inue" , RED, msgStr) ; 
return  ERROR; 

} 

/* 

* Check  to  see  that  the  type  comparison  is  correct. 

* If  we  are  on  the  right  hand  side  of  an  Equation, 

* the  local  is  defined,  and  the  types  aren't  kosher. 

*/ 

if  (Equation  — RHS  ££  locallndex  !-  -1  tt 

type_check (CompVars [locallndex] .type [0] ) — ERROR) 

{ 

sprintf  (msgStr,  "%s  is  of  wrong  type.  Should  have  been  of  type  '%s'  — Hit  [RETURN]",  local, 
e [NumberOfCompares-1] ) ; 

ask  (msgStr,  GREEN,  msgStr) ; 
return  ERROR; 

) 

/★**************************************** 

Clean  up  indentation  and  add  msid  to  comp 
******************************************/ 
indent  (PREMISE) ; 
strcat  (Comp,  local) ; 

/*********★**★**************************★******* 

Place  the  token  choice  into  the  history  of 
token  choices  in  case  of  delete. 


CompareTyp 


PrevChoice [ChoiceCounter++]  - LOCAL; 

/****************** ********************** ******* 

If  the  local  variable  was  not  previously  used 
in  this  comp  it  will  have  a local  index  - -1. 

If  this  is  the  case  we  need  to  get  type  info. 

a#**********************************************/ 

if  (locallndex  !-  -1) 

{ 

++CompVars [locallndex] .occurrence; 

/★**★**#***★****■********************************************* 
if  (LHS)  then  set  the  CompareType  to  type  of  this  local 

a**********************#*************************************/ 


if  (Equation  « LHS) 

strcpy  (CompareType [NumberOfCompares++] , CompVars [ locallndex] .type); 

) 

else  /*  locallndex  — -1  */ 

{ 

CompVars [NumCompVars] . lol_limit  - 0; 

CompVars [NumCompVars ] . lo2_limit  * 25; 

CompVars [NumCompVars ] .hi l_limit  - 50; 

CompVars [NumCompVars] .hi2_limit  - 100; 

CompVars [NumCompVars] .put_or_get  - GET; 
strcpy  (CompVars [NumCompVars] .name,  local); 
strcpy  (CompVars [NumCompVars] .class,  "local"); 

CompVars [NumCompVars] .occurrence  - 1; 

sprintf (CompVars [NumCompVars] .nomenclature,  "/*  %s  */", 

CompVars [NumCompVars ] .name) ; 
/★a*************************************************** 

If  LHS  then  we  get  the  type  set  the  CompareType  to  it 
and  increment  the  NumberOfCompares  counter 
******************************************************/ 


if  (Equation  — LHS) 

< 

9«t_type (CompVars [NumCompVars] .type,  "Of  what  type?"); 

strcpy  (CompareType [NumberOfCompares++] , CompVars [NumCompVars] .type); 

) 

/****★**★****************★**************************** 

If  RH5  then  we  default  the  local  to  the  CompareType 
*******★★********★**★*****•**★*★***************  + *******/ 

else 

{ 

strcpy  (CompVars [NumCompVars] .type,  CompareType [ NumberOfCompares- 1] ) ; 

) 

NumCompVa r s + + ; /*  increment  the  count  of  comp  variables  V 
) /*  end  of  new  local  definition  V 
NeedToSave  - TRUE; 


getVarName (nameToGet , class) 
char  *nameToGet; 

int  class;  /*  Either  LOCAL,  MSID,  or  SIGNAL  V 

{ 

int  rc; 

/************************★*******★*★************* 

Keep  getting  name  until  we  get  a valid  one 
*************************************************/ 
do 
{ 

if  ( (rc  • ask ("Enter  the  variable  name,  or  (Q)uit  this",  GREEN,  nameToGet))  !-  ERROR) 

{ 

upper  (nameToGet) ; 

/* 

* Now  that  we  have  a variable,  make  sure  it  doesn't 

* contain  unwanted  characters. 

*/ 

rc  * goodVar (nameToGet ) ; 

) 

/* 

* First  check  to  see  if  they  just  want  to  leave 
*/ 

if  (nameToGet [0]  — ' Q'  ||  rc  — DEFAULT) 
return  ERROR; 

} while  (rc  — ERROR); 


return  OK; 


put_local.c 


) 

goodVar (varName) 
char  varName []; 

{ 

int  i;  /*  Simple  Counter  */ 

char  reply [5]/  /*  String  for  response  from  "ask"  */ 

/* 

* Never  allow  the  first  character  to  be 

* a number. 

*/ 

if (varName [0]  >»  'O'  varName[0]  <-  '9') 

ask ("Your  input  string  contained  an  illegal  character  — Hit  [RETURN] " , GREEN, reply) ; 
return  ERROR; 

} 

/* 

* Does  the  string  contain  unwanted  chars? 

* Allow  only  alphaNumerics  and  underscore. 

*/ 

for  ( i-0;  iotrlen  (varName)  ; 1++) 

( 

if  (!( (varName [i]  >«  'A'  varName[i]  O 'Z')  II 
(varName [ i]  >»  'a'  &&  varName[i]  <-  'z')  II 

(varName [i]  >*  '0'  &&  varName [i]  <-  '9')  II 
varName [i]  -■  '_'}) 

ask ("Your  input  string  contained  an  illegal  character  — Hit  [RETURN] ",  GREEN, reply) 
return  ERROR; 

> 

} 

return  OK; 


} 


PUT  MS ID 


Purpose:  Put_msid  validates  and  adds  the  entered 
to  the  comp  string  and  resets  all  the 
neccessary  flags. 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  6/20/87 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment} 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 

***************** ************************************  ***********/ 

/************************************************************* 

Include  files 

*************************************************************/ 

♦include  "code.h" 

♦include  "color. h" 

put_msid  () 

( 

int  i,  /*  A simple  counter  */ 

local_index,  /*  The  index  to  the  variable  in  the  CompVars  struct  V 

global_index;  /*  The  index  to  the  variable  in  the  MSIDTable  */ 

char  msid [MSID_NAME_LEN] , /*  String  used  to  store  the  name  of  the  msid  */ 
type [TYPE_LEN] , /*  A place  to  put  type  of  the  msid  */ 

nomenclature [NOMEN_LEN] , /*  A place  to  put  the  msid's  nomenclature  */ 

reply [50] , 

message [150] ; /*  String  used  for  displaying  message  to  the  user  */ 

/* 

* Get  the  name  the  msid  from  the  user 
V , 

if (getVarName  (msid,  MSID)— ERROR) 
return  ERROR; 


/* 

* Try  and  get  an  index  for  the  msid 
V 

var_check  (msid,  &local_index,  «global_index,  "msid"); 

/************************************************★************ 

If  it's  defined  locally,  show  them  the  nomenclature  and 
increment  the  occurence  count . 

**************************************************************/ 
if  <local_index  !-  ERROR) 

( 

/* 

* Show  'em  the  nomenclature  for  a second. 

V 

inform (CompVars [local_index] .nomenclature, GREEN, 1) ; 
/***************************************************★** 

Set  up  type  in  case  we're  on  the  LHS  so  we  can  set  the 
compare  type. 

*******************************************************/ 
strcpy(type,  CompVars [ local_index] -type) ; 
if  (Equation  — RHS  it  type_check (type [0 ] ) — ERROR) 

{ 

sprintf  (message,  "%s  is  of  wrong  type.  Should  have  been  of  type  '%s'  — Hit  [RETURN]",  msid,  Co 
mpareType [NumberOfCornpares-l] ) ; 

ask (message, RED, reply) ; 
return  ERROR; 

> 

else 

CompVars [ local_index] . occurrence++; 


/★♦★★a********************************************************** 

If  it's  defined  globally  and  not  defined  locally  show  them  the 
nomenclature  define  it  locally  using  the  global  information. 
****************************************************************/ 
else  if  (global_index  !-  ERROR  it  local_index  *-  ERROR) 

{ 

/* 

* Show  'em  the  nomenclature  for  a second. 

*/ 

inform {MSIDTable [global_index] .nomenclature, GREEN, 1) ; 

strcpy {type,  MSIDTable [global_index] .type); 

/************************************************************* 

Check  to  see  that  the  type  comparison  Is  correct 
**************************************************************/ 
if  (Equation  --  RHS  it  type_check (type [ 0 ] ) — ERROR) 

sprintf  (message,  "Is  is  of  wrong  type.  Should  have  been  of  type  'Is'  — Hit  [RETURN]",  msid,  Co 
mpareType [NumberOfCompares-1] ) ; 

ask (message, RED, reply) ; 
return  ERROR; 

) 

else 

( 

strcpy (CompVars [NumCompVars] .name,  msid) ; 
strcpy (CompVars [NumCompVars] .type,  type) ; 

strcpy (CompVars [NumCompVars] .nomenclature,  MSIDTable [global_index] .nomenclature) ; 
st rcpy (CompVars [NumCompVars] .class,  "msid"); 

CompVars [NumCompVars] . occurrence  * 1; 

CompVars [NumCompVars] .put _or_get  ■ GET; 

CompVars [NumCompVars] . lol_limit  - 0; 

CompVars [NumCompVars] . lo2_limit  - 25; 

CompVars [NumCompVars] .hil_limit  - 50; 

CompVars [NumCompVars] ,hi2_limit  - 100; 

NumCompVars++; 

) 

} 

/★a************************************************************** 

If  it's  not  defined  globally  - and  not  defined  locally  warn  them 
and  get  the  type  and  nomenclature  info  and  define  it  locally. 

★A***************************************************************/ 

else  if (global_index  « ERROR  6&  local_index  *■  ERROR) 

{ 

sprintf (message, "Warning:  %s  is  not  a defined  telemetry  point  on  this  system" , msid) ; 
inform (message,  PURPLE,  2); 
get_type (type, "Of  what  type?"); 
inform (type,  GREEN,  0); 

/a************************************************************ 

Check  to  see  that  the  type  comparison  is  correct 
******************************* *★*****************************/ 
if  (Equation  « RHS  ti  type__check  (type  [ 0] ) — ERROR) 

{ 

sprintf  (message,  "%s  is  of  wrong  type.  Should  have  been  of  type  'Is'  — Hit  [RETURN]",  msid,  Co 
mpareType [NumberOfCompares-1] ) ; 

ask (message, RED, reply) ; 
return  ERROR; 

} 

else 

( 

strcpy (CompVars [NumCompVars] .name,  msid); 

strcpy (CompVars [NumCompVars] .type,  type) ; 

ask ("Please  enter  msid  nomenclature",  GREEN, reply) ; 

sprintf (nomenclature,  " /*  Is  */",  reply); 

strcpy (CompVars [NumCompVars] .nomenclature,  nomenclature); 

strcpy (CompVars [NumCompVars] .class,  "msid"); 

CompVars [NumCompVars] .occurrence  * 1; 

CompVars [NumCompVars] .put_or_get  - GET; 

CompVars [NumCompVars] . lol_limit  - 0; 

CompVars [NumCompVars] . lo2_limit  - 25; 

CompVars [NumCompVars ] .hil_limit  « 50; 

CompVars [NumCompVars] .hi2_limit  - 100; 

NumC  omp Va  r s + + ; 

) 


) 


/**************************************************** 


put_msid.c 

the  type  for  CompareType 
********************** *★****★/ 


if  (Equation  **  LHS) 

atrcpy (CompareType [NumberOfCompares++] , type) ; 


/A**************************************** 

Clean  up  indentation  and  add  msid  to  comp 
*»******************************** ***★***★/ 
indent  (PREMISE); 
strcat  (Comp,  msid) ; 

PrevChoice [ChoiceCounter++]  * MSID; 
NeedToSave  - TRUE; 


/★★★★A************ 

PUT  SIGNAL 


put_signaLc 

******************** 


Purpose:  Put_signal  bandies  the  addition  of  signals  into  the 
comp,  this  Includes  setting  flags  and  arrays. 


Designer:  Terri  Murphy 


Programmer:  Terri  Murphy 


Date:  10/88 

Version : 1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 


Include  files  ^ 

♦include  "code.h" 

♦include  "color. h" 


put_ signal  () 

{ char  signal [SIGNAL_NAME_LEN] , /*  A string  to  get  the  signal  into  */ 

nomenclature [NOMEN_LEN]\  /*  A string  to  get  the  nomenclature  into  */ 
message [155] , /*  A place  to  put  your  messages  */ 

reply [50] , 

file_name [PATH_LEN] ; /*  Used  to  build  the  file  name  for  the  sig  tbl  */ 


int 


i,  / 

rvl,  rv2,  / 

is_a_getter, 
var_check ( ) , 
local_index, 
global_index; 


A counter  */ 

Return  values  for  var_check{)  */ 

/*  TRUE  if  we  are  just  looking  at  the  signal 
/*  Returns  index  of  inputed  signal  */ 

/*  local  index  to  be  set  by  var_check()  V 
/*  global  index  to  be  set  by  var_check()  */ 


/**************#**********★**★********************* 

We  need  to  know  if  we  are  putting  or  getting  to 
determine  if  the  signal  if  valid. 

I***************************************************/ 

if  ( (Where Ami  — CONSEQUENCE  II  (NumberOflfs  - NumberOfEndif s)  — 0)  (Equation 
is_a_getter  * FALSE; 

else 

is__a__getter  - TRUE; 

/•a*********************************************** 

Keep  getting  variables  until  we  get  a valid  one 
#•************#**★**★*****★***************•********/ 

do 

{ 

/* 

* Get  the  name  the  signal  from  the  user 
*/ 

if  (getVarName  (signal,  SIGNAL) —ERROR) 
return  ERROR; 


LHS) ) 


if ( (rv2  * var_check  (signal,  fclocal_Index,  tglobal_index,  "signal"))  » ERROR) 

{ 

sprintf (message,  "%s  has  been  previously  defined  as  a LOCAL  variable",  signal); 
ask (message, RED, reply) ; 

) 

/*************************************** ***************** 

If  the  signal  is  in  the  signal  table  we  should  show  the 
nomenclature . 

*********************************************************/ 
if  (global_index  !-  -1) 

inform (SignalTable [global_index] . nomenclature, GREEN, 1) ; 

/************************************************************* 


put_signalc 


Check  to  see  that  the  type  comparison  is  correct 
*************************************************************/ 


if  (Equation  ~ RHS  4t  global_index  !»  -1  fi£  type_check (SignalTable [global_index] . type [0] ) **  ERROR) 

sprint f (message,  "%s  is  of  wrong  type.  Should  have  been  of  type  7%s7  — Hit  [RETURN]",  signal.  Sign 
alTable [global_index] .type) ; 

ask (message, RED,  reply) ; 
rv2  * ERROR; 


if  (Equation  » RHS  &£  local_index  !»  -1  &£  type_check (CompVars [ local_index] . type [0] ) **  ERROR) 

sprint f (message,  ”%s  is  of  wrong  type.  Should  have  been  of  type  7%s7  — Hit  [RETURN]”,  signal,  Sign 
alTable [global_index] .type); 

ask (message, RED, reply) ; 
rv2  - ERROR; 

) 

} while  (rvl  — ERROR  ||  rv2  — ERROR); 

y*************************************************************************** 
rv2  - 0 

local_index  * -1 
global_index  - <valid_index> 

This  means  that  the  signal  already  exists  in  the  signal  table,  but  it 
hasn't  been  defined  locally  yet.  Create  the  CompVars  entry. 

**************  ***************★*****★****★***********************•*************/ 


if  (local_index  *“  -1  t£  global_index  !-  -1) 

( 

strcpy (CompVars [NumCompVars] .name  , signal); 

CompVars [NumCompVars ]. occurrence  - 1; 

strcpy (CompVars [NumCompVars] .class,  "signal") ; 

if  (is_a_getter) 

CompVars [NumCompVars] .put_or_get  - GET; 

else 

CompVars [NumCompVars] .put_or_get  - PUT; 

CompVars [NumCompVars] . lol_limit  - 0; 

CompVars [NumCompVars] . lo2_limit  - 25; 

CompVars [NumCompVars] .hi l_limit  * 50; 

CompVars [NumCompVars] ,hi2_limit  - 100; 
strcpy (CompVars [NumCompVars] .nomenclature, 

SignalTable [global_index] .nomenclature) ; 
strcpy (CompVars [NumCompVars] .type,  SignalTable [global_index] .type) ; 


/**************************************************** 
if  (LHS)  we  are  setting  the  type  for  this  compare 
*****************************************************/ 

if  (Equation  LHS) 

,strcpy  (CompareType [NumberOfCompares++] , SignalTable [global_index] .type) ; 
NumC  omp Va  r s + + ; 

J 

/************************************************ 
rv2  - 0 

local_index  !-  -1 

Means  that  the  signal  is  already  defined  locally. 

Update  the  occurrence  count,  make  sure  the 
the  signal  is  still  being  used  in  the  same  way. 
*************************************************/ 
else  if  (local_index  !-  -1) 

( 

/*********************************************** 

Let's  make  sure  that  if  they  were  getting  they're 
still  getting  - or  if  they're  putting  now  we  need 
to  change  put_or_get  to  "PET"  (and  vice  versa) . 
************************************************/ 
if  ( (is_a_getter  44  CompVars [ local_index] .put_or_get  « PUT)  it 
( ! is_a_getter  £4  CompVars [local_index] .put_or_get  --  GET)) 

CompVars [ local_index] .put_or_get  - PET; 
y *********************************************** 

Increment  the  occurrence  of  this  signal 
************************************************/ 

CompVars [ local_index] ,occurrence++; 

y**************************************************** 
if  (LHS)  we  are  setting  the  type  for  this  compare 
***************************************************** y 

if  (Equation  --  LHS) 

strcpy  (CompareType [NumberOfCompares++] , CompVars [local_index] .type); 

} 

y****************************************************** 

If  the  rv2  is  0 
local  index  is  -1 


put_signal.c 


global_index  is  -1 

The  signal  is  not  defined  anywhere  - SO  DEFINE  IT ! I ! 
****************★****♦**********************************/ 


else  if  (local_index  « -1  tfi  global_index  « -1) 

strcpy {CompVars [NumCompVars] .name  , signal); 

CompVars [NumCompVars] .occurrence  * 1; 

strcpy (CompVars [NumCompVars] .class,  "signal") ; 

CompVars [NumCompVars] ,put_or_get  - PUT; 

CompVars [NumCompVars] . lol_limit  - 0; 

CompVars (NumCompVars ]. lo2_l imit  * 25; 

CompVars [NumCompVars] .hi 1_1 imit  « 50; 

CompVars [NumCompVars] .hi2_limit  - 100; 

ask ("Please  enter  signal  nomenclature . GREEN, nomenclature) ; 

sprintf (CompVars [NumCompVars] .nomenclature,  " /*  %s  */",  nomenclature); 

/♦a*************************************************** 

If  LHS  then  we  get  the  type  set  the  CompareType  to  it 
and  increment  the  NumberOf Compares  counter 
*******★**********************************************/ 


if  (Equation  ■■  LHS) 

get_ type (CompVars [NumCompVars] .type,  "Of  what  type?"); 

strcpy  (CompareType [NumberOfCompares++] , CompVars [NumCompVars] .type) ; 

} 

/a**************************************************** 

If  RHS  then  we  default  the  signal  to  the  CompareType 
*************************  ********  **★★★***★***  ***★★**★*/ 


else 

strcpy  (CompVars [NumCompVars] .type,  CompareType [NumberOf Compares- 1] ) ; 

} 


NumCompVars++; 

} 

/♦♦■ft**************************************** 

Clean  up  indentation  and  add  signal  to  comp 
*********************★**’********************/ 
indent  (PREMISE); 
strcat  (Comp,  signal) ; 

PrevChoice [ChoiceCounter++]  * SIGNAL; 
NeedToSave  - TRUE; 


PUT  STATUS 


Purpose:  Put_status  places  the  development  status  of  the  comp 
whether  incomplete,  complete,  installed,  or  error 
in  the  upper  left  hand  corner  of  the  Work  Area. 

Designer:  Terri  Murphy 

Programmer:  Terri  Murphy 

Date:  4/5/87 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 


Include  files 

♦include  "code.h" 
♦include  "color. h" 


put_status  {) 

{ 

char  status [15],  /*  The  status  string  */ 

response [5];  /*  A place  to  put  user  input  */ 


/ir********************************************************** 

The  comp  is  complete  if  the  length  of  the  comp  is  greater 
than  2 and  there  are  an  equal  number  of  "if"s  and  "endif"s. 
♦♦a*********************************************************/ 

if  (Complnfo [CompNumber] .disposition  *«  ERROR  (6  INeedToSave) 

{ 

strcpy  (status,  "Error") ; 

) 

else  if  (Complnfo [CompNumber] .disposition  — INSTALLED  INeedToSave) 

{ 


strcpy  (status,  "Installed") ; 

) 

else  if  (NumberOf If s-NumberOfEndifs 
( 

if  (PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
Equation  — RHS  ££ 
(PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
(PrevChoice [ChoiceCounter-1] 

{ 


— 0) 


— END_IF  1 | 

— PRINT  | | 

— COMMENT  | | 


— MS ID  I I 

— NUMBER  I I 

— STRING  | | 

— SIGNAL  I I 

— LOCAL  | | 

— PI  II 

— R PAREN  6£  ParenCount 


0))) 


strcpy (status,  "Complete"); 

Complnfo [CompNumber] .disposition  - COMPLETE; 


) 

else 


{ 

strcpy (status,  "Incomplete"); 

Complnfo [CompNumber] .disposition  - INCOMPLETE; 

) 

} 

else 

i 

Complnfo [CompNumber] .disposition  - INCOMPLETE; 
strcpy (status,  "Incomplete"); 

) 


/*★**********★***************** 
Put  up  the  status  bubble 
******★************************/ 


put_status.c 


mg  i hue  (BLACK) ; 

mgrbox  (0.1682,  0.9120,  0.35,  0.9320); 
mgihue  (BLUE) ; 

mgrbox  (0.1682,  0.9120,  0.1682  + strlen (status) *0 . 01,  0.9320); 
mgrfc  <0.1682,  0.9220,  0.0080); 

mgrfc  (0 . 1682+strlen (status) *0 .01,  0.9220,  0.0080); 


mgihue  (YELLOW) ; 

mgrgfs  (0 . 1682, 0 . 9110, 0, status) ; 


/* 

* If  there  is  danger  of  the  comp  exceeding  the  MAX_COMP_LEN  if 

* the  largest  token  (MAX_COMMENT_LEN)  is  selected  next,  tell 

* the  user  to  notify  developers  and  EXIT  before  irrevocable 

* damage  is  done. 

*/ 

if (strlen (Comp)  > MAX_COMP_LEN  - MAX_COMMENT_LEN) 

ask ("You  have  exceeded  the  maximum  comp  length.  Notify  developers . \nHit  [Return]  to  exit , RED, status) ; 
save ( ) ; 
cleanExit  ()  ; 

) 

) 


put_token.c 


PUT  ADD 


Purpose:  Put_add  adds  the  token  ' + 
and  resets  all  the  neccessary 


' to  the  comp  string 
flags . 


Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 


Date : 5/6/87 


Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 


Include  files 

*************************************************************/ 
♦include  "code.h" 

♦include  <ctype.h> 

put_add  { ) 

{ 

street  (Comp, " +"); 

NeedToSave  * TRUE; 

PrevChoice [ChoiceCounter++]  - ADD; 

) 

put_and  ( ) 

{ 

int  spaces,  i; 

streat  (Comp,  " and") ; 

PrevChoice [ChoiceCounter++]  - AND; 

Equation  - LHS; 

NeedToSave  - TRUE; 

} 

/a************************************************************/ 

put_divide  () 

{ 

streat  (Comp,"  /"); 

NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  - DIVIDE; 

) 

/★★a***********************************************************/ 

put_else  () 

{ 

int  i;  /*  a counter  */ 

NestedElseCheck [NumberOflf s-NumberOfEndif s]  - ELSE; 
/★a*************************************** 

Clean  up  indentation 

****#**#********★**★*******★**************/ 
streat  (Comp,  "\n"); 

for  (i-0;i<( (NumberOflf s-NumberOfEndif s) -1) *SIZE_INDENT; i++) 
streat  (Comp, " ") ; 
streat  (Comp,  "else"); 

PrevChoice [ChoiceCounter++]  - ELSE; 

Equation  - LHS; 

NeedToSave  * TRUE; 

) 

/fr************************************************************/' 

put_endif  () 

( 

NumberOfEndif s++; 
indent  (CONSEQUENCE) ; 


put_token.c  Jfj 

NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  * END_IF; 

/*★************★**********************************************/ 
put_print  () 

{ 

int  i;  /*  A simple  counter  */ 

char  fault [82];  /*  A string  to  get  msg  into  */ 

fault  [0]  - '\0'; 

/a************************************ 

Do  the  proper  indentation  if  required 
*********************★****************/ 
indent  (CONSEQUENCE) ; 
strcat  (Comp, "print ") ; 

NeedToSave  - TRUE; 

/************************************* 

Get  the  fault  msg  class  from  the  user 
****★*********************************/ 
do 
< 

if (ask ("Please  enter  the  fault  message  class  (1-5)  GREEN,  fault) —DEFAULT) 
strcpy  (fault, "3");  /*  The  default  is  3 dude  */ 

} 

while  (atoi (fault)  < 1 II  atoi (fault)  > 5); 


strcat  (Comp,  "endif"), 


/a************************************ 

Append  the  fit  msg  class  to  comp 
***************■***********************/ 
strcat  (Comp,  fault); 
fault [0]  ^ ' \ 0 ' ; 
strcat  (Comp,"  \042") ; 

/a************************************ 

Get  the  fault  msg  from  the  user 
**************************★**********★/ 

ask("Please  enter  fault  message.  Precede  variables  by  percent  sign.\n(e.g.  V75T2517A  is  %V75T25 17A) ",  GREEN,  fa 
' ult); 


/★a*********************************** 

Append  the  fault  msg  to  the  comp 

t.*t.******t**************o*******t*V 

strcat  (Comp,  fault);  /*  Add  the  print  to  the  Comp  string  */ 
strcat  .(Comp,  "\042");  /*  Close  the  print  with  a double  quote  */ 
PrevChoice [ChoiceCounter++]  - PRINT; 

} 

/a************************************************************/ 

put_comment  () 

{ 

char  comment [MAX  COMMENT_LEN] ; 


comment [0]  - 0; 

ask ("Please  enter  your  comment  above GREEN, comment) ; 
strcat  (Comp,"  /*  ") ; 
strcat  (Comp, comment) ; 
strcat  (Comp,"  */") ; 

PrevChoice [ChoiceCounter++]  - COMMENT; 

NeedToSave  - TRUE; 

) 

/★★a**********************************************************/ 
put_string  () 

( 

int  i,  rv;  /*  A simple  counter  */ 

char  theStringl [MAX_STR_LENJ , /*  A string  put  the  string  into  */ 

theString2 [MAX_STR_LEN] , /*  A string  put  the  string  into  */ 

msg_string [ 159] ; 

theStringl [0]  - '\0'; 
theString2 [0]  - '\0'; 


/******************★**********★******* 

Get  the  string  from  the  user 
**★*************★*********************/ 

ask ("Please  enter  your  text  string  above", GREEN, theStringl) ; 


if  (Equation  — LHS) 


/t**************************************** 

Clean  up  indentation 

*«**«**«  1,1m  ******  *****************  **★**★**/ 

indent  (PREMISE); 


/fr************************************ 

Append  the  string  to  the  comp 

•a*************************************/ 

sprint f (theString2,  "\042%s\042",  theStringl) ; 
street  (Comp,  theString2) ; 

NeedToSave  - TRUE; 

PrevChoice [Cho iceCount er ++]  * STRING; 

/a************************************************************/ 
put_eq  () 

if  (WhereAmI  ■■  CONSEQUENCE  | I NumberOflfs  — NumberOfEndif s) 
streat  (Comp,"  -")  ; 
else  /*  we're  in  the  premise  */ 
streat  (Comp,"  ; 


PrevChoice [ChoiceCounter++]  - EQ; 

NeedToSave  - TRUE; 

Equation  - RHS; 

/★★a**********************************************************/ 
put_ge  ( ) 

{ 

streat  (Comp,"  >■") ; 

NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  - GE; 

Equation  - RHS; 

/**********************************★*******■*******************/ 
put_gt  ( ) 

{ 

street  (Comp,"  >"); 

NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  - GT; 

Equation  - RHS; 

) 

/a-************************************************************/ 

put i f () 

{ 

int  i; 

char  temp [100]; 

/★a*********************************************** 

If  we're  balanced  then  we  just  add  a return 
a*************************************************/ 

if  ((NumberOflfs  - NumberOfEndif s)  !-  0) 
indent  (CONSEQUENCE) ; 
else  streat  (Comp,  "\n") ; 
street  (Comp,  "if"); 

NumberOf Ifs++; 

PrevChoice [ChoiceCounter++]  - IF; 

WhereAmI  - PREMISE; 

Equation  ■ LHS; 

NeedToSave  - TRUE; 

} 

/******#★********★***************★********* **************  ****★/ 
put_l_paren  () 

{ 

char  temp [100]; 


streat  (Comp,"  ("); 

NeedToSave  * TRUE; 

PrevChoice [ChoiceCounter++]  - L_PAR£N; 
/********************************************************************** 
If  we're  defining  function  arguments  we  need  to  increment  the  function 
paren  count  so  we  can  tell  when  we've  finished  arg  def'ing. 
***********************************************************************/ 
if  (FuncParenCount  > 0) 

FuncParenCount++; 

ParenCount++; 

} 

/*************************************************************/ 


put_token.c 


put_le  () 
{ 


strcat  (Comp,"  <-") ; 

NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  - LE; 

Equation  - RHS; 

/*****★****************★**************************************/ 
put_lt  () 

{ 

strcat  (Comp,"  <") ; 

NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  - LT; 

Equation  - RHS; 


put_multiply  0 

( 

strcat  (Comp,"  *"); 

NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  - MULTIPLY; 

/*************************************************************/ 


put_ne  ( ) 

( 

strcat  (Comp,"  8"); 

NeedToSave  * TRUE; 

PrevChoice [ChoiceCounter++]  - NE; 

Equation  - RHS; 

} 

/★★★A*********************************************************/ 

put_not  ( ) 

{ 

int  i;  /*  a counter  */ 

/★a*************************************** 

Clean  up  indentation 

**************★★**★*******★***************/ 

Indent  (PREMISE); 
strcat  (Comp,  "not"); 

NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  * NOT; 
put_l_paren  () ; 

} 

/************************************************************★/ 
put_number  () 

{ 

char  number [30],  msg_st ring [159] ; 
int  status,  rc; 

/******************************************** 

Loop  till  the  user  gives  us  a 'good'  number 
♦♦★a*****************************************/ 

do 

{ 

if (ask ("Please  enter  a number", GREEN, number) --DEFAULT) 
return  ERROR; 


/**********************★************★******** 
str_islalnum  returns  the  type  or  an  error 
********************************************★/ 
if  ((status  - str_isalnum  (number))  « ERROR) 
inform("You  must  enter  a number ",RED, 2) ; 

} while  (status  — ERROR  ||  rc  — ERROR); 

if  (Equation  — LHS) 

{ 

if  (status  — FLOAT) 

strcpy  (CompareType [NumberOfCompares++] , "float"); 
else  strcpy  (CompareType [NumberOfCompares  + + ] , "int"); 

) 

/***************************************** 

Clean  up  indentation 

****************** ******** ****************/ 


put_token.c 


indent  (PREMISE); 
strcat  (Comp,  number) ; 
NeedToSave  * TRUE; 
PrevChoice [ChoiceCounter++] 


NUMBER; 


put_pi  0 
{ 

Clean  up  indentation 


indent  (PREMISE) ; 
strcat  (Comp,  "PI"); 

NeedToSave  ■ TRUE; 

PrevChoice [ChoiceCounter++]  - PI; 

} 

/★a******************************************'**********'*******/ 
put_func  (choice) 
int  choice; 

{ 

int  i,  /*  Simple  Counter  */ 

rc;  /*  A good  place  to  store  return  codes  */ 

char  whichFunct ion [FUNC_NAME_LEN] ; /*  The  actual  name  of  the  selected  function  */ 

char  message (250] , reply[50]; 


switch (choice) 

case  COS:  strepy {Funct ionList [Funct ionCount ] , "cos"); 

Funct ionArgument s [Funct ionCount ] » 1; 
break; 

case  ACOS:  strepy (Funct ionList [Funct ionCount ] , "acos"); 

Funct ionArgument s [Funct ionCount]  - 1; 
break; 

case  SIN:  strepy (FunctionList [Funct ionCount] , "sin"); 

Funct ionArgument s [Funct ionCount ] - 1; 
break; 

case  ASIN:  strepy (Funct ionList [FunctionCount ] , "asin"); 

Funct ionArgument s [Funct ionCount ] * 1; 
break; 


case  TAN:  strepy (Funct ionList [Funct ionCount ] , "tan"); 

Funct ionArgument s [FunctionCount]  - 1; 
break; 


case  ATAN:  strepy (Funct ionList [Funct ionCount ] , "atan") ; 

Funct ionArgument s [Funct ionCount ] - 1; 
break; 

case  SQRT:  strepy (FunctionList (FunctionCount ] , "sqrt"); 

Funct ionArgument s [Funct ionCount ] * 1; 
break; 


case  POWER:  strepy (FunctionList [Funct ionCount ] , "power"); 

Funct IonArgument s [FunctionCount ] * 2; 
break; 


case  LOG:  strepy (Funct ionList [FunctionCount ] , "log"); 

Funct ionArgument s [Funct ionCount ] * 1; 
break; 


case  EXP:  strepy (Funct ionList [FunctionCount ] , "exp"); 

Funct ionArgument s [FunctionCount ] * 1; 
break; 


case  FUNCTION:  /********************** 

Get  the  function  name, 
a**********************/ 

do 

( 

rc  - ask ("Please  enter  the  function  name.\nQ  to  quit  this  prompt GREEN, whichFunct ion) ; 
if (whichFunction [ 0] *»' q' | ! whichFunction [0] Q' j |rc--DEFAULT) 
return  DEFAULT; 

if  ( (rc  - funcCheck  (whichFunction) ) — ERROR) 

( 

sprintf  (message,  "#%s'  is  not  a defined  user  funct Ion . \nHit  [RETURN]  to  continue.",  whic 


put_token,c 

hFunct ion) ; 

ask {message, RED, reply) ; 

} 

} while (rc  — ERROR); 

strcpy (FunctionList [FunctionCount ] , whichFunct ion) ; 
Function Arguments [FunctionCount ] * MAX_FUNC_P ARAMS; 
break; 

default:  break; 

) 


FunctionCurrent  - FunctionCount; 

FunctionArgsDef [Funct ionCount ] * 0; 

/*******★********************************* 

Clean  up  indentation 

******************************************/ 
indent  (PREMISE); 

strcat  (Comp,  FunctionList  [Funct ionCount +-f ])  ; 

PrevChoice [CholceCounter++]  - choice; 
put  lparen  (); 

y ****************************************************** ****** 
We're  now  in  a function  so  increment  the  function 
paren  count  if  it  wasn't  already  incrmented  by  put_l_paren. 
(It  will  be  incremented  in  put_l_paren  if  it's  a nested 
function . ) 

♦♦♦a*********************************************************/ 
if (FuncParenCount  — 0) 

FuncParenCount  ++ ; 

NeedToSave  - TRUE; 

y*************************************************************/ 
put  comma { ) 

( 

strcat (Comp,  " , "); 

FunctionArgsDef [FunctionCurrent ] ++; 

PrevChoice [ChoiceCounter++]  ■ COMMA; 

NeedToSave  - TRUE; 

} 

y**********************************************'***************/ 
put_or  () 

{ 

strcat  (Comp,  " or") ; 

PrevChoice [ChoiceCounter++]  - OR; 

Equation  - LHS; 

NeedToSave  - TRUE; 

) 

/a************************************************************/ 
put_bitOr  () 

( 

strcat  (Comp,  * bitOr") ; 

PrevChoice [ChoiceCounter++]  - BITOR; 

NeedToSave  * TRUE; 

} 

y*************************************************************/ 
put^bitAnd  () 

{ 

strcat  (Comp,  " bit And") ; 

PrevChoice [ChoiceCounter++]  - BITAND; 

NeedToSave  - TRUE; 

) 

y*************************************************************/ 
put_shiftL  () 

( 

strcat  (Comp,  * shiftL") ; 

PrevChoice [ChoiceCounter++]  * SHIFTL; 

NeedToSave  - TRUE; 

) 

y*************************************************************/ 
put_shiftR  {) 

{ 

strcat  (Comp,  " shiftR"); 

PrevChoice [ChoiceCounter++]  * SHIFTR; 

NeedToSave  * TRUE; 

} 

y*************************************************************y 


put_bitXor  () 


{ 

strcat  (Comp,  " bitXor"); 

PrevChoice [ChoiceCounter++]  « BITXOR; 

NeedToSave  - TRUE; 

^*******************************+*****************************/ 

put  r_paren  () 

{ 

int  i ; 

strcat  (Comp,  n ) ") ; 

NeedToSave  * TRUE; 

PrevChoice [ChoiceCounter++]  * R_PAREN; 

/************************************** 

If  we're  defining  function  arguments 
we  need  to  dercrement  the  function 
paren  count  so  we  can  tell  when  we've 
finished  arg  def'ing. 
a**************************************/ 

if (FuncParenCount  > 0) 

{ 

FuncParenCount — ; 

if  { ++Funct ionArgsDe f [ Funct ionCurrent ] — Funct ion Argument s (FunctionCurrent ] ) 

( 

for  (i-Funct ionCurrent-1;  i >»  0;  i — ) 

{ 

if  (Funct ionArgsDef [i]  !»  Funct ionArguments [i] ) ; 

{ 

FunctionCurrent  - i; 
break; 

} 

} 

} 

} 

ParenCount — ; 

) 

/************************■*************************************/ 

put_set  () 

{ 

int  i;  /*  A counter  V 

/***************************************** 

Clean  up  indentation 

***************★**********★**********★****/ 
indent  (CONSEQUENCE) ; 
strcat  (Comp, "set ") ; 

NeedToSave  * TRUE; 

PrevChoice [ChoiceCounter++]  - SET; 

Equation  * LHS; 

} 

/a************************************************************/ 

put_subt  ract  ( ) 

{ 

strcat  (Comp,*  -") ; 

NeedToSave  » TRUE; 

PrevChoice [ChoiceCounter++]  - SUBTRACT; 

) 

/****************************************  **************  *★★****/ 
put_then  () 

( 

int  i;  /*  a counter  */ 

NestedElseCheck [NumberOf If s-NumberOfEndifs]  - THEN; 
/***************************************** 

Clean  up  indentation 

a*******************#***************#****#/ 
strcat  (Comp,  *\n") ; 

for  (i*0; i< ( (NumberOf If s-NumberOfEndifs) -1) *SIZE_INDENT; i++) 
strcat  (Comp,"  ") ; 
strcat  (Comp,  "then") ; 

PrevChoice [ChoiceCounter++]  « THEN; 

Where Ami  * CONSEQUENCE; 

Equation  * LHS; 

NeedToSave  » TRUE; 

) 
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External  Interfaces 

**********************■*****************************■*************/ 


/************************************************************* 

Include  files 

*************************************************************/ 
tinclude  "code.h" 
linclude  "color. h" 

remove  ( ) 

{ 

FILE  *ptrl,  *ptr2; 

int  i,j,k;  /*  Simple  Counters  */ 

int  is  installed;  /*  TRUE  if  the  comp  being  removed  was  previously  installed,  else  FALSE  V 

int  signal_index;  /*  The  index  into  the  signal  table  for  a variable  of  type  signal  */ 

int  index;  /*  The  index  returned  from  var_check  V 

int  returnValue, rc;  /*  return  values  for  function  calls  */ 

char  group_dat_file [PATH_LEN] ; /*  Complnfo  file  name  */ 

char  file  name [80] , confirm [250] , cmd_string [250 ] , temp[150]; 


rc*ask ( "Do  you  want  to  remove  a (G) roup,  a (C)omp,  or  just  (Q)uit  this?", GREEN, confirm) ; 

if (rc  « DEFAULT  M confirm[0]  !-  #c'  &€  confirm[0]  !«  'C'  &£ 
conf irm[0]  !-  'g'  fit  confirm[0]  t-  'G') 

{ 

inform BLUE,  0) 
return  OK; 

) 

/****************************************************»******* 

REMOVE  A COMP 

*********** **★****★**★**********★**★ **★*★**************★*****/ 
if  (conf irm [0]  --  'c'  If  confirm[0]  — 'C') 

{ 

rc  ■ get_name  (NumOfGroups,  "Group",  GroupName,  SGroupNumber) ; 
if  (rc  — ERROR) 
return (ERROR) ; 

rc  - get_name  (NumOfComps,  "Comp",  CompName,  tCompNumber) ; 
if  (rc  — ERROR) 
return (ERROR) ; 
retrieve  ()  ; 

/*********************************************************** 

Give  the  user  one  more  chance  to  abort  this  drastic  action. 
************************************★**********************♦/ 
clearWAO  ; 
displayWA (Comp) ; 

sprintf (confirm,  "Are  you  sure  you  want  to  remove  %s  (Y/N)",  CompName); 
if  (ask  (confirm,  GREEN,  temp) —DEFAULT  ||  !(temp[0]  — 9 Y'  |f  temp[0]  — ' y'  ) ) 

return; 

/************************************  ************** 

Remove  the  comp  from  the  <group>.dat  file. 
**************************************************/ 
for (i-0; i<NumOfComps; i++) 

{ 

if ( st rcmp (CompName,  Complnfo [ i] .name)  — 0) 


reniove.c 


if (Complnfo [ i] .disposition  » INSTALLED) 
is_installed  - TRUE; 
else  is_installed  - FALSE; 
for  { j-i; j<NumOf Comps; j++) 

{ 

Complnfo [j]  - Complnfo [ j+1] ; 

} 

break; 

) 

) 

NumOf Comps — ; 

/********************* 

Save  the  Complnfo. 

*************  *********/ 

sprintf (group_dat_file,  "Is/ls .dat" , AMSupport,  GroupName); 
if  (!{ptrl  - fopen  (group_dat_f ile,  "w") ) ) 

sprintf  (cmd_st ring,  "You  do  not  have  r/w  permission  to  save  %s.dat  — Hit  [RETURN] " , GroupN 
ask  (cmd_string,  GREEN,  cmd_string) ; 
return  (ERROR) ; 

} 

fprintf  {ptrl,  "#name_name  noise_filter  rate  on_off  disposit ion\n") ; 
for  (i-0;i  < NumOfComps; i++) 

( 

fprintf  (ptrl, "%s  %d  %d  Id  Id  ls\n",  Complnfo [ i] .name, 

CompInfo[i] . noise_f i Iter, 

Complnfo [i] .rate, 

Complnfo [i] .on_off, 

Complnfo [i] .disposition, 

Complnfo [i] .purpose) ; 

) 

fclose (ptrl) ; 

/****************************************************** 

Remove  the  high_level,  c,  and  variable  file  from  the 
group  directory. 

*******************************************************/ 

sprintf  (cmd_string, "rm  Is/ls/ls.*  2>>/tmp/code .err", CodeGroups, GroupName, CompName) ; 
system  (cmd_string) ; 

sprintf (cmd”st ring,  "Comp  Is  has  been  removed",  CompName); 
sleep  (2) ; 

/**************************************************** 

If  the  comp  was  previously  installed,  we  need  to 
install  the  group  again  using  the  new  ' .dat'  file. 
****************************************************★/ 

if  (is  installed) 

{ 

install ( ) ; 

) 

> 

/************************************************************ 

REMOVE  A GROUP 

*************************************************************/ 
else  if  (confirm[0]  — 'g'  j|  confirm[0]  — 'G') 

{ 

rc  • get_name  (NumOfGroups,  "Group",  GroupName,  tGroupNumber) ; 
if  (rc  — ERROR) 
return (ERROR) ; 

/**************************************************** 

Give  the  user  one  more  chance  to  abort  this  action. 
*****************************************************/ 

sprintf (confirm,  "Are  you  sure  you  want  to  remove  Is  (Y/N)",  GroupName); 

do 

{ 

if ((rc-ask  (confirm,  GREEN,  confirm))  — DEFAULT) 
confirm[0]  - 9 N' ; 

) while ( ! (conf irm [0]  — 'N'  ||  confirm[0)  — 'n'  || 
conf irm[0]  --  9 Y'  ||  confirm[0]  — 'y')); 

if ( ! (conf irm(0]  — 'Y'  M confirm[0]  --  * y' ) ) 
return; 


/**************************************************** 


and  the  executable. 

♦a***************************************************/ 

sprint f (cmd_st ring,  "rm  -r  %s/%s  %s/% s.dat  %s/%s  2>>/tmp/code .err",  CodeGroups,  GroupName,  AMSupport,  Gr 
/ oupName,  AMGroups,  GroupName); 

system  (cmd_string) ; 

/* 

* Remove  the  bugger  from  the  group_names  list  by  sliding  everybody 

* else  up  a notch. 

*/ 

for  (i-0;  KNumOf Groups;  i++) 

( 

if ( ! st rcmp (GroupName,  Grouplnf o [ i] .name) ) 

{ 

for ( j-i; j<NumOfGroups-l; j++) 

{ 

Grouplnfo [ j] .disposition  « Grouplnfo [ j +1] .disposition; 
strcpy (Grouplnfo [ j ] .name, Grouplnfo [ j+1] .name) ; 

) 

break; 

} 

} 

NumOfGroups--;  /*  Take  away  one  for  the  one  just  dropped  */ 

/* 

* Write  back  the  changes  to  the  GroupNames  file 
*/ 

writeGroupNames () ; 

sprintf (confirm,  "Group  %s  has  been  deleted",  GroupName); 
inform(conf irm, PURPLE, 2) ; 

} 

/* 

* Since  we've  just  deleted  what's  in  the  work  area  let's  do 

* some  house  cleaning. 

*/ 

ChoiceCounter  - 0; 

; Comp[0]  - '\0'; 

^ displayWA(Comp) ; 

/* 

* Set  up  the  previous  choice  so  the  call  to  color  valid 

* in  code.c  will  only  allow  the  choices  we  allow  on  startup. 

*/ 

PrevChoice [ChoiceCounter++]  - 99; 
mgihue  (BLACK) ; 

mgrbox  (0.70,  0.9120,  0.999  ,0.9320); 


} 


RETRIEVE 


Purepose:  Retrieve  reads  in  the  comp  variable  file  into  the 
CompVars  struct,  reads  the  comp  language  file  into 
a temporary  string  which  is  passed  to  pretty_comp ( ) 
for  formatting  and  history  set-up. 

Returns:  0 - OK,  no  problems. 

-1  - File  i/o  problem. 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  5/10/87 

Version:  1.0 

Project:  CODE  {Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 

**************************************************************** 
Include  files 

*****************************  ***************************  ***********/ 
♦include  "code.h" 


retrieve  {) 

FILE  *ptr,  *pt rl,  *ptr2;  /*  File  pointers,  what  else  could  they  be  */ 

char  msg_string[MAX_MSG_LEN] , /*  Message  string  repository,  and  temp  string  holder  */ 

tempComp [MAX_COMP_LEN] , /*  Used  for  temp  storage  of  the  comp  file  */ 

variable_file[PATH_LEN],  /*  The  string  for  the  path  of  the  comps  variable  file  */ 
ch,  /*  For  getting  a character  */ 

high_level_file[PATH_LEN],  /*  The  string  for  the  path  of  CODE  language  file  */ 
sig_tbl_type [TYPE_LEN] , /*  Temporary  place  for  signal  table  type  */ 
header [803;  /*  Holds  the  strings  that  comprise  the  signal  table  header.  */ 


int  i,  /*  A lovely  little  counter  */ 

return  value;  /*  Return  value  from  fscanf  for  stripping  signal  table  header  */ 


/********************************* 
Initialize  some  global  variables 
**********************************/ 
cleanSlate {) ; 

SignalCount  • 0; 


/* 

* Load  the  signal  list  and  info  for  signal  validation  in  put_signal.c 

*/ 

if (ptr  ■ fopen  (SignalTbl, "r") ) 

{ 

/* 

* Rip  the  header  off  the  file 

V 

do 

{ 

return_value  - fscanf  (ptr,  "%s",  header) ; 

) while  ( ! (return_value  «■  EOF  ||  strcmp (header,  FIRST_SIGNAL)  ■■  0) ) ; 
if (return_value  !-  EOF) 

{ 

strcpy (SignalTable [SignalCount ] .name,  header); 
fscanf  (ptr,  ’’Is",  sig_tbl_type) ; 
if  (sig_tbl_type [0]  **  'S') 

strcpy (SignalTable [SignalCount] .type,  "c") ; 
else  strcpy (SignalTable [SignalCount] .type,  sig_tbl_type) ; 
fscanf (ptr,  "l[A\n]",  SignalTable [SignalCount ] .nomenclature) ; 

SignalCount ++; 

/*******************************************★******** 

Loop  through  the  SignalTable  file  reading  the  first 
three  fields. 

*****************************************************/ 

while  ((fscanf  (ptr, "%s",  SignalTable [SignalCount ] .name) )!*  EOF) 

{ 

/************************************************** 

Get  the  signal  table  type.  If  it's  a string  the 
signal  table  will  have  an  'S'  - CODE  expects  a 'char' 
***************************************************/ 
fscanf  (ptr,  "%s",  sig_tbl_type) ; 
if  (sig_tbl_type [0]  -•  'S') 

strcpy (SignalTable [SignalCount] .type,  "char") ; 
else  strcpy (SignalTable [SignalCount ]. type,  sig_tbl_type) ; 

/************************ 

Get  the. nomenclature . 

************************/ 

fscanf (ptr,  "%[A\n]“,  SignalTable [SignalCount] .nomenclature) ; 

♦♦SignalCount ; 

} 

) 

fclose  (ptr) ; 

} 

/********************************************************* 

Let's  check  for  the  comp  var  file  and  read  them  if  they  exist. 
**********************************************************/ 
sprintf  (variable_file,  "%s/%s/ls . v",  CodeGroups,  GroupName,  CompName) ; 
if  ( ! (ptr2  « fopen  (variable_f ile,  "r"))) 

( 

ask ("Variables  have  not  been  found  for  this  comp  — Hit  [Return]  to  continue.",  GREEN,  msg_string) ; 
return (ERROR) ; 

} 

else 

( 


retrieves 


First  we  will  discard  the  comment 
that  is  the  1st  line  of  all  variable  files. 
#*********-**************’******■**************/ 


fscanf(ptr2,  "%*[A\n]"); 

NumCompVars  * 0; 

Now  let's  read  the  variable  info  until 
we  reach  the  end  of  the  file. 
********★************************************/ 
while (f scanf  (ptr2, "%s  %s  %s  %d  %d  %f  %f  %f  %f  %[A\n]", 
CompVars [NumCompVars] .name, 

CompVars [NumCompVars] .type, 

CompVars [NumCompVars] .class, 

SCompVars [NumCompVars] .occurrence, 

&CompVars [NumCompVars] .put_or_get, 

^CompVars [NumCompVars] ,lol_limit, 
tCompVars [NumCompVars] . lo2_limit , 

SCompVars [NumCompVars] .hil_limit, 
fiCompVars [NumCompVars] .hi2_limit , 

CompVars [NumCompVars] .nomenclature)  !»  EOF) 


( 

NumCompVar s++; 

) 

fclose  (ptr2) ; 


/* 

* Read  the  comp  into  the  global  string  Comp 

V 

if  (readCODEFile (CompName,  tempComp)  -*  ERROR) 

^ ask( "There  was  an  error  reading  the  comp.  Hit  [Return]  to  continue.",  GREEN,  msg_string) ; 
return  (ERROR) ; 

) 

/* 

* Reformat  the  comp  with  pretty_comp  and 

* set  up  the  choice  history 

V 

if  (pretty_comp  (tempComp)  — ERROR) 

sprintf  (msg_string,  "Some  tokens  are  undefined  in  this  comp;  Corrections  must  occur  befor  installation 
is  possible. \nHit  [RETURN]  to  continue."); 

ask (msg_ string,  GREEN,  msg__string)  ; 

Complnfo [CompNumber] .disposition  * ERROR; 
save  O ; 
return  (ERROR) ; 

) 

NeedToSave  » FALSE; 
return  (OK) ; 

} /*  End  of  Retrieve  */ 


PRETTY  COMP 


Purpose:  Pretty  comp  takes  a temp_comp  string  from  retrieve  and 
formats  it  nicely.  It  also  sets  up  the  ChoiceCounter 
integer  array  which  is  a token  history. 


NOTE:  This  routine  treats  the  comp  file  like  a script  and 
recreates  the  comp  in  the  screen  the  same  way  as  if 
a user  were  mousing  tokens  off  the  screen.  The 
exceptions  are:  prints,  comments,  variables,  numbers. 


Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 


Date:  5/26/87 


Version : 1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 

******************************************** ************★*******/ 
pretty_comp  (rawComp) 

char  * rawComp;  /*  The  string  to  fix  and  put  into  global  comp  */ 

{ 

int  rawlndex,  /*  The  index  used  with  the  passed  string  */ 

faultNum,  /*  The  number  associated  with  a print  msg  */ 
i,  /*  A simple  index  */ 

local_index,  /*  A local  index  for  a variable  set  by  var_check  */ 
global_index, /*  A global  index  for  a variable  set  by  var_check  */ 
tokenlndex;  /*  The  index  used  with  the  token  string  V 

char  token[1000],  /*  Temporary  holding  string  for  a token  */ 
tempi [150],  /*  Always  can  find  a use  for  a temp  string  */ 

temp2[150],  /*  That's  right  bubba ! */ 

msg__st ring  [300] , 

arg[MAX_VAR_LEN+4 J ; /*  Contains  the  argument  to  the  trig  functions  */ 

/**************************************************** 

Loop  through  the  CODE  language  string,  translating 
tokens  to  C,  until  the  end  of  the  string  is  reached. 

w****************************************************/ 

NumberOflfs  - rawlndex  - 0; 

NumberOfEndif s - 0; 

/************************************** 

Read  tokens  until  you  run  out  ... 
***************************************/ 
while  (rawComp [ rawlndex] ) 

{ 

/a********************************************* 

Start  with  a fresh  token  index 
****★*****★**************##**★*★**★**********★/ 
tokenlndex  - 0; 

/****************************«***************** 

Yank  out  the  control  characters  and  spaces, 
we  don't  care  about  them  spaces  and  such. 

*******************  ****************★**★********/ 
while  (rawComp [ rawlndex]  « ' ' )|  rawComp [rawlndex]  « '\t'  I! 

rawComp [ rawlndex]  ' \n' ) 

( 

token [tokenIndex++]  * rawComp [rawlndex++] ; 

) 

token [tokenlndex]  - 0; 
strcat  (Comp,  token) ; 
tokenlndex  « 0; 

'w 

/*****★★★*+**★*****★**★★********+*★★★★****+**+* 

YANK  A TOKEN  out  of  the  comp's  string.  Tokens 
are  delimited  by  spaces,  tabs,  or  line  feeds. 


/t*********************”************************ 

If  the  token  is  null  we've  reached  the  end  of 
the  line  and  need  to  stop  token  processing 
******************************* ****************/ 
if  (! token [0])  return  (OK); 


/★a******************************************** 

COMMENTS 

***********************************************/ 
if  (strncmp (token,  2)  --  0) 

{ 

/★★♦★★A************************************************** 

If  this  comment  is  not  complete  we  need  to  get  the  rest. 
*********************************************************/ 
if  (token [strlen (token) -1]  !*  '/') 

{ 

token [tokenlndex]  - rawComp [rawlndex] ; 

while  {! (rawComp [rawlndex-l]  — ' *'  &£  rawComp [rawlndex]  — '/')) 
token [tokenIndex++]  - rawComp [rawlndex++] ; 
token [ tokenIndex++]  - rawComp [ rawlndex**] ; 
token [tokenlndex]  - 0; 

> 

/******************************************************** 

Now  add  the  comment  token  to  the  end  of  the  CODE  string. 
******★*************************************************♦/ 
strcat  (Comp,  token) ; 
token [0]  * 0; 

PrevChoice [ChoiceCounter++]  * COMMENT; 

) 

/******************************* 

PRINT 

********************************/ 

else  if  (strncmp (token,  "print",  5)  — 0) 

{ 

strcat  (Comp,  token) ; 

/******************************************** 

Get  all  the  chars  delimited  by  double  quotes 
*********************************************/ 
tokenlndex  • 0;  /*  Start  again  for  the  message  */ 
token [tokenlndex]  - 0;  /*  null  that  string  */ 

. for  {i*0; i<2; i++) 

{ 

do  /*  Grab  chars  until  the  double  quote  */ 

( 

token [tokenIndex++]  - rawComp [rawlndex++] ; 

) while  (rawComp [rawlndex-l] !-'"') ; 

> 

token [tokenlndex]  * 0; 

/******************★****************** 

Let's  add  it  to  the  Comp  string 
************* *************** ****★***★★/ 
strcat  (Comp,  token) ; 
token [0]  * 0; 

PrevChoice [ChoiceCounter++]  ■ PRINT; 

} 

/******************************* 

STRING 

********************************/ 
else  if  (token [0]  — '"') 

{ 

/******************************************** 

Get  rest  of  the  string  if  need  be 
*********************************************/ 
if  (token [strlen (token) -1]  !«  ' ) 

{ 

do  /*  Grab  chars  until  the  double  quote  */ 

{ 

token [tokenIndex++]  « rawComp [rawlndex++] ; 

} while  (rawComp [ rawlndex- 1 ]!-'"')  ; 


) 


||3  -retrieves 

token [token Index]  - 0; 

Let's  add  it  to  the  comp  string 


strcat  (Comp,  token) ; 
token [0]  - 0; 

PrevChoice [ChoiceCounter++3  * STRING; 

) 

/************************************* 

IF 

**************************************/ 
else  if  (strcmp (token, "if")  *■  0) 

( 

strcat  (Comp,  token) ; 

WhereAmI  * PREMISE; 

Equation  » LHS; 

NumberOf If s++; 

PrevChoice [ChoiceCounter++]  - IF; 

} 

/************************************* 

ENDIF 

**************************************/ 
else  if  (strcmp (token, "endif ")  — 0) 

( 

strcat  (Comp,  token) ; 

NumberOfEndif s++; 

PrevChoice [ChoiceCounter++]  - END_IF ; 


} 

/************************************* 

THEN 

**************************************/ 
else  if  (strcmp (token, "then")  — 0) 

{ 

strcat  (Comp,  token) ; 

NestedElseCheck [NumberOf If s-NumberOf Endif s]  * THEN; 
PrevChoice [ChoiceCounter+t]  = THEN; 

WhereAmI  * CONSEQUENCE; 

Equation  - LHS; 

) 

/************************************* 

ELSE 

**************************************/ 
else  if  (strcmp (token, "else")  — 0) 

{ 

strcat  (Comp,  token) ; 

NestedElseCheck [NumberOf If s-NumberOfEndifs]  * ELSE; 
PrevChoice [ChoiceCounter++]  - ELSE; 

Equation  « LHS; 

) 

/************************************* 

OR 

************** ************** **********/ 
else  if  (strcmp (token, "or")  — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - OR; 

Equation  - LHS; 

) 

/************************************* 

BITXOR 

**************************************/ 

else  if  (strcmp (token, "bitXor")  --01I  strcmp (token, "xor") **  0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  * BITXOR; 

) 

/************************************* 

BITOR 

************************************★★/ 
else  if  (strcmp (token, "bitOr")  -«  0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - BITOR; 

} 

/************************************* 

BITAND 

**************************************/ 
else  if  (strcmp (token, "bitAnd")  --  0) 


{ 


strcat  (Comp,  token) ; 
PrevChoice [ChoiceCounter++] 


jretrieve.c 

BITAND; 


) 

/************************************* 

SHIFTL 

*************  *************************/ 
else  if  (strcmp (token, "shiftL")  --  0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [CboiceCounter++]  - SHIFTL; 

) 

/************************************* 

SHIFTR 

**************************************/ 
else  if  (strcmp (token, "shiftR")  — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - SHIFTR; 

} 

/************************************* 

AND 

**************************************/ 
else  if  (strcmp (token, "and")  — 0) 

{ 

if  (WhereAmI  « PREMISE) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - AND; 
Equation  - LHS; 

} 


/★************************************ 

NOT 

**************************************/ 
else  if  (strcmp (token, "not")  — 0) 

{ 

PrevChoice [ChoiceCounter++]  - NOT; 
strcat  (Comp,  token) ; 

} 

/************************************* 

SQRT 

**************************************/ 
else  if  (strcmp (token, "sqrt")  — 0) 

{ 

, strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - SQRT; 

} 

/************************************* 

POWER 

**************************************/ 
else  if  (strcmp (token, "power")  — 0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  • POWER; 

) 

/************************************* 

EXP 

**************************************/ 
else  if  (strcmp (token, "exp")  — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  * EXP; 

} 

/************************************* 

LOG 

*************************************★/ 
else  if  (strcmp (token, "log")  — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  « LOG; 

) 

/************************************* 

PI 

**************************************/ 

else  if  ( (strcmp (token, "p")  — 0)  ||  (strcmp (token,  "PI")  — 0) ) 

{ 


strcat  (Comp,  token); 


PrevChoice [ChoiceCounter++]  - PI; 

) 

/*★*★********************************* 

COS 

♦A************************************/ 

else  if  (strcmp (token, "cos")  *-  0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - COS; 

} 

/************************************* 

ACOS 

***************** ****★****************/ 
else  if  {strcmp (token, "acos")  -*  0) 

( 

strcat  (Comp,  token); 

PrevChoice [ChoiceCounter++]  » ACOS; 

) 

/************************************* 

SIN 

**************************************/ 
else  if  (strcmp (token, "sin")  «*  0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - SIN; 

} 

/************************************* 

ASIN 

****★*********************************/ 
else  if  (strcmp (token, "asin")  »-  0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - ASIN; 

) 

/************************************* 

TAN 

**************************************/ 
else  if  (strcmp (token, "tan")  — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - TAN; 

} 

/************************************* 

ATAN 

************************************★*/ 
else  if  (strcmp (token, "atan")  --  0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  ■ ATAN; 

) 

/************************************* 

LT 

***************************★**********/ 
else  if  (strcmp (token, "<")  ■-  0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - LT; 
Equation  * RHS; 

} 

/************************************* 

GT 

**************************************/ 
else  if  (strcmp (token, ">")  --  0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - GT; 
Equation  - RHS; 

) 

/************************************* 

ADD 

************************************★*/ 
else  if  (strcmp (token, "+")  ~ 0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++J  * ADD; 

} 

/************************************* 

SUBTRACT 


strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  * SUBTRACT; 


) 

/★★★a***************************"****** 

MULTIPLY 

**************************************/ 
else  if  (strcmp (token# "*")  *“  0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  * MULTIPLY; 

) 

/★ft********************************** 

DIVIDE 

★ I*************************************/ 

else  if  (strcmp (token,  "/")  --  0) 


strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  * DIVIDE; 


) 

/*■*★*★********★******■******■*********** 

LE 

**************************************/ 
else  if  (strcmp (token,  "<-")  — 0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - LE; 

Equation  * RHS; 

) 

/**#****«***************************** 

GE 

*,t,*.*o*********o***to**t*****..«*/ 

else  if  (strcmp (token, ">-")  — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  • GE; 

Equation  * RHS? 

) 

j #***************************  ********* 

NE 

**********************★***************/ 

else  if  (strcmp (token, "8")  — 0 II  strcmp (token, "<>" ) — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - NE; 

Equation  * RHS; 

} 

/******************★**★**★************ 

EQ  (in  consequence) 

w*************************************/ 

else  if  (strcmp  (token,  "-")  — 0 tl  strcmp  (token, "«" ) — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++3  " EQ; 

Equation  - RHS; 

) 

/**********★***** ********************* 

L_PAREN 

**************************************/ 
else  if  (strcmp (token, ■ (")  — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - L_PAREN; 
if (FuncParenCount  > 0) 

FuncParenCount ++; 

ParenCount++; 


) 

! ********************  ******************* 
R_PAREN 

***************************★**********/ 
else  if  (strcmp (token, ") ")  ■»  0) 

{ 

strcat  (Comp,  token); 

PrevChoice [ChoiceCounter++]  - R_PAREN; 
if (FuncParenCount  > 0) 

FuncParenCount — ; 


: : retrieves  " = = . ?'l " 

ParenCount — ; 

) 

/*★**★****************★*************** 

COMMA 

★★★★a*********************************/ 
else  if  (strcmp (token, ", ")  — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - COMMA; 

) 

/★************************************ 

SET 

**★***********************************/ 
else  if  ( strcmp (token, "set ")  — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - SET; 

Equation  * LHS; 

} 

/***************************** 

NUMBERS  and  VARIABLES 
*+******★*********************/ 
else 

{ 

/★♦★★a*********************************************** 

Determine  whether  it  was  maid,  signal,  local  and  set 
the  ChoiceCounter  token  history.  If  it's  not  defined 
locally  we  will  assume  it's  a number. 
+****************************************************/ 
var_check  (token,  £ local_index,  £global_index,  "null"); 
if  (local_index  >-  0) 

{ 

strcat  (Comp,  token) ; 

if  (strcmp  (CompVars [local_index] .class,  "maid")  --  0) 

PrevChoice [ChoiceCounter++]  - MSID; 
else  if  (strcmp  (CompVars [ local_index] . class,  "signal")  — 0) 
PrevChoice [ChoiceCounter++]  - SIGNAL; 
else  if  (strcmp  (CompVars [ local_index] . class,  "local")  — 0) 
PrevChoice [ChoiceCounter++]  - LOCAL; 

/**★★*  + ********★**•**★*★*★★★*■************************** 

Set  the  type  for  this  comparison  if  on  the  LHS 
******************************************************/ 
if  (Equation  » LHS) 

strcpy (CompareType [NumberOfCompares++] , CompVars [local^index] .type) 

) 

else 

( 

if  (funcCheck  (token)  !-  ERROR) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  « FUNCTION; 

) 

else  if  <str_isalnum  (token)  !•  ERROR) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - NUMBER; 

} 

else 

{ 

/****#**★****★*******★***************** 

Flag  the  unknown  token  to  the  user,  if 
it  has  not  been  flagged  before. 

★a*************************************/ 

if  (strncmp  (token,  3)  !-  0) 

{ 

strcat  (Comp,  "..."); 
strcat  (Comp,  token) ; 
strcat  (Comp, 

> 

else  strcat  (Comp,  token); 

Complnfo [CompNumber] .disposition  * ERROR; 

) 

) 

} /*  end  of  numbers  or  variables  */ 

) /*  end  of  while  loop  */ 

return  (OK) ; /*  We  done  good  buck-a-roo  */ 

) /*  end  of  read_tokens  ()  */ 


Purpose:  Save  is  for  saving  the  Comp  and  its  necessary  files 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  5/15/07 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 

*********************************** ******** *★*****★★****★★★**/ 

♦include  "code.h" 

save  () 

{ 

int  i,  j;  /*  Counters  */ 

char  explain [200] , /*  Text  message  repository  */ 

highLevelFile [PATH_LEN] , /*  Path  for  CODE  lang.  file  */ 
compVarFile [PATH_LEN] , /*  Path  for  comp  variable  file  */ 
groupDatFile [PATH_LEN] ; /*  Path  for  the  [GroupNamej.dat  file  */ 

FILE  *f ilePtr,  /*  file  pointers  */ 

•openFile  {);  /*  A handy  file  opening  routine  */ 


/* 

* Since  we' re  saving,  that  means  the  group  has  been  modified 

* So  we  better  change  the  groups  disposition  to  COPMLETE  and 

* remove  the  old  executable  if  it  had  previously  been  INSTALLED. 

V 

if (Grouplnfo [GroupNumber] .disposition  » INSTALLED) 

( 

Grouplnfo [GroupNumber] .disposition  * COMPLETE; 

sprintf (explain,  "rm  %s/%s  2>>  /tmp/code .err",  AMGroups,  GroupName) ; 
system (explain) ; 

) 

/* 

* Let's  rebuild  the  paths  in  case  the  comp  name  has  changed  since 

* our  last  save. 

*/ 

sprintf  (highLevelFile,  "%s/%s/ls .h",  CodeGroups,  GroupName,  CompName) ; 
sprintf  (compVarFile,  "%s/ls/%s . v",  CodeGroups,  GroupName,  CompName); 
sprintf  (groupDatFile,  "%s/%s .dat",  AMSupport,  GroupName); 

/* 

* Open  CODE  language  file  and  write  comp. 

V 

if  (! (filePtr  - openFile  (highLevelFile,  "w",  ’•save") ) ) 
return  (ERROR) ; 

/*******★********★****★**★************★***** 

Put  the  CODE  language  string  into  it's  file 
********************************************/ 
fprintf  (filePtr,  *%s".  Comp); 
fclose  (filePtr); 

/******************************************* 

Open  comp  variable  file  and  write  variables 
a*******************************************/ 

if  (! (filePtr  * openFile  (compVarFile, "w", "save* )) ) 
return  (ERROR) ; 

y*************************************************** 

Write  all  of  the  variables  for  the  comp  with  header 
****************************************************/ 


' . : : ; : : : •: v|;  =:;  £ ■ save.C j £| if;  |||||i  : f f ,:" ;i tf  • f f -;i : ; Wff ; >; J ill 

f p r i n t f ( f i 1 eP t r , " # v a r i a b 1 e _n a me  type  class  occurrences  put_or_get  lol_iimit  io2_limit  hil_limit 
omenclature\n") ; 

for  (1=0; KNumCompVars; i++) 

{ 


fprintf (filePtr, "%s  %s  %s  %d  %d  %f  %f  %f  %f  %s\n", 
CompVars [i] .name, 

CompVars [1] .type, 

CompVars [1} .class, 

CompVars [i] .occurrence, 

CompVars [i] .put_or_get, 

CompVars [i] .lol_limit, 

CompVars [ i ] . lo2_limit , 

CompVars [i] ,hil_limit, 

CompVars [i] .hi2_limit, 

CompVars [i] .nomenclature) ; 


} 

fclose  (filePtr); 

/*************★********  ***★★*★**★**★★★***** 

Open  the  [GroupName] .dat  file  for  writing 
************************★*******★**********/ 
if  (! (filePtr  = openFile  (groupDatFile,  nw", " save" ) ) ) 
return  (ERROR) ; 

/a****************************************************** 

Write  all  of  the  group  info  for  the  group  with  header. 
***********★*********★*★★**★**•*******************★*****★/ 
fprintf  (filePtr,  "#name_name  noise_filter  rate  on_off  disposition^"); 
for  (i=0;i  < NumOfComps; i++) 

{ 

fprintf  (filePtr, "%s  %d  %d  %d  %d  %s\n",  Complnfo [ i] .name, 
CompInfo[i] . noise_f liter, 

Complnfo [i] .rate, 

Complnfo [i] .on_off, 

Complnfo [i] .disposition, 

Complnfo [ i] .purpose) ; 

} 

fclose  (filePtr) ; 

/* 

* Put  the  group  names  into  the  Grouplnfo  file 
*/ 

if  (writeGroupNames  ()  ==  ERROR) 
return  (ERROR) ; 


/* 

* Tell  the  user  we  have  saved  their  comp. 

*/ 

sprintf  (explain, "%s  has  been  saved",  CompName) ; 
inform (explain, PURPLE, 1) ; 

NeedToSave  = FALSE; 
return  (OK) ; 


} /*  end  of  save  */ 
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Function:  strins 

Entry  specification: 
char  *strins (into,  from) 
register  char  *into,  *from; 


Description: 

This  routine  inserts  a string  into  another  string,  it  is  similar  to  the 
strcat  found  in  the  C library  (except  strcat  inserts  after) . 


Inputs : 

into  Pointer->  target  string 

from  Pointer->  string  to  insert 


Returns:  Nothing 


External  references:  None 

Resources  used:  None 

Limitations:  None 

Assumptions:  None 


Written  by:  Tom  Silva,  Bruce  G.  Jackson  & Associates 

Traceability: 

Version  Date  Description 

1.0  09/01/87  initial  version 


Notes:  None 


*/ 


*/ 

char  *strins (into,  from) 
register  char  *into,  *from; 

{ 

register  char  *to; 

register  int  to_size,  from_size; 


/* 

* Find  the  size  of  both  strings.  Include  the  zero  byte  for  the  size  of 

* the  ' into'  string  (the  zero  byte  must  be  moved  with  the  string) . 

* Leave  the  pointers  pointing  at  the  zero  bytes  of  the  strings. 

*/ 

for  (from_size  = 0;  *from;  from++,  from_size++) ; 


for  (to  » into,  to_size  * 1;  *to;  to++,  to_size++)  ; 

/* 

* Slide  the  'into'  string  forward  by  copying  it  from  it's  tail  to  it's 

* head.  It  needs  to  be  moved  forward  by  the  number  of  bytes  in  the  'from' 

* string.  Then  copy  the  'from'  string  into  the  open  slot. 

*/ 

for  (into  - to,  to  +•  from_size;  to_size  > 0;  to — , into — , to_size — ) 

*to  - *into; 

for  (from — ; from_size  > 0;  to — , from — , from_size — ) 

*to  * *from; 


\ / 


} 


Purpose:  Wrt_to_doc  writes  to  the  documentation  window.  It 

also  creates  the  documentation  window  and  deletes  it 
after  it  has  been  written  to.  Wrt_to_doc  uses  "More" 
to  display  the  documentation. 

Designer:  Robert  Z.  McFarland/SDC 

Programmer:  Robert  Z.  McFarland/SDC 

Date:  12/11/86 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 

**************************************************************** 

Include  files 

*******************★******■**************************************/ 

# include  "color .h" 

♦include  "code.h" 

♦include  <termio.h>  /*  used  for  setting  up  the  keyboard  */ 

struct  termio  orig_tty;  /*  used  for  setting  up  the  keyboard  */ 

struct  termio  raw_tty;  /*  used  for  setting  up  the  keyboard  */ 

token_help  (token,  theMODE) 
int  token,  theMODE; 

( 

int  defaultCase  - FALSE, 

i;  /*  What  would  we  do  without  an  i */ 

char  cmd[250], 

liststring [5000] ; /*  For  in-routine  formatted  display  of  character  data  */ 

inform (MORE, PURPLE, 0) ; /*  mouse  documentation  line  */ 
clearWAO;  /*  clears  and  selects  WA  window  */ 

/* 

* Flush  the  input  buffer  that  may  have 

* been  filled  with  garbage  while  input 

* was  not  expected,  and  go  into  orig 

* tty  mode . 

V 

ioctl  (fileno  (stdout),  TCFLSH,  0); 

ioctl  (fileno  (stdout),  TCSETAW,  £orig_tty)  ; 

if  (theMODE  — HELP) 

{ 

switch  (token) 

( 


case 

999: 

strcpy 

break; 

(cmd, "more  -n30 

case 

IF: 

strcpy 

break; 

(cmd, "more  -n30 

+/\042*IF\042  ") 

case 

THEN: 

strcpy 

break; 

(cmd, "more  -n30 

+/\042*THEN\042 

case 

AND: 

strcpy 

break; 

(cmd, "more  -n30 

+/\042*AND\042  " 

case 

OR: 

strcpy 

break; 

(cmd, "more  -n30 

■f /\042 *OR\042  ") 

case 

NOT: 

strcpy 

break; 

(cmd, "more  -n30 

+/\042*NOT\042  " 

case 

PRINT: 

strcpy 

break; 

(cmd, "more  -n30 

+/\042*PRINT\042 

case  SET: 


strcpy  (cmd, "more  -n30  +/\042*SET\042  ")  ; 


break; 


token Jielp.c 


case  GTs  strcpy  (cmd, "more  -n30  +/\042' >' \ 0 42  ") ; 

break; 

case  GE:  strcpy  (cmd, "more  -n30  +/\042' >«' \ 0 4 2 " ) ; 

break; 

case  LTj  strcpy  (cmd, "more  -n30  +/\042 ' <' \042  ")  ; 

break; 

case  LE:  strcpy  (cmd, "more  -n30  +/\042 ' <=' \042  ") ; 

break; 

case  EQ:  strcpy  {cmd, "more  -n30  +/\042 ' = ' \042  "); 

break; 

case  MSID:  strcpy  (cmd,  "more  -n3Q  +/\042 *MSID\042  ") ; 

break; 

case  SIGNAL:  strcpy  (cmd, "more  -n30  +/\042*SIGNAL\042  ") ; 

break; 

case  LOCAL:  strcpy  (cmd, "more  -n30  +/\042*LOCAL\042  ") ; 

break; 

case  NUMBER:  strcpy  (cmd, "more  -n30  +/\042*NUMBER\042  ") ; 

break; 

case  INTEGER:  strcpy  (cmd, "more  -n30  +/\042*INTEGER\042  ") ; 

break; 

case  FLOAT:  strcpy  (cmd, "more  -n30  +/\042*FLOAT\O42  ") ; 

break; 

case  DOUBLE:  strcpy  (cmd, "more  -n30  + /\042*DOUBLE\042  ") ; 

break; 

case  NEW:  strcpy  (cmd, "more  -n30  +/\042*NEW\042  "); 

break; 

case  SAVE:  strcpy  (cmd, "more  -n30  +/\042*SAVE\042  ") ; 

break; 

case  RETRIEVE:  strcpy  (cmd, "more  -n30  +/\042*RETRIEVE\042  ") 

break; 

case  QUIT:  strcpy  (cmd, "more  -n30  +/\042*QUIT\042  ") ; 

break; 

case  DELETE:  strcpy  (cmd, "more  -n30  +/\042*DELETE\042  ") ; 

break; 

case  ELSE:  strcpy  (cmd,  "more  -n30  +/\042*ELSE\042  ") ; 

break; 

case  END_IF:  strcpy  (cmd, "more  -n3Q  +/\042*ENDIF\042  "); 

break; 

case  NE:  strcpy  (cmd, "more  -n30  +/\042 * <>' \042  ") ; 

break; 

case  L_PAREN:  strcpy  (cmd,  "more  -n30  +/N042 * ( ) 9 \042  ") ; 

break; 

case  R_PAREN : strcpy  (cmd, "more  -n30  +/\042'  ( ) ' \042  "); 

break; 

case  ADD:  strcpy  (cmd, "more  -n30  +/N042' +# \042  "); 

break; 

case  SUBTRACT:  strcpy  (cmd, "more  -n30  +/\042# \042  ") ; 

break; 


case  MULTIPLY:  strcpy  (cmd, "more  -n30  +/\042mult iply\042  ") ; 

break; 


case  DIVIDE: 


strcpy  (cmd, "more  -n30  +/\042' /' \042  ")  ; 


BtlliSil®  ;'3IP!  token Jielp.c; . . ; :i 

break; 


case  EDIT:  strcpy  (cmd, "more  -n30  +/\042*EDIT\042  n); 

break; 


case 

COMMENT: 

break; 

strcpy 

(cmd, "more 

-n30 

+/\042*COMMENT\042  "); 

case 

HARDCOPY: 

break; 

strcpy 

(cmd, "more 

-n30 

+/\042*HARDCOPY\042  ") ; 

case 

INSTALL: 

break; 

strcpy 

(cmd, "more 

-n30 

+/\Q42*INSTALL\042  "); 

default:  defaultCase  - TRUE; 

inform("You  have  chosen  an  undocumented  token,  please  notify  the  developers PURPLE, 2) ; 


) 


/* 

* Now  show  'em  the  words  if  we  have  words  that  is 

V 

if  (! (defaultCase) ) 

{ 

if (access (CodeDocs, F_OK) !=ERROR) 

{ 

strcat  (cmd,  CodeDocs) ; 

strcat  (cmd,"  2>>/tmp/code . err" ) ; 

system  (cmd) ; 

} 

else  inform("Code  documentation  does  not  exist  on  this  machine" , PURPLE, 2) ; 

} 

} 

else  if  (theMODE  — LIST) 

( 

switch  (token) 

{ 

case  MSID:  sprintf  (cmd, "more  -n30  %s  2>>/tmp/code .err",  MSIDTbl) ; 

system (cmd) ; 
break; 

case  SIGNAL:  sprintf  (cmd, "more  -n3G  %s  2>>/tmp/code -err",  SignalTbl) ; 

system  (cmd) ; 
break; 


case  FUNCTION:  strcpy  (liststring,  "Listing  of  User  Functions\n") ; 

strcat  (liststring,  " \n\n")  ; 

for  (i=0; i<NumberOfUserFuncs; i++) 

{ 

strcat  (liststring,  UserFuncs  [i] ) ; 
strcat  (liststring,  "\n"); 

) 

displayWA(listString) ; 
break; 


) 


default : 


} 


defaultCase  - TRUE; 

displayWA("A  listing  is  not  available  for  this  choice."); 


/* 

* Go  back  to  raw  tty  modea  and  clear  the  work  area. 
*/ 

ioctl  (fileno  (stdout) , TCSETAW,  firaw_tty) ; 
ask  ("Hit  [RETURN]  to  continue",  GREEN,  cmd) ; 
clearWA  ()  ; 


} 


translate 
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External  Interfaces 


/a************************************************************ 

Include  files 

★a***********************************************************/ 

♦include  "code.h" 

♦include  <ctype.h> 

/★it************************************************************ 

Translate 

★a*************************************************************/ 

- .translate  (compName,  CompVars,  numCompVars) 

\ y char  compNameH;  /*  The  name  of  the  comp  to  translate  */ 

struct  var_struct  CompVars [];  /*  Structure  containing  the  comp  variable  defs  */ 

int  numCompVars;  /*  The  number  of  comp  variable  in  the  structure  */ 

{ 

FILE  *ptr,  /*  Just  a plain  old  file  pointer  */ 

*openFile{);  /*  A handy  file  opening  routine  */ 


int  complndex, 
tokenlndex, 
clanglndex, 
spacelndex, 
equation, 
msidlndex, 
numberOf Ifs, 
numberOfEndif s,  /* 
numberOfPrint s,  /* 
numberOfSets,  /* 
lastToken, 

i,  j/ 

MSIDexist , 
f ItColor, 
givenHead, 
varlndex, 
rellndex, 
varClass, 
charlndex, 
where Ami, 
numToken, 

sigShort Arrays ize, 
siglntArraySize, 
sigFl oat Array Size, 
sigDoubleArraySize, 
sigUnsignedArraySize, 
s igLongAr  ray S ize, 
sigOff Short Arrays ize, 
sigOf f IntArraySize,  /*  The 
sigOf fFloat ArraySize,  / 

sigOf fDoubleArraySize,  / 

sigOf fUnsignedArraySize,  / 


Index  to  the  CODE  lang.  comp  string  */ 
Index  to  an  individual  token  */ 

Index  to  the  C lang.  comp  */ 

Index  to  spacesEtAl  */ 

Similar  to  global  equation  in  code.h  */ 
MS ID  index  returned  from  get_msid_index {) 
The  number  of  if  we  have  parsed  */ 

The  number  of  endifs  we  have  parsed  */ 
The  number  of  print  we  have  parsed  */ 

The  number  of  sets  we  have  parsed  */ 

/*  Indicates  the  previous  token  type  */ 

/*  Simple  counters  */ 


/* 

/* 

/* 

/* 

/* 

/* 

/* 


TRUE  indicates  msid  exist  in  this  comp  */ 

Used  for  parsing  the  fault  color  number  out  of  the  msg  */ 
TRUE  after  we  have  processed  the  comp  header  */ 

The  index  value  set  in  the  function  getVarlndex  */ 

The  relative  Index  of  an  MSID  used  in  getVarlndex  */ 

The  return  value  from  the  function  getVarlndex  */ 

The  index  of  the  characters  for  a variable  in  a print  str 
The  local  version  of  the  one  defined  in  code.h  */ 

/*  TRUE  if  the  first  token  has  been  found  */ 


/* 

/* 

/* 

/* 

/* 

/* 

/* 


The  size  of  the  array  of  structures  for  noise  filter  output  */ 

The  size  of  the  array  of  structures  for  noise  filter  output  */ 

The  size  of  the  array  of  structures  for  noise  filter  output  */ 

The  size  of  the  array  of  structures  for  noise  filter  output  */ 

The  size  of  the  array  of  structures  for  noise  filter  output  */ 

The  size  of  the  array  of  structures  for  noise  filter  output  */ 

The  size  of  the  array  of  structures  for  noise  filter  output  */ 
size  of  the  array  of  structures  for  noise  filter  output  */ 

The  size  of  the  array  of  structures  for  noise  filter  output  */ 
The  size  of  the  array  of  structures  for  noise  filter  output  */ 
The  size  of  the  array  of  structures  for  noise  filter  output  */ 


translatex 


sigOf fLongArraySize,  /*  The  size  of  the  array  of  structures  for  noise  filter  output  */ 
sigOffStringArraySize,  /*  The  size  of  the  array  of  structures  for  noise  filter  output  */ 
sigStringArraySize;  /*  The  size  of  the  array  of  structures  for  noise  filter  output  */ 


char  clangVersion [MAX_COMP_] 
token [500] , 
compName_c [PATH_LEN] , 
comp [MAX_COMP_LEN ] , 
tmpl [169] , /* 

tmp2 [169] , /* 

msgString [169] , 
varString [MAX_VAR_LEN] 
spacesEtAl [150] , 
lastVarType [TYPE_LEN] , 
strOperator [ 4 ] , 
compHeader [1000] , 
endstring [250] , 
amSprintf ing;  /* 


LEN],  /*  A string  to  hold  the  comp's  C language  version  */ 

/*  A string  to  hold  a token  */ 

/*  Path  for  C language  file  */ 

/*  The  all  important  string  for  holding  the  comp  string  */ 
What  would  life  be  without  a few  transient  strings  */ 

Dito  my  older  brother  */ 

/*  What  would  life  be  without  a few  transient  strings  */ 

/*  The  string  for  pulling  vars  from  prints  */ 

/*  A string  to  hold  the  ' '\t',  and  '\n'  */ 

/*  The  type  of  the  last  found  variable  */ 

/*  The  operator  used  with  a string,  usually  ==  or  !=  */ 

/*  Temporary  storage  for  the  comp's  header  */ 

/*  Used  to  store  variable  names  in  formatted  prints  */ 

Flag  used  to  know  if  inside  a sprintf  statement  */ 


/* 

* Read  the  comp  into  the  string  comp 

V 

if  (readCODEFile  (compName,  comp)  ==*  ERROR) 

{ 

sprintf (msgString, "Install : There  was  a problem  reading  the  CODE  file  for  %s", compName) ; 
ask (msgString, GREEN, msgString) ; 
return (ERROR) ; 

) 

/********+**+**************************************** 

Initialize  some  soon-to-be-used  variables 
******★************■**★**★**★*★**#*★*'*****★★******★***/ 

sigShortArraySize  - siglntArraySize  * sigFloatArraySize  ■ sigLongArraySize  * 0; 
sigDoubleArraySize  • sigUnsignedArraySize  - sigStringArraySize  « 0; 
sigOf fShortArraySize  « sigOf f IntArraySize  ■ sigOf fFloatArraySize  * 0; 
sigOf fDoubleArraySize  * sigOf fUnsignedArraySize  - sigOffStringArraySize  ■ 0; 
numberOflfs  - complndex  - clanglndex  - givenHead  * sigOf fLongArraySize  * 0; 
numToken  * numberOfEndif s ■ numberOfSets  * numberOf Prints  ■ spacelndex  * 0; 
clangVersion [0]  * compHeader [0]  - 0; 
amSprintf ing  - FALSE; 

/***+**+********+************************************ 

Loop  through  the  CODE  language  string,  translating 
tokens  to  C,  until  the  end  of  the  string  is  reached. 

************************************ *****************/ 
do 
( 

/********************************************** 

Yank  out  the  control  characters  and  spaces, 
we  don't  care  about  them  spaces  and  such. 

********************  ********************★******/ 
yankBlank  (comp,  Scomplndex) ; 

/********************************************** 

YANK  A TOKEN  out  of  the  Comp's  string.  Tokens 
are  delimited  by  spaces,  tabs,  or  line  feeds. 

****************  ********* **********************/ 
yankToken  (comp,  icomplndex,  token,  fctokenlndex) ; 

/********************************  ************** 

Now  the  real  fun  starts.  Match  the  token  we 
just  yanked  with  the  allowable  set  of  CODE 
tokens  and  translate  appropriatly . 

********************************************** 

COMMENTS 

***********************************************/ 
if  ( st rncmp (token,  2)  ==  0) 

{ 

/******************************************************** 

If  this  comment  is  not  complete  we  need  to  get  the  rest. 
*********************************************************/ 
if  (token  [strlen  (token) -1]  !=»  '/') 

{ 

token [tokenlndex]  » comp [complndex] ; 

while  ( ! (comp [complndex-l]  *=  ' *'  &&  comp [complndex]  ==  '/')) 
token [tokenIndex++]  * comp [ compIndex++] ; 
token [tokenIndex++]  * comp [compIndex++] ; 
token [tokenlndex]  = 0; 


translates 

) 

if  (! (givenHead)) 

{ 

sprintf  (compHeader,  "%s\n%s  ( ) \n { ",  token,  compName) ; 
givenHead  = TRUE; 

/*********************************************************** 
Else  add  the  comment  token  to  the  end  of  the  C lang.  string. 
************************************************************/ 
else  strcat  (clangVersion,  token) ; 

lastToken  - COMMENT; 

} 

/****************************♦******** 

IF 

**********  ******  **********************/ 
else  if  (strcmp (token, "if")  *«  0) 

( 

numberOf If s++; 

/******************************************** 

Cat  a to  close  off  the  last  statement 

***************************************** ****/ 
if  (lastToken  ««  MSID  ||  lastToken  « R_P  AREN) 
strcat  (clangVersion,  ";"); 
strcat  (clangVersion,  "\n") ; 

for  (i*0; i< (numberOf Ifs  - numberOfEndif s) ; i++) 
strcat  (clangVersion,  "\t"); 
/*★**************************************** 

Put  in  a second  left  paren  to  suround  the 
comparitors  and  ensure  proper  precedence 
*******************************************/ 
strcat  (clangVersion,  "if  ( (")  ; 
lastToken  * IF; 
whereAml  - PREMISE; 
equation  * LHS; 

) /*  end  of  IF  */ 

/★★★★A******************************** 

END  IF 

**************************************/ 
else  if  (strcmp (token, "endif" ) ««  0) 

{ 

/******************************************** 

Cat  a ' ; ' to  close  off  the  last  statement 
*********************************************/ 
strcat  (clangVersion,  ";\n"); 
for  (i-0; i< (numberOf If s-numberOfEndif s)  ;i++) 
strcat  (clangVersion,  "\t") ; 
strcat  (clangVersion,  ")”); 
lastToken  - END_IF; 
numberOfEndif s++; 

> 

/************************************★ 

THEN 

**************************************/ 
else  if  (strcmp (token, "then")  — 0) 

{ 

/********************************** 

Figure  out  and  set  the  indentation 
***********************************/ 
strcat  (clangVersion,  " ) )\n"); 
for  (i*=0;  i<  (numberOf  If s-numberOfEndifs)  ; i++) 
strcat  (clangVersion,  *\t") ; 
strcat  (clangVersion,  "{"); 
equation  » LHS; 
whereAml  = CONSEQUENCE; 
lastToken  = THEN; 

) 

/************************************* 

ELSE 

**************************************/ 
else  if  (strcmp (token, "else")  **  0) 

{ 

/********************************** 

Figure  out  and  set  the  indentation 
***********************************/ 
strcat  (clangVersion,  ";\n"); 
for  ( i-0 ; i< (numberOf If s-numberOfEndif s) ; i++) 
strcat  (clangVersion,  "\t") ; 


for  ( i-0; i< (numberOf If s-numberOfEndifs) ; i++) 


strcat  (clangVersion,  "\t") ; 
strcat  (clangVersion,  "else\n”) ; 
for  (i-0; i< (numberOf Ifs-numberOfEndif s) ; i++) 
strcat  (clangVersion,  "\t"); 


strcat  (clangVersion,  "{"); 


equation  - LHS ; 


lastToken  - ELSE; 


} 

/a************************************ 

OR 

**************************************/ 
else  if  (strcmp (token, "or")  ««  0) 

{ 

strcat  (clangVersion,  " ) M ("); 
equation  - LHS; 
lastToken  - OR; 


} 

/************************************* 

POWER 

*************  *************** **********/ 
else  if  (strcmp (token, "power”)  — 0) 

( 

strcat  (clangVersion,  " pow”) ; 
lastToken  » POWER; 


} 

/************************************* 

EXP 

**************************************/ 
else  if  (strcmp (token, "exp")  --  0) 

{ 

strcat  (clangVersion,  " exp"); 
lastToken  * EXP; 


) 

/************************************* 

BITOR 

**************************************/ 
else  if  (strcmp (token, "bitOr")  — 0) 

( 

strcat  (clangVersion,  " |n); 
lastToken  - BITOR; 

) 

/************************************* 

BITAND 

**************************************/ 
else  if  (strcmp (token, "bitAnd")  — 0) 

{ 

equation  - LHS; 

strcat  (clangVersion,  " 4"); 

lastToken  « BITAND; 

} 

/************************************* 

BITXOR 

**************************************/ 

else  if  (strcmp (token, "xor")  --  0 j | strcmp (token,  "bitXor")  — 0) 

{ 

equation  * LHS; 

strcat  (clangVersion,  " A")  ; 

lastToken  - BITXOR; 

} 

/************************************* 

AND 

**************************************/ 
else  if  (strcmp (token, "and" ) — 0) 

{ 

equation  - LHS; 

/**************************************** 

The  following  is  conditional  to  support 
an  older  syntax  which  had  'and's  in  the 
CONSEQUENCE 

*****************************************/ 
if  (whereAml  PREMISE) 

strcat  (clangVersion,  " ) &&  (")  ; 
lastToken  = AND; 

} 

/************************************* 

NOT 


strcat  (clangVersion, 
lastToken  * NOT; 

) 

/***★**★**************★*************** 


NOT  EQUAL  TO 

★*************************************/ 

else  if  (strcmp  (token,  "<>")  — 0 |(  strcmp  {token,  "8”)  0) 


if  (strcmp  (lastVarType,  "char")  !«  0) 
strcat  (clangVersion,  " !-"); 
else  strcpy  (strOperator,  " !«") ; 
equation  **  RHS; 
lastToken  - NE; 


]************************************* 


ADD 

**************************************/ 
else  if  (strcmp  (token,  " + ")  =-  0) 

{ 

if  (strcmp  (lastVarType,  "char")  --Oil  varClass  --  STRING) 
strcat  (clangVersion,  ","); 
else  strcat  (clangVersion,  " + "); 
lastToken  - ADD; 

) 

/★a*********************************** 

SUBTRACT 

**********★*****★★****★★*★★*★*★★*★★***/ 
else  if  (strcmp (token, "-")  — 0) 

{ 

strcat  (clangVersion,  " -"); 
lastToken  - SUBTRACT; 

) 

/it************************************ 

MULTIPLY 

**  + ****************************  ****■*★★/ 
else  if  (strcmp (token, "*")  — 0) 

( 

strcat  (clangVersion,  " *"); 
lastToken  - MULTIPLY; 

} 

/************************************* 

DIVIDE 

**★**★**★★*★********★*★★*★★★*★★★★*★*★★/ 
else  if  (strcmp (token, "/")  --  0) 

{ 

strcat  (clangVersion,  " /"); 
lastToken  » DIVIDE; 

) 

/★★★★*★************************★**★*** 


P 

****************★********************★/ 

else  if  ( (strcmp (token, "p")  — 0)  | t (strcmp (token, "PI")  =«  0) ) 

{ 

strcat  (clangVersion,  " M_PI"); 
lastToken  = PI; 

) 

/************************************* 

EQEQ 

**************************★*******★**★/ 
else  if  (strcmp  (token, " — ")  »»  0) 

{ 

if  (strcmp  (lastVarType,  "char")  !*  0) 
strcat  (clangVersion,  " --"); 
else  strcpy  (strOperator,  " --"); 
equation  - RHS; 
lastToken  - EQ; 

} 

/★*********★***★**★**★***************★ 

EQ 

**************************************/ 
else  if  (strcmp (token, "-")  — 0) 

{ 

If  (whereAml  =«  PREMISE) 

strcat  (clangVersion,  " — ") ; 
else  if  (strcmp  (lastVarType,  "char")  !«  0) 


strcat  (clangVersion,  " -")  ; 
else  strcpy  (st rOperator,  " -"); 
equation  * RHS; 
lastToken  * EQ; 


} 


GT 


else  if  {strcmp (token, ">")  » 0) 

{ 

if  (strcmp  ( lastVarType,  "char")  !~  0) 
strcat  (clangVersion,  " >") ; 
else  strcpy  (st rOperator,  " >H); 
equation  - RHS; 
lastToken  » GT; 

) 

/************************************* 

GE 

**************************************/ 
else  if  (strcmp (token, ">«")  -»  0) 

{ 

if  (strcmp  (lastVarType,  "char")  ! = 0) 
strcat  (clangVersion,  " >**")  ; 
else  strcpy  (st rOperator,  " >*"); 
equation  ■ RHS; 
lastToken  * GE; 


1 


LT 


else  if  (strcmp (token, "<" ) =*  0) 

{ 

if  (strcmp  (lastVarType,  "char")  !=  0) 
strcat  (clangVersion,  " <") ; 
else  strcpy  ( st rOperator,  " <") ; 
equation  = RHS; 
lastToken  = LT; 

} 

/************************************* 

LE 

**************************************/ 
else  if  (strcmp (token, "<=" ) — 0) 

{ 

if  (strcmp  (lastVarType,  "char")  !-  0) 
strcat  (clangVersion,  " <="); 
else  strcpy  (strOperator,  " <-"); 
equation  = RHS; 
lastToken  = LE; 

) 

/★★★★★★★A***************************** 


SHIFTL 

**************************************  j 

else  if  (strcmp (token, "shiftL")  0) 

{ 

strcat  (clangVersion,  " <<")  ; 
lastToken  = SHIFTL; 

} 

/************************************* 


SHIFTR 

************************************** j 

else  if  (strcmp (token, "shiftR")  »*  0) 

{ 

strcat  (clangVersion,  " >>"); 
lastToken  - SHIFTR; 

} 

/************************************* 


LEFT  PAREN 

**************************************/ 
else  if  (strcmp (token, "( ")  =»  0) 

{ 

strcat  (clangVersion,  " ("); 
lastToken  = L_PAREN; 

) 

/************************************* 
RIGHT  PAREN 


**************************************/ 
else  if  (strcmp (token, ") ")  »■  0) 

( 


• • translate.c  f ; j ; ; ; : 

strcat  (clangVersion,  " )”); 
la st Token  » R_P AREN ; 

} 

/**★★******★**★★★★**★★**★★*******★*★** 

SET 

**************************************/ 
else  if  (strcmp (token, "set ")  ==  0) 

( 

if ( ! (lastToken  -*  THEN  ||  lastToken  « ELSE  ||  lastToken  ==  END_IF)  fi& 
(numberOfSets  > 0 j|  numberOfPrint s > 0)) 
strcat (clangVersion, 
lastToken  * SET; 
whereAml  - CONSEQUENCE; 
equation  * LHS; 
numberOfSets++; 

} 

/******************************* 

PRINT 

*******************★*****★*★****/ 

else  if  ( strncmp (token,  "print",  5)  --  0) 

( 

/*********************************************** 

Put  a semi-colon  after  the  last  line  if  need  be 
*************★*****★**★*★****★**★**★*****★*★**★★/ 

if  ((!  (lastToken  — THEN  |j  lastToken  --  ELSE  ||  lastToken  *=*  END_IF)  ) && 
(numberOfSets  > 0 | j numberOf Prints  > 0) ) 
strcat (clangVersion, 

/★a********************************** 

Pull  the  fault  class  number 
**********************★*******★******/ 
tmpl [0] -token [5] ; 
tmpl [l]-0; 

fltColor  - atoi(tmpl); 

compIndex++;  /*  Dispose  of  a space  */ 

tokenlndex  - 0;  /*  Start  again  for  the  message  */ 

endstring [0]  - 0; 

varString[0]  - 0; 

/************************************ 

Get  the  first  double  quote  then  loop 
until  we  find  the  second. 

*************************************/ 
token [tokenIndex++]  - comp [compIndex++] ; 
do 
{ 

token [tokenIndex++]  » comp [compIndex++] ; 

/★★★★a******************************  ************************* 

Break  off  here  to  process  variables.  Yes  its  true  that 
variables  should  be  preceded  by  a '%'  to  be  recognized  here. 
*************************************************************/ 
if  (comp [complndex-l]  — ' %' ) 

( 

/*************************************** 

Get  the  whole  variable 
****************************************/ 
charlndex  - 0; 

while  ( (comp [complndex]  >»  'a'  &&  comp [complndex]  <-  'z')  || 

(comp [complndex]  >=  'A'  comp [complndex]  <=  'Z')  || 
(comp [complndex]  >=  ' O'  &&  comp [complndex]  <-  '9')  j( 
comp  [complndex]  *=•  ) 

varString [charlndex++]  - comp [compIndex++] ; 
varString [charlndex]  - 0; 

upper  (varString) ; /*  Convert  to  upper  case  */ 
/*************************************************** 

Use  getVarlndex  to  find  out  the  class  and  index 
★***************************************************/ 
if  ( (varClass  » getVarlndex (varString, CompVars, 

numCompVars, fivarlndex, fcrellndex) ) !-  ERROR) 

{ 

/******************************* 

Determine  the  var.  type 

★ ★★★★★★★A****--*******************/ 

if  (CompVars [varlndex] . type [0]  — 's') 
token [tokenIndex++]  = 'h'; 
else  if  (CompVars [varlndex] . type [0]  --  'c') 
token [tokenIndex++]  - 's'; 
else  if  (CompVars [varlndex] . type [0]  =»  ' f ' ) 
token [tokenIndex++]  » 9 f ' ; 
else  if  (CompVars [varlndex] .type [0]  — ' i' ) 
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token [tokenIndex++]  * 'd'; 
else  if  (CompVars [varlndex] .type [0]  =-  'd') 


token [tokenIndex++] 
token [token!ndex++] 


' 1' ; 
' f9 ; 


) 


else  /*  Don't  know  this  type  */ 

{ 

sprintf  (msgString,  "Translate: 

— Hit  [RETURN] " , varString,  CompVars [varlndex] . type) ; 

ask {msgString, GREEN,  msgString)  ; 
return  (ERROR) ; 

} 

/**************************************** 

MSIDs  require  an  array  call  with  index 
*************★***************************/ 
if  ( varClass  ==  MSID) 

{ 

sprintf (tmpl,  " value [%d]n,  rellndex) ; 
strcat  (endString,  tmpl) ; 

/*******************  ******************* 

Add  a comma  expecting  another  variable 
***************************************/ 
strcat  (endString,  ","); 

} 

/a******************* ******************* 

SIGNALS  t locals  can  just  be  appended 
*********  ************ *******************/ 
else  if  (varClass  — SIGNAL  j | varClass  LOCAL) 


f %s'  has  unknown  type  ' %s' ; aborting  translation. 


{ 


) 

else 

{ 


strcat  (endstring,  varString); 
/************************************** 
Add  a comma  expecting  another  variable 
***************************************/ 
strcat  (endString,  ","); 


",  varString,  compName) ; 


sprintf  (msgString,  "%s  Is  an  unknown  variable  to  comp  %s.\nHit  [RETURN]  to  continue. 

ask (msgString, GREEN, msgString) ; 
strcat  (clangVersion,  varString) ; 


) 


) 


ints) ; 


} /*  end  of  variables  */ 

} while  (comp [complndex-l] ; 
token [tokenlndex]  * 0; 

/**************************************** 

Remove  the  last  comma  from  the  endString 
*****************************************/ 
endString [strlen (endString) -1]  * 0; 

/************************************ 

Let's  do  some  pretty  formatting 
*************************************/ 
strcat  (clangVersion,  w\n") ; 

for  ( i*0; i< (numberOf If s - numberOfEndif s) +1 ; it+) 
strcat  (clangVersion,  "\t"); 

/************************************ 
sprintf  the  faultstring 
*************************************/ 
if  (endString [0]  — 0) 

sprintf (tmpl, "sprintf (faultstring,  %s) ;\n",  token) ; 
else  /*  we  got  %'s  in  the  print  string  to  add  */ 
sprintf (tmpl, "sprintf (faultstring, %s, %s) ;\n",  token,  endstring) ; 
strcat  (clangVersion,  tmpl) ; 

/************************************* 

Let's  do  some  pretty  formatting  again 
**************************************/ 
for  (i=0 ; i< (numberOf If s - numberOfEndifs) +1; i++) 
strcat  (clangVersion,  "\t") ; 

/************************************* 

Now  issue  the  fault  message 
**************************************/ 

sprint f (tmpl,  " f ltmsg_issue_NF  ( faultStr ing,  %d,  %d,  nf [nf_index] , faultStruct ) ",  fltColor,  numberOfPr 


strcat  (clangVersion,  tmpl) ; 
/**************************************************** 
Increment  the  number  of  fault  messages  for  this  comp 
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******* ********* * *****  *****  **************************/ 
numberOfPrints++; 

/************************************** 

Set  the  last  token  to  PRINT 
***************************************/ 
lastToken  * PRINT; 


/************************************************************ 


VARIABLES 

Right  away  we  make  a call  to  getVarlndex  to  determine  wheter 
the  token  is  a variable,  number  of  char  string.  If  it  is 
we  proceed,  otherwise  goodbye. 

*************************************************************/ 

else  if { (varClass=getVarIndex (token, CompVars, numCompVars, ivarlndex, irellndex) ) !=ERROR) 

{ 

tmpl [0]  « 0; tmp2 [0]  » 0;/*  empty  tmpl,tmp2  */ 

/* 

* If  the  previous  token  was  a set,  then  let's  indent 
*/ 

if  (lastToken  --  SET) 

{ 

/* 

* If  the  type  is  char  then  we  will  be 

* sprintf'ing,  otherwise  not. 

*/ 

if (CompVars [varlndex] .type [0] — ' c' [ | varClass==STRING) 
amSprintfing  - TRUE; 
else  amSprintfing  ■ FALSE; 


/****************************************** 
If  we  are  setting  a SIGNAL,  then  increment 
the  size  of  the  array  of  structures  for 
signals  of  this  type. 

******************************************★/ 


if  (varClass  « SIGNAL) 

{ 

if  (CompVars [varlndex] .type [0]  's') 

sigShortArraySize++; 
else  if  (CompVars [varlndex] .type [0} 
sigIntArraySize++; 

else  if  (CompVars [varlndex] .type [0]  » 
sigFloatArraySize++; 
else  if  (CompVars [varlndex] .type [0]  ■■ 
sigDoubleArraySize++; 
else  if  (CompVars [varlndex] . type [ 0 ] »■ 
sigLongArraySize++; 

else  if  (CompVars [varlndex] .type [0]  -- 
sigUnsignedArraySize++; 
else  if  (CompVars [varlndex] .type [0]  -- 
sigStringArraySize++; 

else 

{ 

sprintf  (msgString,  "Translate:  %s 
CompVars [varlndex] .type) ; 

ask (msgString, GREEN, msgString) ; 
return  (ERROR) ; 


/*  short  */ 

'i') 

/* 

int  */ 

'f') 

/* 

float  */ 

9 d' ) 

/* 

double  */ 

'l9) 

/* 

long  */ 

'u') 

/* 

unsigned  */ 

'c') 

/* 

string  */ 

was  of  unknown  type 


) 


) 


strcat  (clangVersion,  "\n") ; 

for  (i*0 ; i< (numberOflfs  - numberOfEndif s) +1 ; i++) 
strcat  (clangVersion,  "\t") ; 

} 

else  strcat  (clangVersion,  " ") ; 


'%s' 


..Aborting  translation" , token 


/* 

* STRINGS  (embedded  variables  handled  with  %) 

*/ 

if (varClass  ==  STRING  6£  token [strlen (token) -1]  !=  '"') 

{ 

do  /*  Grab  chars  until  the  double  quote  */ 

{ 

token [tokenIndex++]  - comp [compIndex++] ; 
/************************************************************ 
Break  off  here  to  process  variables.  Yes  its  true  that 
variables  should  be  preceded  by  a to  be  recognized  here. 

*************************************************************/ 
if  (comp [complndex-l]  -«  '%') 

{ 
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Get  the  whole  variable 


charlndex  * 0; 

while ( (comp [complndex]  >=' a' £ fccomp [complndex] <=' z*  ) 1 | 

(comp [comp Index]  >='  A'  &£comp [complndex] <=' Z' ) II 
(comp [complndex]  >-' 0 * £ £ comp [complndex] <«' 9' ) I | 
comp [complndex]  ==  ) 

varString [charlndex++]  = comp [compIndex++] ; 
varString [charlndex]  * 0; 

upper  (varString);  /*  Convert  to  upper  case  */ 

/★★************************************************* 

Use  getVarlndex  to  find  out  the  class  and  index 

T****************************************************/ 


if  ( (varClass  - getVarlndex (varString, CompVars, 
numCompVars, £varlndex, firellndex) ) !=  ERROR) 

{ 

/★★★if************  *★*★★**★******★ 

Determine  the  var.  type 
a*******************************/ 

if  (CompVars [varlndex] . type [ 0]  's') 

token [tokenIndex++]  = 'd'; 
else  if  (CompVars [varlndex] .type [0]  « 'c') 
token [tokenIndex++]  - 's'; 
else  if  (CompVars [varlndex] .type [0]  =»  ' f ' ) 
token [tokenIndex++]  - ' f ' ; 
else  if  (CompVars [varlndex] . type [0]  — 'i') 
token [tokenIndex++]  - 'd'; 
else  if  (CompVars [varlndex] . type [0]  'd') 


token [tokenIndex++]  - '1'; 
token [tokenIndex++]  - * f ' ; 

) 

else  /*  Don't  know  this  type  */ 

{ 

sprint f (msgString,  "Translate:  '%s'  has  unknown  type  '%s';  aborting  translation 

...  — Hit  [RETURN]",  varString,  CompVars [varlndex] . type) ; 

ask (msgString, GREEN, msgString) ; 
return  (ERROR) ; 

} 

/a*************************************** 

MSIDs  require  an  array  call  with  index 
★a***************************************/ 

if  (varClass  — MSID) 

{ 

/* 

* comma  delimits 

*/ 

sprintf (tmpl,  " value [%d],",  rellndex) ; 
strcat  (endstring,  tmpl) ; 

) 

/***************★*★** ******************* 

SIGNALS  £ locals  can  just  be  appended 

★ft**************************************/ 

else  if  (varClass  **  SIGNAL! [varClass  LOCAL) 

{ 

strcat  (endstring,  varString) ; 

/* 

* Comma  delimits 
*/ 

strcat  (endstring,  ",*); 

) 

else 

( 

sprintf  (msgString,  "%s  is  an  unknown  variable  to  comp  %s.\nHit  [RETURN]  to  conti 

nue.",  varString,  compName) ; 

ask (msgString, GREEN, msgString)  ; 
strcat  (clangVersion,  varString) ; 

} 

) 

} 

} while  (comp [complndex-l] !-'"') ; /*  STRINGS,  char  variables  */ 
token [tokenlndex]  - 0; 

/* 

* Remove  the  last  comma  from  the  endstring 

V 

endstring [strlen (endstring) -1]  = 0; 
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/* 

* sprint f the  faultstring 

V 

if  (endString[0]  --  0) 

sprintf {tmpl, "%s) ;\n",  token) ; 
else  /*  we  got  %'s  in  the  print  string  to  add  */ 
sprintf {tmpl, M%s, %s) ; \nM , token,  endstring); 
strcat  {clangVersion,  tmpl); 

/* 

* Set  the  last  token  to  STRING 

V 

lastToken  * STRING; 

amSprintfing  * FALSE;  /*  re-init  the  bugger  */ 

) /*  STRINGS  */ 

else  /*  STRINGS  with  embed  space  and  all  other  variables  */ 

{ 

/* 

* Set  the  lastVarType  in  order  to  flag  comparitors  (e.g.  EQEQ) 

*/ 

if  (varClass  NUMBER) 

strcpy  (lastVarType,  "int"); 
else  strcpy  (lastVarType,  CompVars [varlndex] . type) ; 

/* 

* If  the  variable  is  not  a char  string  then  cat  it. 

*/ 

if (CompVars [varlndex] .type [0] c' && varClass ! -STRING && ! amSprintfing) 

{ 

if  (varClass  — MSID) 

sprintf  (tmpl,"  value [%d]",  rellndex) ; 
else  sprintf  (tmpl,  "%s",  token); 

} 

else  /*  It  must  be  of  type  char  or  STRING  w/embed  space (s)  */ 

{ 

if  (whereAml  — PREMISE) 

{ 

if  (equation  **  LHS) 

{ 

if  (varClass  mm  MSID) 

sprintf  (tmpl,  "strcmp (value [ %d] , rellndex); 
else  /*  SIGNAL  or  LOCAL  */ 

sprintf  (tmpl,  "strcmp  (%s,n,  token); 

} 

else  /*  RHS  */ 

( 

if  (varClass  — MSID) 

sprintf (tmpl, "value [%d] ) %s  0", rellndex, strOperator) ; 
else  /*  SIGNAL,  LOCAL  */ 
sprintf  (tmpl,  "%s)%s  0",  token,  strOperator); 

) 

) 

else  /*  If  CONSEQUENCE  it  must  be  a strcpy  */ 

( 

if  (equation  — LHS) 
if (varClass  =»  MSID) 

sprintf  (tmpl,  "sprint f (value [ %d] , rellndex); 
else  sprintf  (tmpl,  "sprintf  (%s,",  token); 
else  /*  RHS  */ 

( 

amSprintfing  » FALSE;  /*  re-init  the  bugger  */ 
if (CompVars [varlndex] .type [0] c' | | varClass»-STRING) 
strcpy  (tmpl,  "\(M2%s\042n ) ; 
else  if (CompVars [varlndex] . type [0]  * ir  J| 

CompVars [varlndex] .type [0]  's'  M 

varClass  — NUMBER) 
strcpy (tmpl, "\042%d\042 ") ; 
else  if  (CompVars  [varlndex]  . type  [0]  *■-  'd') 
strcpy (tmpl, "\042%lf\042") ; 

else  sprintf (tmpl, "\042%%%c\042" , CompVars [varlndex] .type [0] ) 
if  (varClass  — MSID) 

sprintf (tmp2, ",  value [%d] ) ", rellndex) ; 
else 

sprintf  (tmp2,  ",%s)w,  token); 

) 

strcat (tmpl, tmp2) ; 

} 


translates 


> 

strcat  (clangVersion,  tmpl) ; 

tmpl [0]  - 0; tmp2 [0]  - 0;/*  empty  tmpl,tmp2  */ 

lastToken  - MSID;  /*  MSID  ~ SIGNAL  - LOCAL  - NUMBER  in  this  case  */ 

) 

} /*  end  of  variable  */ 

/*********★**★*★★**★**★**★************************************* 

UNRECOGNIZED  TOKENS 

If  we  have  not  recognized  the  token  at  this  point  we  just  drop 
it  in  as  is  without  any  processing. 
***********★*******★*******************************************/ 

else 

( 

strcat  (clangVersion,  " /*  Unkown  token  */  ") ; 
strcat  (clangVersion,  token); 

) 

numToken++; 

) wh i le  {comp [complndex]  !-  0);  /*  Until  we  reach  the  end  of  the  string  */ 


if  (lastToken  !-  END_IF) 
strcat  (clangVersion, 

/★a***************************************************** 

Now  that  we  have  completed  our  token  level  translation 
let's  take  care  of  putting  the  signals  back  into  shared 
memory  where  its  necessary. 

★★a*****************************************************/ 
for  (1-0;  KnumCompVars ; i++) 

{ 

if  { (strcmp (CompVars [i] .class,  " signal") ==0)  &4 

(CompVars [i] .put_or_get  « PUT  ||  CompVars [ i] .put_or_get  =»  PET)) 

{ 

/*********************************** 

Let's  take  care  of  indentation  now  I 
***********★**•***★****★**★**********/ 
strcat  (clangVersion,  "\n\t") ; 


sprintf  (tmp2,  " {\042%s\042,  %s,  %d,  nf [nf_index] ) ; ",  CompVars [i] .name, CompVars [ i] . 
switch  (CompVars [i] .type [0] } 

case  'c':  sprint f (tmpl,  "putsig_st r_NF  (\042%s\042,  %s, %d, nf [nf_index] , sigString) 
CompVars [i] .name,  CompVars [ i] . name,  sigStringArraySize++) ; 
break; 


case  's':  sprint f (tmpl,  "putsig_s_NF  ( \042%s\042,  %s, %d,  nf [nf_index] , sigShort ) ; " , 
CompVars [i] .name,  CompVars [ i] . name,  sigShortArraySize++) ; 
break; 


case  'I':  sprintf (tmpl,  "putsig_I_NF  (\042%s\042, %s, %d, nf [nf_index] , siglnt ) ; " , 
CompVars [i] . name,  CompVars [ i] . name,  sigIntArraySize++) ; 
break; 


case  'f':  sprintf (tmpl,  "putsig_f_NF  (\042%s\042, %s, %d, nf [nf_index] , sigFloat ) ; " , 
CompVars [i] .name,  CompVars [ i] .name,  sigFloat ArraySize++) ; 
break; 


case  'd' : sprintf (tmpl,  "putsig_d_NF  (\042%s\042, %s, %d, nf [nf_index] , sigDouble) ; " 
CompVars [ i] . name,  CompVars [ i] . name,  sigDoubleArraySize++) ; 
break; 


case  '1':  sprintf (tmpl,  "putsig_l_NF  (\042%s\042, %s, %d, nf [nf_index] , sigLong) ; ", 
CompVars [I] .name,  CompVars [ i] .name,  sigLongArraySize++) ; 
break; 


case  'u';  sprintf  (tmpl,  "put sig_u__NF  (\042%s\042,  %s,  %d,  nf  [nf_index] , sigUnsigned) 
CompVars [i] .name, CompVars [ij .name,  sigUnsignedArraySize++) ; 
break; 


default  : break; 

} 

strcat  (clangVersion,  tmpl) ; 

} 

) 

/★******************************************************** 
Let's  clean  up  by  adding  a few  correctly  indented  '}' 
**************************★************★**★**★***★★****★**/ 
if  { (numberOflfs  - numberOfEndif s)  > 0) 

( 

strcat  (clangVersion,  "\n") ; 
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for  (i-0; i< (numberOf Ifs  - numberOfEndif s) ; i++) 
strcat  (clangVersion,  "\t”) ; 
strcat  (clangVersion,  M }*'); 


) 


strcat  (clangVersion,  "\n}\n");  /*  end  of  the  comp!  */ 


/**************★*★**************************************** 

Now  that  we  know  what  how  many  of  each  of  the  types  of 
SIGNALS  or  faultMsg  we  can  declare  their  data  stuctures. 

************************************* ******★★★★*  ********** / 
strcat  (compHeader,  "\n\tchar  faultstring [120] ;”) ; 
if  (numberOfPrint s) 

sprint f (tmpl,  "\n\tstatic  struct  f aultMsgStruct  faultStruct [%d] ; numberOfPrint s) ; 
strcat  (compHeader,  tmpl) ; 

) 

if  (sigStringArraySize) 

sprint f (tmpl,  "\n\tstatic  struct  sigStringSt ruct  sigString [%d] sigStringArraySize) ; 
strcat  (compHeader,  tmpl) ; 

) 

if  ( sigShortArraySize) 

sprint f (tmpl,  "\n\tstatic  struct  sigShortSt ruct  sigShort [%d] ; " , sigShort ArraySize) ; 
strcat  (compHeader,  tmpl) ; 

} 

if  (sigOffShortArraySize) 

sprintf (tmpl, "\n\tstatic  struct  sigOf fShortStruct  sigOffShort [%d] ;", sigOf fShortArraySize) ; 
strcat  (compHeader,  tmpl) ; 

) 

if  (siglntArraySize) 

( 

sprintf  (tmpl,  "\n\tstatic  struct  siglntStruct  siglnt [%d] siglntArraySize) ; 
strcat  (compHeader,  tmpl) ; 

} 

if  (sigOf f IntArraySize) 

{ 

sprint f (tmpl, "\n\tstatic  struct  sigOf flntStruct  sigOf flnt [ %d] sigOff IntArraySize) ; 
strcat  (compHeader,  tmpl) ; 

) 

if  (sigFloatArraySize) 

{ 

sprintf  (tmpl,  "\n\tstatic  struct  sigFloatStruct  sigPloat [%d] sigFloatArraySize) ; 
strcat  (compHeader,  tmpl) ; 

} 

if  (sigOf fFloatArraySize) 

{ 

sprintf (tmpl, "\n\tstatic  struct  sigOf fFloatStruct  sigOf fFloat [%d] sigOf fFloatArraySize) ; 
strcat  (compHeader,  tmpl) ; 

} 

if  (sigDoubleArraySize) 

( 

sprintf  (tmpl,  "\n\tstatic  struct  sigDoubleStruct  sigDouble [%d] sigDoubleArraySize) ; 
strcat  (compHeader,  tmpl) ; 

} 

if  (sigOf fDoubleArraySize) 

( 

sprintf (tmpl, "\n\tstatic  struct  sigOf fDoubleStruct  sigOffDouble [%d] sigOf fDoubleArraySize) 
strcat  (compHeader,  tmpl) ; 

) 

if  (sigLongArraySize) 

( 

sprintf  (tmpl,  "\n\tstatic  struct  sigLongStruct  sigLong [%d] sigLongArraySize) ; 
strcat  (compHeader,  tmpl); 

} 

if  (sigOffLongArraySize) 

{ 

sprintf (tmpl, "\n\tstatic  struct  sigOf fLongStruct  sigOffLong [%d] sigOffLongArraySize) ; 
strcat  (compHeader,  tmpl); 

) 

if  (sigUnsignedArraySize) 

( 

sprintf  (tmpl,  ”\n\tstatic  struct  sigUnsignedStruct  sigUnsigned [%d] sigUnsignedArraySize) ; 
strcat  (compHeader,  tmpl) ; 

} 

if  (sigOffUnsignedArraySize) 


sprintf {tmpl, "\n\tstatic  struct  sigOf fUnsignedSt ruct  sigOf fUnsigned [%d] sigOf fUnsignedArraySize) ; 


strcat  (compHeader,  tmpl) ; 

} 


/★a************************************************ 

Loop  through  the  entire  variable  list  for  the  comp 
★**************************************************/ 
for  (i-0;  KnumCompVars;  i++) 

{ 

/************************************************** 

If  we  find  a local  put  its  type  declaration  into 
the  c string  with  appropriate  indentation. 

***************************************************/ 
if  (strcmp  (CompVars [ i] .class,  "local")  0) 

{ 

/I********************************************* 

Char  strings  are  handled  a little  differently 
**********************************************/ 
if  (CompVars [i] . type [0]  — 'c') 

{ 

sprintf (tmpl, "\n\tstatic  char  %s[120];",  CompVars [i] .name) ; 

> 

else  sprintf  (tmpl,  "\n\tstatic  %s  %s;",  CompVars [ i] .type,  CompVars [i] .name) ; 
strcat  (compHeader,  tmpl); 

) 

) 

/***************************************** ***************************** 

Add  a carriage  return  to  lift  and  seperate  (pronounce  with  a long  'a') 
***********************************************************************/ 
strcat  (compHeader,  "\n"); 

/********************************************************************** 

Let  up  now  retrieve  the  signals  necessary  to  run  this  comp 

it**********************************************************************/ 

for  (1-0;  KnumCompVars;  i + + ) 

{ 

/★★A************************************************ 

If  we  find  a signal  look  at  its  type  and  cat  the 
appropriate  get_sig  call  into  the  header  definition 
a***************************************************/ 

if  (strcmp  (CompVars [ i] . class,  "signal")  — 0) 

{ 

if  (CompVars [I] .put_or_get  — GET  |[  CompVars [i] .put_or_get  « PET) 

{ 

if  (CompVars [ i] .type [0]  « 'c') 

sprintf  (tmpl,  "\n\tgetsig  (\042%s\042,  %s);*,  CompVars [i] .name,  CompVars [i] .name) ; 
else  sprintf  (tmpl,  "\n\tgetsig  (\042%s\042,  &%s);",  CompVars [i] .name,  CompVars [ I] . name) ; 


strcat  (compHeader,  tmpl) ; 


/****************★********★**★***************************************** 

Add  a carriage  return  to  lift  and  seperate  (pronounce  with  a long  'a') 
a**********************************************************************/ 

strcat  (compHeader,  "\n") ; 

/********************************************************* 

FILE  I/O 

Now  that  we  have  completed  the  clangVersion  we  need  to 
write  it  to  its  file  so  it  can  be  used  by  Install. 
**********************************************************/ 
sprintf  (compName_c,  "%s/%s/%s . c" , CodeGroups,  GroupName,  compName) ; 
if  { ! (ptr  =*  openFile  (compName_c,  "w",  "translate")  ) ) 

{ 

sprintf (msgString,  "Translate:  CODE  could  not  open  %s  for  writing,  aborting  translation... — Hit  [RETURN] 
",  compName_c) ; 

ask (msgString, GREEN, msgString) ; 
return  (ERROR) ; 

) 

/★★A******************************************************* 

Write  the  clangVersion  into  its  C file  for  install  to  use. 
**************★*****★**************************************/ 
fprintf  (ptr,  "%s%s",  compHeader,  clangVersion) ; 
fclose  (ptr) ; 


} /*  end  of  translate!)  */ 

/★★*************************************************** 
yankBlank  & yankToken  functions 
********************************  ***********♦*♦*♦♦*****/ 
yankBlank  {comp,  complndex) 
char  *comp; 
int  *compIndex; 

{ 

/★a********************************** 

Yank  non-chars  until  you  hit  a char 
***************  **★****  + *★★**★*  *■****★*/ 

while  ( (comp [*compIndex]  ==  ' ' II  comp  [*compIndex]  » #\t'  || 

comp ( *compIndex]  =-  ' \n')  4 & comp ( *compIndex]  !*  0) 

{ 

(♦complndex) ++; 

} 

} 

yankToken  (comp,  complndex,  token,  tokenlndex) 
char  *comp; 
int  *compIndex; 
char  *token; 
int  *tokenIndex; 

{ 

/************************************ 

Init  the  token  to  null 
*************************************/ 

♦tokenlndex  - 0; 

/a*********************************** 

Yank  char  until  you  hit  a non  char 
★♦★a*********************************/ 

while  (comp[*compIndex]  !■  9 9 &&  comp  [ ♦complndex]  !=*  '\t'  & & 
comp [*compIndex]  !-  '\n'  &£  comp { ♦complndex]  !-  0) 

{ 

token [ (*tokenTndex) + + ] - comp ( (*compIndex) ++] ; 

) 

token [*tokenIndex]  - 0; 

) 


#include  "code.h" 


type_check (type) 
char  type; 

{ 

int  illegal  - FALSE; 
char  response [5]; 

switch (CompareType [NumberOfCompares-1]  [0] ) 

{ 

case  's':  if(WhereAmI  — CONSEQUENCE  &&  type  !=  's'  || 

Where Am I ==  PREMISE  &&  type  'c') 
illegal  - TRUE; 
break; 

case  'f':  if ((WhereAml  --  CONSEQUENCE  £& 

(type  =«  'c'  II  type  ==  'd'  11  type  'h'))  || 

(WhereAml  =»  PREMISE  &&  type  — 'c')) 
illegal  = TRUE; 
break; 

case  'i':  if ((WhereAml  CONSEQUENCE  £fi 

(type  »-  ' c'  II  type  **  ' d'  ||  type  — ' f ' ||  type  — 'h'))  II 

(WhereAml  -«  PREMISE  £&  type  — 'c')) 
illegal  = TRUE; 
break; 

case  'c':  if (WhereAml  « PREMISE  £&  type  !*  'c') 

illegal  - TRUE; 
break; 

case  'd' : if (type  =-  ' c' ) 

illegal  - TRUE; 
break; 

case  'h' : /*  Need  to  know  how  translate  defines  hex  types  */ 

break; 

default:  break; 


) 

if  (illegal) 

( 

return (ERROR) ; 

) 

if  (CompareType [NumberOfCompares-1] [0]  !*  type) 

( 

ask  ("Warning:  Operand  types  are  incosistent  in  this  expression . \nHit  (RETURN]  to  continue",  GREEN 

nse)  ; 

) 

return (OK) ; 


} 


#include  "code .h" 

#include  "cursor. h" 

# include  <ctype . h> 

#include  <string.h> 

#include  <sys/types .h> 

#include  <sys/stat.h> 

#include  <termio.h>  /*  used  for  setting  up  the  keyboard 


*/ 


^A************************************************************ 

openFile 

Purpose:  openFile  opens  up  a file.  If  it  fails  it  prints  a 

message  to  that  effect  and  returns  a NULL  (0)  . 

Designer:  Troy  Heindel/NASA/ JSC/MOD 

Programmer:  Troy  Heindel/NASA/ JSC/MOD 

Date:  1/15/89 

Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

a***************************************************************/ 

FILE  *openFile  (fileWPath,  readWrite,  callingRout ine) 

char  fileWPath [ ] , /*  The  name  of  the  file,  path  included  */ 

readWrite [],  /*  The  open  option,  read,  write,  or  append  */ 

callingRout ine [] ; /*  The  routine  requesting  the  open  file  */ 

FILE  *f ilePtr;  /*  The  pointer  to  the  file  that  It  to  be  opened  */ 

char  explain  [250] , /*  Place  to  put  a message  in  case  of  problem  */ 
tmpString [32] ; /*  Used  in  conjunction  with  explain  */ 


/* 

* Open  the  file  with  the  option. 

*/ 

if  ( ! (f ilePtr  * fopen  (fileWPath,  readWrite) ) ) 

{ 

if  (readWrite [0]  — f r' ) 

strcpy  (tmpString,  "reading") ; 
else  if  (readWrite [0]  — 'w') 

strcpy  (tmpString,  "writing"); 
else  if  (readWrite [ 0 ] 'a') 

strcpy  (tmpString,  "appending"); 
else  strcpy  (tmpString,  "something  completely  different"); 

sprintf (explain, "%s : Can  not  open  * %s'  for  %s",  callingRoutine,  fileWPath,  tmpString) 

Inform (explain, PURPLE, 1) ; 
return  (NULL) ; 

} 

/* 

* On  successful  open  return  a pointer. 

*/ 

return  (filePtr) ; 


) 
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/a************************* *********************************** 
UPPER 

Purpose:  Upper  tak.es  a string  and  converts  it  into  upper 

case . 

Designer:  David  Moyer/RSOC 

Programmer:  David  Moyer/RSOC 

Date:  12/11/86  (CODE  Release  date) 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by:  Harold  Taylor/SDC 

Reasons  for  Revision:  I edited  Dave's  program  so  that  it  only 

contained  the  one  utility  I needed. 


External  Interfaces 
None . 

upper (string) 

Global  Variables 

string  the  string  to  change  to  upper  case 

char  *string; 

{ 

int  i,  n,  toupperO; 
char  c,  *ptr; 

ptr  • string; 
n • strlen (string) ; 

for  ( i»0;  i<n;  i++,  ptr++) 

{ 

c - *ptr; 

*ptr  - toupper(c); 

) 

) 


utilities.*: 

y*********** ************************************************** 
HARDCOPY 

Purpose:  Hardcopy  sends  the  following  files  to  the  printing 
device:  comp_file,  variable  file,  the  "C"  version. 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  5/7/87 


Version : 1.0 


Project:  CODE  {Comp  Development  Environment) 


Revised  by:  Terri  Murphy 

Reasons  for  Revision:  IGF  vs  Sony  print  routines. 

★a**************************************************************/ 
hardcopy  () 

{ 

char  hard_copy [ 400] , 

CODELanguage [PATH_LEN] , /*  Path  of  high  level  language  file  */ 
compVariables  [PATH__LEN]  , /*  Path  of  comp  variable  file  */ 
compCLanguage [PATH_LEN] , /*  Path  of  comp  C language  file  */ 
groupCLanguage [PATH_LEN] ; /*  Path  of  group  C language  file  */ 


Prepare  the  paths 


sprint f (CODELanguage, 
sprintf  (compVariables, 
sprint f (compCLanguage, 
sprintf  (groupCLanguage, 


"%s/%s/% s.h",  CodeGroups, 
"%s/%s/%s . v",  CodeGroups, 
"%s/%s/%s.c",  CodeGroups, 
"%s/%s/%s .c",  CodeGroups, 


GroupName, 

GroupName, 

GroupName, 

GroupName, 


CompName) ; 
CompName) ; 
CompName) ; 
GroupName) ; 


/*******★*****★★*★★★★★*★★*★★*★********** 

Prepare  the  string 

•a***************************************/ 

sprintf  (hard_copy,  "print  %s  %s  %s  %s  2>>/tmp/code .err",  CODELanguage,  compVariables 
compCLanguage,  groupCLanguage) ; 

y*************************************** 

Ask  UNIX  for  a little  help 
★★a*************************************/ 

inform ("Printing. . PURPLE, 0); 

system  (hard-copy) ; 

inform("",  BLUE,0);  /*  Clear  it  */ 


USRFUNCS 


Purpose:  A dummy  function  to  satisfy  clips. 
Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  1/7/88 


Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 

****************************************************************/ 
usrfuncs  () 

{ 

} 


/★* ****************************************************  ******* 
STR  ISALNUM 


Purpose:  Determines  whether  a given  string  is  alpanumeric. 

A single  decimal  point  is  allowed. 

Returns:  0 - It  was  alphanumeric. 

1 - It  was  not ! 

Designer:  Troy  Heindel/NASA/MOD 

Programmer:  Troy  Heindel/NASA/MOD 

Date:  11/14/88 

Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

a***************************************************************/ 
str_isalnum  (theString) 

char  *the$tring;  /*  The  string  to  look  at  */ 

{ 

int  i,  /*  Can't  live  without  an  i */ 

decimalFlag  * FALSE;  /*  TRUE  if  we've  seen  a decimal  point  */ 


/************************************************* 
Leading  zero's  are  a no-no  as  they  conote  octal 
**************************************************/ 
if  (theString [03  '0'  &&  strlen (theString)  > 1) 

( 

inform ("Leading  zeros  are  not  allowed" , RED, 2) ; 
return  (ERROR) ; 

} 

/★a**********************  ************************* 

Loop  through  the  whole  bloody  string,  checking  to 
see  that  each  char  is  an  alphanumeric 
**************************************************/ 
for  (i»0;  i<strlen (theString) ; i++) 

{ 

/*****************  ***************************** 

Check  to  see  if  the  char  is  an  alphanumeric 
***********************************************/ 
if  (!( (theString  [ i]  >=  'A'  ii  theString[i]  <=*  #F')  || 

(theString [i]  >=  '0'  cc  theString[i]  <=  '9'))) 

{ 

/********************************************** 
No.  Then  check  to  see  if  it  is  a decmial  point. 
Only  let  them  use  one  decmial  point  per  number 
***********************************************/ 
if  (theString [i]  — £&  decimalFlag  FALSE) 

decimalFlag  » TRUE; 
else  return  (ERROR) ; 

} 

} 

if  (decimalFlag) 

return  (FLOAT);  /*  All's  well  that  ends  well  */ 
return  (INTEGER);  /*  All's  well  that  ends  well  */ 


) 


m : wm 
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/************************************************************* 

INDENT 


Purpose:  Carries  out  Indentation. 

Designer:  Troy  Heindel/NASA/MOD 

Programmer:  Troy  Heindel/NASA/MOD 

Date:  11/27/88 


Version : 2.0 

Project:  CODE  (Comp  Development  Environment) 

******************★******★**************************************/ 
indent  (theArea) 

Int  theArea;  /*  Either  PREMISE  or  CONSEQUENCE  */ 

{ 

int  i;  /*  Can't  live  without  an  i */ 

char  temp [111); 

/********************************************************* 

Put  the  correct  number  of  spaces  for  the  area  we  are  in 
******* *********************************************  ******/ 
if  (theArea  — PREMISE) 

{ 

/************************************************* 

If  we  are  following  some  logic  we  need  a carriage 
return  and  spaces,  otherwise  just  a single  space 
**************************************************/ 
if  (PrevChoice [ChoiceCounter-1]  — AND  |j 
PrevChoice [ChoiceCounter-1)  — OR  M 
PrevChoice [ChoiceCounter-1]  — BITOR  I I 
PrevChoice [ChoiceCounter-1]  » BITAND  |i 
PrevChoice [ChoiceCounter-1]  — BITXOR) 

{ 

strcat  (Comp,  "\n") ; 

for  (i®0; i< ( (NumberOf Ifs-NumberOfEndifs) -1) *SIZE_INDENT+3; i++) 
strcat  (Comp,"  "); 

} 

else  strcat  {Comp,  " "); 

) 

else  /*  CONSEQUENCE  */ 

{ 

/************************************************* 

If  we  are  following  some  a THEN  or  an  ELSE  then 
we  need  a return  and  spaces,  otherwise  just  a 
single  space 

**************************************************/ 
if  (PrevChoice [ChoiceCounter-1]  !*  THEN  &£ 

PrevChoice [ChoiceCounter-1]  !*  ELSE) 

( 

strcat  {Comp,  "\n") ; 

for  {i=0;  i<  (NumberOf  If  s-NumberOfEndif  s)  *SIZE_INDENT;  i++) 
strcat  (Comp,"  ") ; 

} 

else  strcat  (Comp,  " ") ; 

) 

} 
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getVarlndex 


Returns : 

0 - The  given  name  is  of  class  local  or  signal. 

-1  - The  given  name  was  not  found  in  either  the 
local  or  group  variable  lists, 
index#  - 

If  name  was  found  as  an  msid  in  the  group  list 
then  an  index  is  returned. 

***************************************************/ 
getVarlndex (name,  CompVars,  numCompVars,  varlndex,  rellndex) 
char  *name; 

struct  var_struct  CompVars [];  /*  Structure  containing  the  comp  variable  defs  */ 

int  numCompVars;  /*  The  number  of  comp  variable  in  the  structure  ♦/ 

int  *varlndex;  /*  The  index  of  the  variable;  MSID,  SIGNAL,  LOCAL  ♦/ 

Int  *rellndex;  /*  The  relative  index  of  the  MSID  */ 

{ 

int  i,  msid__cnt; 

char  temp [155]; 

♦rellndex  - 0; 

♦varlndex  - 0; 

/★★a************************  *★**★**★**★*★**★* 

If  the  first  char  is  a double  quote  we  know 
right  away  that  this  is  a literal  string. 
*********************************************/ 
if  (name [0]  — '"') 

{ 

return  (STRING) ; 

) 

/******************************************** 

See  If  the  variable  Is  in  the  variable  passed 
to  translate ()  from  Install. 

*********************************************/ 
for  (1*0;  KnumCompVars;  i++) 

{ 

/********************************************* 

Try  to  match  the  name,  then  the  class 
**********************************************/ 
if  (strcmp  (CompVars [i] .name,  name)  =«  0) 

{ 

if  (strcmp  (CompVars [i] .class,  "signal")  » 0) 

{ 

♦varlndex  = i; 
return (SIGNAL) ; 

} 

else  if  (strcmp  (CompVars [i] .class,  "local")  ==  0) 

{ 

♦varlndex  = i; 
return (LOCAL) ; 

> 

else  if  (strcmp  (CompVars [i] .class,  "msid")  ==  0) 

{• 

♦varlndex  * i; 
break; 

} 

) 

) 

/*************************************************** 

If  we  did  not  find  it  as  a SIGNAL  or  LOCAL  then  see 
if  it  Is  an  MSID  in  the  Complnfo  structure 
*************************************  *■**★*★**  **★*★**/ 
msid_cnt  » 0; 

for  (i~0; i<NumGroupVars; i++) 

{ 

/*******★★★*★★★*★*★*★★★*★**********★**★**★★*★* 

We  need  to  keep  track  of  a relative  index  for 
the  msids. 

*********  A************************************/ 

if  (strcmp  (GroupVars [ i] . class,  "msid")  « 0) 

{ 
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f it it  * *******  ★*★**★******★**********★*****★ 

Try  to  match  the  name,  return  if  so 
*★********★******************************/ 
if  (strcmp  (GroupVars [i] .name,  name)  --  0) 

{ 

*rellndex  = msid_cnt;  /*  the  relative  msid  index  */ 
return  (MSID) ; 

} 

msid  cnt++; 


/*************************************************** 
Now  we  know  that  it  was  not  an  MSID,  signal,  or 
local,  but  now  see  if  it  was  a number,  or  a string 
****************************************************/ 
if  {str_isalnum  (name)  !=  ERROR) 

{ 

return  (NUMBER) ; 

) 

return (ERROR) ; 


*• 


/******************** ****************************** *********** 
changeFont 

Puprose:  To  change  the  font  size. 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  12/13/88 

Version:  2.0 

Project:  Real-Time  Data  System 

**************************************************************** 
changeFont  (choice,  tbeMode) 

int  choice,  /*  The  area  we  want  to  change  the  font  in  */ 
theMode;/*  The  size  of  the  font  */ 

{ 

if  (choice  !«  W0RK_AREA) 

( 

/★•a********************************** 

Delete  the  old  graphics  fonts 

★ it***********************************/ 

mgidelgf  (Font); 
mgidelgf  (BoldFont); 
mgidelgf  (ItalicFont) ; 

/************************************ 

Change  to  the  chosen  graphics  font 
******★**★***★****★*★*★**•**★★★*★***★*/ 
if  (theMode  « LARGE) 

{ 

mgifetchgf  (Font,  "9x11"); 
mgifetchgf  (BoldFont,  "9xll_b"); 
mgifetchgf  (ItalicFont,  "9xll_ iw) ; 

} 

else  if  (theMode  — MEDIUM) 

{ 

mgifetchgf  (Font,  "7x9") ; 
mgifetchgf  (BoldFont,  "7x9_bold"); 
mgifetchgf  (ItalicFont,  " 7x9_italic" ) ; 

} 

else  if  (theMode  =«  SMALL) 

{ 

mgifetchgf  (Font,  "5x7"); 
mgifetchgf  (BoldFont,  n5x7_bold") ; 
mgifetchgf  (ItalicFont,  "5x7_italic" ) ; 

} 

/A************************************** 

Redraw  the  screen  to  see  the  results 

A*************************-**************/ 

background  () ; 

color_valid  (PrevChoice [ChoiceCounter  - l],-2); 

} 

else  /*  Change  the  text  fonts  in  the  text  windows  */ 

{ 

if  (theMode  « SMALL) 

{ 


mgitf 

(3, SmallTextFont,  -1, 

1) 

mgitf 

(4 , SmallTextFont,  -1, 

1) 

mgitf 

(5, SmallTextFont,  -1, 

1) 

mgitf 

(7, SmallTextFont,  -1, 

1) 

} 

else  if  (theMode  ==  MEDIUM) 

{ 

mgitf  (3, MediumTextFont , -1,  1)  ; 
mgitf  (4, MediumTextFont,  -1,  1)  ; 
mgitf  (5, MediumTextFont , -1,  1)  ; 
mgitf  (7, MediumTextFont,  -1,  1)  ; 

} 

else  /*  assume  (theMode  ==  LARGE)  */ 

{ 

mgitf  (3, LargeTextFont , -1,  1)  ; 

mgitf  (4, LargeTextFont,  -1,  1)  ; 

mgitf  (5, LargeTextFont , -1,  1); 
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mgitf  (7, LargeTextFont,  -1,  1); 

} 

displayWA(Comp) ; 


. utilities.c  V 
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/************************************************************* 

writeGroupNames 

Purpose : writeGroupNames  writes  the  Grouplnfo  file. 


Designer:  Troy  He indel/NASA/ JSC/MOD 

Programmer:  Troy  Heindel/NASA/ JSC/MOD 

Date:  1/15/89 

Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

★a**************************************************************/ 
writeGroupNames () 

{ 

FILE  *filePtr;  /*  You  guessed  it!  */ 


) 


int  i ; 

/******★**********★********  ************* 

Open  the  Grouplnfo  file  with  the  option 
a***************************************/ 

if  ( ! (filePtr  * openFile  (GroupNamesFile,  V,  "writeGroupNames11))) 
return  (ERROR) ; 

/*************************************** 

On  successful  open,  write  the  file 
****************************************/ 
fprintf  (filePtr,  "IGroupNames  Disposition^*) ; 

for  (i-0;  KNumOf Groups;  i + + ) 

fprintf  (filePtr,  "%s  %d\n",  Grouplnfo [ i] . name,  Grouplnfo [ i] .disposition) ; 
fclose  (filePtr); 

return  (OK) ; 


utilities.C  1 : 


/************************************************************* 

readCODEFile 

Purpose:  readCODEFile  reads  in  the  CODE  high  level  file  into 

the  string  which  is  passed  to  it. 

Designer:  Troy  Heindel/NASA/ JSC/MOD 

Programmer:  Troy  Heindel/NASA/ JSC/MOD 

Date:  1/24/89 

Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

****************************************************************/ 
readCODEFile (compName,  compStr) 

char  compName [];  /*  The  name  of  the  comp  to  get  */ 

char  *compStr;  /*  The  string  to  put  the  comp  into  */ 

{ 

FILE  *filePtr;  /*  You  guessed  it!  */ 
int  i; 

char  theCODEFile [PATH_LEN] ; /*  The  path  to  the  CODE  file  */ 

/******************************************************************** 

Create  the  path  to  open  the  high  level  file 
*********************************************************************/ 
sprintf  (theCODEFile,  "%s/%s/%s .h",  CodeGroups,  GroupName,  compName); 

/*************************************** 

Open  the  Grouplnfo  file  with  the  option 
********************  ******** ****★**★*★★*/ 

if  ( ! (filePtr  - openFile  (theCODEFile,  "r",  "readCODEFile”))) 
return  (ERROR) ; 

/***************************************** 

Read  the  entire  comp  into  the  comp  string. 

******************************************/ 

i-0; 

while  ({ (compStr [i++]  - fgetc  (filePtr))  !-  EOF)  &£  i<MAX_COMP_LEN)  ; 
fclose  (filePtr); 
compStr [i-1]  - '\0'; 

/***************************************** 

Hake  sure  we're  not  too  big. 

******************************************/ 
i f ( i— MAX_COMP_LEN) 

{ 

ask ("readCODEFile : This  comp  exceeds  that  maximum  comp  length . \nPlease  notify  developers.  Hit 
RED, theCODEFile) ; 

return  (ERROR) ; 

} 


[RETURN] ", 


return  (OK) ; 


w 


y Purpose: 

Designer:  Troy  Heindel/NASA/ JSC/MOD 

Programmer:  Troy  Heindel/NASA/ JSC/MOD 

Date:  2/6/89 


Version:  2.0 


Project:  CODE  (Comp  Development  Environment) 

t*************************************************  *******★******/ 

readGroupNames () 

{ 

FILE  *filePtr;  /*  You  guessed  it!  */ 


char  message [120] ; 

struct  group_info_struct  tempGroupInfo; 
int  i,j;  /*  counters  */ 


NumOfGroups  - 0; 

/* 

* Open  the  GroupNames  file  for  reading 
*/ 

if  (filePtr  - openFile  (GroupNamesFile,  "r",  "readGroupNames”)) 

{ 

/* 

* Strip  the  header. 

*/ 

fscanf (filePtr,  "%* [ A\n] ") ; 

while  (fscanf  (filePtr, ”%s  %d",  Grouplnfo [NumOfGroups] .name, 

fiGroupInfo [NumOfGroups] .disposition)  !*  EOF) 

++NumOfGroups ; 
fclose  (filePtr) ; 

/* 

* Sort  the  little  buggers  so  they're  nice  to  look  at. 

*/ 

for  (i«0; i<NumOfGroups-l; i++) 

{ 

for  ( j*i+I; j<NumOf Groups; j++) 

( 

if  (strcmp  (Grouplnfo [i] .name,  Grouplnfo [ j] .name)  > 0) 

{ 

tempGroupInfo  = Grouplnfo [i] ; 

Grouplnfo [ij  * Grouplnfo [ j] ; 

Grouplnfo [j]  * tempGroupInfo; 

) 

) 

} 


return  (NumOfGroups) ; 

) 

/* 

* Maybe  this  is  a new  system  and  the  file  does  not  exist  yet. 

* Try  creating  the  file  by  opening  it  for  writing. 

*/ 

else  if  ('(filePtr  = openFile  (GroupNamesFile,  V,  "readGroupNames"))) 

{ 

sprintf  (message,  "Unable  to  access  the  %s  file  in  order  to  obtain\na  listing  of  the  groups. 
TURN]  to  continue" , GroupNamesFile) ; 

ask (message,  GREEN,  message); 
return  (ERROR) ; 

) 

else 


{ 


inform ("No  algorithms  were  found  on  this  machine PURPLE, 2) ; 
fclose  (filePtr) ; 

return  (0);  /*  The  number  of  Groups  on  this  system  */ 


Hit  [RE 


) 


) 


utilities.c 


readCompNames 


Purpose : 

Designer:  Troy  Heindel/NASA/ JSC/MOD 

Programmer:  Troy  Heindel/NASA/ JSC/MOD 

Date:  2/6/89 


Version:  2.0 


Project:  CODE  {Comp  Development  Environment) 

*************★**************************************************/ 
readCompNames {) 

{ 

FILE  *filePtr;  /*  You  guessed  It!  */ 
char  f ile_str [PATH_LEN] ; 


int  i, j; 

struct  comp_inf obstruct  tempCompInfo; 


NumOf Comps  * 0; 

/* 

* Let's  open  the  [GroupNameJ.dat  file  to  find  out 

* which  comps  exist  for  this  group. 

*/ 

sprintf  (file_str,  "%s/%s.dat",  AMSupport,  GroupName) ; 
if  ( ! (f ilePtr  - openFile  (file_str,  "r",  "readCompNames”))) 
return  (NumOfComps) ; 

/* 

* ...  and  read  the  CompName,  noise_f liter,  rate, 

* on_off  and  disposition  into  an  array  of  group 

* information  structures. 

*/ 

else 

{ 

/* 

* Throw  out  the  header  comment. 

*/ 

fscanf (filePtr,  "%*[A\n]"); 

/* 

* Read  in  what's  left. 

*/ 

while  ((fscanf  (filePtr, "%s  %d  %d  %d  %d  %[A\n]",  Complnfo [NumOfComps] . name 
^Complnfo [NumOfComps] . noise_f liter, 
fcCompInfo [NumOfComps] .rate, 

fc Complnfo [NumOfComps] .on_off, 

SCompInfo [NumOfComps] .disposition, 

Complnfo [NumOfComps] .purpose) ) I*  EOF) 

{ 

NumOfComps++; 

) 

fclose  (filePtr); 

/*★*★★*****★* ******************************************* 

Sort  the  little  buggers  so  they're  nice  to  look  at. 
**★*****★★**★*★***★**★*****•****★★****★**★*★★*★*★★**★**★★/ 


) 


for 

{ 


} 


(i*0; KNumOfComps-l; i++) 

for  { j~i+l; j<NumOfComps; j++) 

( 

if  (strcmp  (Complnfo [i] .name,  Complnfo [ j] . name) 

( 

tempCompInfo  = Complnfo [i]; 

Complnfo [i]  * CompInfo[j]; 

Complnfo [j]  * tempCompInfo; 

) 

} 


return  (NumOfComps) ; 


> 0) 


) 


utilities.C 

/★★a********************************************************** 

cleanExit 

.Purpose:  cleanExit  is  used  to  clean  up  ttymodes  and  graphics 

before  exiting  CODE. 

Designer:  Terri  Murphy/NASA/ JSC/MOD 

Programmer:  Terri  Murphy /NASA /JSC /MOD 

Date:  1/24/89 

Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

a***************************************************************/ 
cleanExit () 

{ 


struct  termio  orig_tty;  /*  used  for  setting  up  the  keyboard  */ 

struct  termio  raw_tty;  /*  used  for  setting  up  the  keyboard  */ 

ioctl  (fileno  (stdout),  TCSETA,  &orig_tty) ; 
printf  {"NOSSGGXn”) ; 
printf  ("\033Gc\n") ; 
mgiclearpln  (2, -1,0); 

/* 

* Restore  the  color  map 
*/ 

mgicms  (0,  32,  ColorMap) ; 
mgideagp  () ; 

system  { "/etc/gpc/setcolors  2>>/tmp/code .err") ; 
exit (-1) ; 


) 


utilities.C;: 

/★★♦a********************************************************* 

putStrWithBlue 

Purpose:  Puts  a given  string  at  a given  place  of  the  screen 

with  a pretty  blue  rounded  box. 

Designer:  Troy  Heindel/NASA/ JSC/MOD 

Programmer:  Troy  Heindel/NASA/ JSC/MOD 

Date:  2/10/89 

Version : 2.0 

Project:  CODE  (Comp  Development  Environment) 

****★*******************★*****■**********************************/ 
putStrWithBlue (theStr,  x) 

char  *theStr;  /*  The  string  to  put  up  */ 
float  x;  /*  The  normalized  x coordinate  */ 


mgihue  (BLACK) ; 

mgrbox  (x,  0.9120,  X+.116  ,0.9320); 

/* 

* This  misbegotten  graphics  language  dumps  if 

* you  try  to  draw  a null  string. 

*/ 

if  (theStr  [0]—0) 

strcpy (theStr, "NULL") ; 

mgihue  (BLUE) ; 

mgrbox  (x,  0.9120,  x + strlen  (theStr) *0 . 01,  0.9320); 
mgrfc  (x,  0.9220,  0.0080); 

mgrfc  (x+strlen (theStr) *0 . 01,  0.9220,  0.0080); 

mgihue  (YELLOW) ; 

mgrgfs  (x,  0.9110,  0,  theStr); 


/★★a********************************************************** 

cleanSlate 

Purpose:  Used  by  retrieve {), and  get_header  to  initialize  the 

global  variables  used  by  a comp. 

Designer:  Troy  Heindel/NASA/ JSC/MOD 

Programmer:  Troy  Heindel/NASA/ JSC/MOD 

Date;  2/12/89 

Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

a***************************************************************/ 
cleanSlate () 

( 


ChoiceCounter  = 0; 

ParenCount  =0; 

Equation  - LHS; 

WhereAmI  - CONSEQUENCE ; 
NumberOflfs  = NumberOfEndifs  = 0; 
NumberOf Compares  * 0; 

NumCompVars  *0; 

FuncParenCount  = 0; 

Comp[0]  = 0; 


Project:  CODE  (Comp  Development  Environment) 

a*********************  **★*★★**★****★*★★******★*★★**★★****★*****■*/ 
get_type (whose_type,  the_message) 
char  *whose_type; 
char  the_message ( ] ; 

{ 

int  choice; 


color_valid  (GET_TYPE,  dead_end) ; 
inform (the_message, GREEN, 0) ; 
choice  - menu (RUN); 


if  (choice  SHORT) 

{ 

atrcpy  (whose_type,  "short"); 

} 

else  if  (choice  « INTEGER) 

{ 

strcpy  (whose_type,  "int") ; 

} 

else  if  (choice  ==  FLOAT) 

{ 

strcpy  (whose_type,  "float"); 

} 

else  if  (choice  — DOUBLE) 

{ 

strcpy  (whose_type,  "double") ; 

) 

else  if  (choice  — CHAR) 

{ 

strcpy  (whose_type,  "char"); 

} 


VAR  CHECK 


Purpose:  Var  check  checks  the  variable  list  to  determine 

whether_the  variable  just  input  has  been  previously 
defined. 

Designer:  Troy  A.  Heindel/NASA/ JSC/MOD 

Programmer:  Troy  A.  Heindel/NASA/ JSC/MOD 

Date:  12/11/86 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 
None . 

*********************************  *********************  ******** 

Global  Variables 

NumCompVars  The  number  of  variables  in  this  comp. 

************************************************************** 

Include  files 

*************************************************************/ 

♦include  "code.h” 

var  check  (name,  local_Index,  global_index,  class) 

_ char  name[];  /*  The  name  of  the  passed  variable  */ 

int  *local_index;  /*  The  index  into  the  CompVars  struct  */ 

^ int  *global_index;  /*  The  index  into  the  MSIDTable  struct  */ 
char  class [];  /*  Either  msid,  signal,  or  local  */ 

{ 

int  i;  /*  Counter  */ 
int  def ined_globally; 
int  def ined_locally; 
char  msg_st ring [ 150] ; 
char  temp [100]; 

/***************************************** 

Assume  the  worst — undefined  variable 
******************************************/ 
def ined_globally  - FALSE; 
def ined_locally  - FALSE; 

*local_index  » -1; 

*global_index  « -1; 

/***************************************** 

Look  for  the  msid  in  the  struct  MSIDTable 
******************************************/ 
if  (strcmp  (class,  "msid”)  — 0) 

{ 

/************************************************* 

If  there  Is  not  MSIDTable  then  we  can't  look  it  up 
**************************************************/ 
if  (! (MSIDTable [0] .name) ) 

inform ("MSIDf  s will  not  be  verified;  the  msid  table  was  not  found”, PURPLE, 2) ; 

else 

( 

/**************************************** 

Try  to  find  the  msid  in  the  tag_MSIDTable 
*****★***********************************/ 
for  ( i~0 ; i < MSIDCount ; i++) 

{ 

j if  (strcmp  (name,  MSIDTable [ i] . name)  « 0) 

def ined_globally  * TRUE; 

*global_lndex  = i; 
break; 


/★a******************************************* 

If  we  did  not  find  the  msid  in  the  msid  list 
it  is  undefined  and  not  usable. 
**********************************************/ 
if  ( ! (def ined_globally) ) 

{ 

*global_index  * ERROR; 

) 

) 

} 

/*********■*************★*★****************** 

Look  for  signals  in  the  struct  SignalTable 

*********************  ft**********************/ 

else  if  (strcmp  (class,  "signal")  — 0) 

{ 

/******************************************** 

Look  for  the  signal  in  the  SignalTable  list 
#*******************************★************/ 
for  (i«0;i  < SignalCount; i++) 

( 

if  {strcmp  (name,  SignalTable [ i] . name)  --  0) 

{ 

def ined_globally  » TRUE; 

*global_index  - i; 
break; 

) 

) 

} 

/a***********-***************************** 

Always  check  to  see  whether  the  variable 
is  defined  locally  to  this  comp. 

*************★***+***********************/ 
for  (i-0; KNumCompVars; i++) 

{ 

if  (strcmp  (name,  CompVars [ i] . name)  — 0) 

{ 

/********************************★★★**★*******★*** 

Return  an  ERROR  if  they  are  trying  to  use  an  msid 
as  a local,  signal  or  something  of  the  sort 
**************************************************/ 

if  {(strcmp  (class,  CompVars [ i] . class)  — 0)  II  (strcmp (class, "null" ) 

{ 

*local_index  - i; 
defined_locally  - TRUE; 
break; 

> 

else  /*  It  is  a miss-classing  e.g.  a local  as  a signal  */ 

{ 

return  (ERROR) ; 

) 

) 

) 

return  (OK) ; /*  The  variable  is  ok  */ 


/ + ★*■***'***★**★**★**★************’***’*****★*******★*************• 
funcCheck 

Purpose:  funcCheck  checks  to  see  if  a given  unknown  token  is 

defined  in  the  function  list.  Return  1 if  true,  0 
otherwise . 

Designer:  Troy  A.  Heindel/NASA/ JSC/MOD 

Programmer:  Troy  A.  Heindel/NASA/ JSC/MOD 

Date:  12/15/88 

Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 


Reasons  for  Revision: 


External  Interfaces 


None . 

*t***********************************************************/ 

funcCheck  (funcName) 

char  funcName [];  /*  The  name  of  the  professed  function  */ 

{ 

int  i; 

/★★a******************** ************  ************* 

Try  to  find  the  passed  funcName  in  the  list  of 
user  defined  functions,  return  OK  if  found 
*************************************************/ 
for  (i-0; KNumberOfUserFuncs ; i++) 

{ 

if  (strcmp  (funcName,  UserFuncs  [i] ) **-  0) 
return  (OK) ; 

} 

/************************************************ 

Return  an  ERROR  if  it  wasn't  a function. 
★♦a**********************************************/ 

return  (ERROR) ; 


) 


window  io.c 


external  interfaces: 


ask  () 
inform  {) 
displayWAO 
clearWAO 


/★★a********************************************************** 
ask  () 

Purpose:  Prompts  the  user  for  some  information. 

Returns:  0 - no  problem. 

1 - they  just  hit  return  (implies  default) . 

Designer:  Troy  Heindel  / NASA 

Programmer:  Troy  Heindel  / NASA 

Date:  2/13/89 


Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 


Revised  by:  Troy  Heindel 


Reasons  for  Revision:  Improve  readability. 
************************************************************* 

Include  files 

********************★****************************************/ 

#include  "code.h" 

♦include  "color. h" 

♦include  <ctype.h> 

♦include  <termio.h>  /*  used  for  setting  up  the  keyboard  */ 

struct  termio  orig_tty;  /*  used  for  setting  up  the  keyboard  */ 

struct  termio  raw_tty;  /*  used  for  setting  up  the  keyboard  */ 

ask  (question,  color,  reply) 

char  *question,  /*  The  question  to  ask  the  user  */ 

*reply;  /*  The  place  to  put  their  reply  */ 

char  tempReply [250] ; /*  A temporary  holding  place  for  the  string  */ 

/* 

* Inform  the  user  of  the  message  with  0 wait. 
*******************************************************/ 
inform (quest ion, color, 0) ; 


/* 

* Make  the  Prompt  window  a black  void 
*******************************************************/ 
mgihue  (BLACK) ; 

mgrbox  (0.1573,  0.0810,  0.9990,  0.1580); 


printf  ("\033GD\n") ; /*  Select  keyboard  input  window  */ 

printf  ("\033Gc\n") ; /*  Turn  text  cursor  on  */ 

printf  ("\033Gb\n") ; /*  Make  text  cursor  blink  */ 

printf  ("\033 [H\n") ; /*  Place  text  cursor  in  home  position 


/*  in  keyboard  input  window 


*7 


*/ 


/* 

* Now  that  we' re  in  the  right  window,  return  to  original 

* tty  mode,  and  flush  the  input  buffer  which  might  have 

* been  filled  with  garbage,  or  even  worse,  WEX  worms. 

* Clear  the  window  which  still  would  have  that  trash. 
************★★*★********★******************************/ 

ioctl  (fileno  (stdout) , TCSETAW,  iorig_tty) ; 
ioctl  (fileno  (stdout),  TCFLSH,  0); 

printf  ( "\033 [2 J\n") ; /*  Clear  keyboard  input  window  */ 

/* 

* Null  out  the  given  string  to  be  on  the  safe  side 
************★**★*************************************/ 

reply [0]  = 0; 

/* 

* Get  a string  from  the  user. 

* Copy  tempReply  into  reply  only  sizeof  chars  or  less. 
********** *******************************************/ 

gets (reply) ; 

/* 


Window Jo.e 


* Now  that  we  have  our  input,  go  back  to  raw  tty  mode, 
★★★a****************************************************/ 


printf  ("\033 [2 J\n") ; /*  Clear  the  window  */ 

ioctl  (fileno  (stdout ) , TCSETAW,  fcraw_tty) ; 

printf  ("\033Gac\n”) ; /*  Turn  text  cursor  off  */ 

printf  ("\033Gab\n") ; /*  Make  text  cursor  stop  blinking  */ 


/* 

* Redraw  the  Prompt  & Message  windows  in  blue 
*******************************************************/ 
mgihue  (BLUE) ; 

mgrbox  (0.1573,  0.0810,  0.9990,  0.1580); 
mgrbox  (0.1573,  0.0010,  0.9990,  0.0790); 

ff lush (stdout) ; 


/* 

* If  they  just  bit  return,  return  DEFAULT,  else  OK. 
****************************'********-*****************/ 
if ( [reply [0] ) 

return  DEFAULT; 
else  return  OK; 


} 


window Jk>.c 


/************ **************************************  *********** 
inform  () 

Purpose:  informO  writes  a text  string  to  the  bottom  window. 

Designer:  Troy  A.  Heindel/NASA/JSC/MOD 

Programmer:  Troy  A.  Heindel/NASA/JSC/MOD 

Date:  2/13/89 

Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 

*******************************  *■**★*★★****  *******************/ 
inform  (message,  color,  pauseTime) 

char  message [];  /*  The  string  to  be  diplayed  */ 

int  color,  /*  The  color  to  display  it  in  */ 

pauseTime;  /*  The  sleep  in  seconds  before  erasing  */ 


* Choose  the  Message  window,  set  the  color,  draw  a box, 

* place  a cursor 
*/ 

printf  ("\033GG\n") ; /*  Select  Message /Prompt  window  */ 

printf  ("\033 [2 J\n* ) ; /*  Clear  the  window  */ 

mgihue  (color) ; 

mgrbox  (0.1573,  0.0010,  0.9990,  0.0790); 

printf  ("\033 [H\nnJ ; /*  Place  (invisible)  cursor  in  home  position  */ 

mgihue (WHITE) ; 

printf  ("%s”,  message) ; /*  Write  message  to  window  */ 

f flush (stdout) ; /*  Don't  wait  to  exceed  stdout  buf  size  to  display  */ 


* Pause  for  pauseTime,  then  clear  the  window. 

*/ 

if  (pauseTime) 

{ 

sleep (pauseTime) ; 

printf  ("\033 [2J\n") ; /*  Clear  the  window  */ 

mgihue  (BLUE) ; /*  Redraw  it  in  blue  */ 

mgrbox  (0.1573,  0.0010,  0.9990,  0.0790); 


window Jo.c; ' : | 

/************************************************************* 

displayWAO 

/ purpose:  Displays  a string  in  the  Work  Area  window. 

Designer:  Troy  A.  Heindel/NASA/JSC/MOD 

Programmer:  Troy  A.  Heindel/NASA/JSC/MOD 

Date:  2/13/89 

Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 

********«***************★***★***★******************************/ 
displayWA ( st rToDi splay) 
char  strToDisplay [ ] ; 

{ 

/* 

* Choose  the  Work  Area  window  and  place  the  cursor 

* in  its  home  position. 

*/ 

printf  ("\033GC\n") ; 
printf  (n\033  [H\n")  ; 

/* 

* Write  text  to  the  window 
*/ 

printf  {"%s",  strToDisplay) ; 
f flush (stdout ) ; 

} 

clearWA  () 

{ 

/* 

* Choose  and  clear  the  Work  Area  window 
*/ 

printf  ("\033GC\n") ; 
printf  ("\033 [2 J\n") ; 

) 


* 


* FILE  NAME:  archive. c 

* ■ 

* 

* FILE  FUNCTION: 


archive.c 


* This  file  contains  the  routines  which  are  used  to  backup  and  restore  Comp 

* Groups. 

* 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


★ 


* FILE  MODULES: 


* 


* archive O - allows  the  user  to  backup  and  restore  groups 

* get  arc_funct ( ) - determines  if  the  user  wants  to  read,  write,  or  list  the  device 


♦include 

♦include 

♦include 

♦include 

♦Include 

♦include 

♦include 

♦include 


<stdio .h> 
<sys/types ,h> 
<sys/stat .h> 
<X11/Intr insic.h> 
<5Cm/Text  .h> 
<Xm/MessageB .h> 
"code .h" 

"widgets .h" 


archive. c 

* 

* MODULE  NAME:  archive ( void  ) 


* MODULE  FUNCTION: 

* 

* Function  determines  if  the  user  wants  to  read,  write,  or  list  the  backup  device. 

* Based  on  the  user's  desired  action,  this  function  accesses  the  necessary  files 

* and  the  backup  device.  Display_f i le ( ) is  called  to  show  the  user  the  results 

* of  the  backup/restore  operation. 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

★ 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

*************★*★★***********************<- 


void  archive {) 
{ 

char 


int 


FILE 


abs_group_name[PATHJJEN],  /*  Name  with  full  path  */ 
dev_str [20] , 

group[20],  /*  Name  read  from  GroupNames  file  */ 

grp  name [20],  /*  Name  without  path  */ 

message [200 ] , /*  A place  to  build  string  messages  */ 

sys  cmd [500] , /*  Used  with  system  calls  */ 

workDir [PATH  LEN] ; /*  A string  to  hold  current  work  dir.  */ 


i,  j, 

found, 
rc; 

*list_f ile, 
*tmpfile, 
*grpf ile; 


/*  counters  */ 

/*  return  code  from  function  call  */ 


* Get  the  working  directory,  return  to  calling  routine  if  unsuccessful. 
*/ 

if  (!  (getwd (workDir) ) ) 

{ 

sprintf  { message,  "Backup  could  not  get  the  working  directory"  ); 

user  ack ( message,  HELP_U_ACK  ) ; 

return; 

} 

/* 

* Setup  the  default  device  string. 


switch  ( 
{ 

case 

Device  ) 

DEVI 

strcpy ( 
break; 

dev_ 

str, 

M/dev/rf Ip" 

) ; 

case 

DEV2  : 

strcpy ( 
break; 

dev_ 

str. 

"/dev/rctp" 

) ; 

case 

DEV3  : 

strcpy ( 

dev_ 

str. 

M/dev/rst8" 

) ; 

) 

break; 

sprintf ( 

message, 

"Do  you 

want 

to 

Write,  Read, 

or 

rc  = get_arc_funct ( message  ); 


return; 


/* 

* User  wants  to  write  the  files  to  the  device. 
*/ 

if  ( rc  ==  ARC H_ WRITE  ) 

{ 


user_ack ("Insert  the  media,  CONTINUE  when  inserted",  HELP_U_ACK) ; 

/* 

* Get  the  name  of  the  group  to  copy  to  the  device. 

*/ 

rc  * get_name (NumOfGroups, "Group" , GroupName, &GroupNumber, sDisposit ion) ; 

if  { rc  ==  ABORT  ) 
return; 

if  { rc  ==  ERROR  ) 

user_ack ( “Error  during  file  selection,  nothing  will  be  written  to  device", HELP_U_ACK) ; 
return; 

} 

/* 

* Write  files  to  device. 

*/ 

list_f ile  - openFile ( "/tmp/code . 1st",  "w",  "archive"  ); 
if  ( list_f ile  — NULL  ) 
return; 

else 

fprintf ( list  file,  "\n\tLISTING  OF  FILES  WHITTEN  TO  DEVICE  Us)",  dev_str  ); 

fprintf  ( list~f  ile,  "\n\t \n\n\n"  ); 

fclose  { list_file  ) ; 

) 

sprintf ( message,  "Please  wait,  writing  files  to  device  {%s)...n,  dev_str  ); 
inform ( message  ) ; 

sprintf  ( sys_cmd,  "tar  cvf  %s  %s/%s/*.h  %s/%s/*.v  %s/%s.dat  ",  dev_str, 

CodeGroups,  GroupName, 

CodeGroups,  GroupName, 

AMSupport,  GroupName  ) ; 

street  ( sys_cmd,  ">>/tmp/code . 1st  2>>/tmp/code . 1st"  ); 

rc  = system  { sys_cmd  ) ; 
clear_inform{ ) ; 

if  { rc  !«  ERROR) 

display_f ile ( LIST,  "/tmp/code . 1st " ); 

else 

user_ack ( "Backup  unsuccessful",  HELP_U_ACK) ; 

system { "rm  -f  /tmp/code . 1st  2>>/tmp/code .err"  ); 

} 


/* 

* User  wants  to  read  the  device  to  disk. 

*/ 

else  if  ( rc  — ARCH_READ  ) 

{ 

/* 

* If  they  want  to  read  a device,  let' s first  find 

* out  what  group  is  on  the  device. 

*/ 

sprintf ( message,  "Checking  for  CODE  files  on  device  <%s)...",  dev_str  ); 
inform  ( message  ) ; 

sprintf ( message,  "tar  tf  %s  >/tmp/code . 1st  2>>/tmp/code .err" , dev_str  ); 
system  ( message  ) ; 
clear  Inform {); 


return; 


fscanf  (tmpfile,  M%s'\  abs_group_name) ; 
fclose  (tmpfile) ; 

system  ("rm  -f  /tmp/code . 1st  2>>/tmp/code . er r " ) ; 

/* 

* Since  what  we  have  is  the  full  path  name 

* and  we  just  want  the  group  name,  let's  shorten 

* it  up. 

V 

i = strlen(  abs_group_name  ); 

for  < i — , j=0 ; j < 2;  i--  ) 

if  ( abs_group_name [ i]  * /*  ) 

{ 

abs_group_name [ i]  = NULL; 

j+  + ? 

} 

for  ( i+~2,  j-0;  abs_group_name [ i ] !=  NULL;  i++,  j++  ) 

grp_name [ j ] - abs_group_name [ i ] ; 
grp_name[j]  - '\0'; 

/* 

* Let's  open  the  GroupNames  file,  and  see  if  the 

* group  already  exists. 

*/ 

if  (Mgrpfile  » openFile  (GroupNamesFi le,  "r",  "archive"))) 
return; 

found  ■ FALSE; 

while  (fscanf  (grpfile,  "%s",  group)  !-  EOF) 

{ 

if  (strcmp  (grp_name,  group)  »=*  0) 

{ 

found  = TRUE; 

/* 

* If  the  group  already  exists,  let  the  user  know 

* about  it  and  see  if  they  want  to  proceed. 

*/ 

if ( ! ask ("This  group  already  exists,  do  you  want  to  clobber  it?")) 

return; 

break; 

) 


) 

fclose  (grpfile) ; 

/* 

* Let's  read  the  device  finally 
*/ 

sprintf{  message,  "Please  wait,  reading  device  (%s)  — ",  dev_str  ); 

inform(  message  ); 

list_f ile  * openFile ( "/tmp/code . 1st ",  "w",  "archive"  ); 
if  ( list_f ile  « NULL  ) 
return; 

else 

( 

fprint f ( list_f ile,  "\n\tLISTING  OF  FILES  READ  FROM  DEVICE  (%s) ",  dev_str  ); 

f pr  int f ( 1 i s t _f  i 1 e,  "\n\t \n\n\n"  ); 

fclose  { list_file  ); 

} 

chdir  (CodeGroups) ; 

sprint f ( syscmd,  "tar  xvf  %s  %s/%s  >>/tmp/code . 1st  2>>/tmp/code . 1st", 
dev_str,  CodeGroups,  grp_name) ; 
system  (sys_cmd); 

chdir  (AMSupport); 

sprintf (sys_cmd,  "tar  xvf  %s  %s/%s.dat  >>/tmp/code . 1st  2>>/tmp/code . 1st ", 
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dev_st r , AMSupport,  grp_name) ; 
system  (sys_cmd); 

clear_inform  (}  ; 

display_f ile ( LIST,  "/tmp/code . 1st " ); 
system  ( "rm  -f  /tmp/code . 1st " ); 

/* 

* If  the  group  doesn't  exist,  then  add  it  to 

* GroupNames  file. 

*/ 

i f ( ! found) 

{ 

strcpy {Grouplnfo [NumOfGroups] .name,  grp_name) ; 

Grouplnfo [NumOfGroups++] .disposition  - 1; 

if  (!(grpfile  = openFile  (GroupNamesFi le,  "a",  "archive1'))) 
return; 

fprintf (grpf i le,  "%s  1" , grp_name) ; 
fclose (grpf ile) ; 

) 

) 

/* 

* User  wants  to  list  device. 

*/ 

else  if  ( rc  ==  ARCHJLIST  ) 

list_f ile  * openFile ( "/tmp/code . 1st",  "w"f  "archive"  ); 
if  ( list_file  --  NULL  ) 
return; 

else 

fprintf  ( list_f ile,  "\n\tLISTING  OF  FILES  ON  DEVICE  <%s)",  dev_str  ) 

fprintf ( list_f ile,  "\n\t \n\n\n-  ); 

fclose  ( list_file  ) ; 


user_ack ( " Insert  media  into  device,  OK  when  inserted",  HELP_U_ACK) ; 

sprintf  ( sys_cmd,  "tar  tf  %s  >>/tmp/code  . 1st  2>>/tmp/code . 1st",  dev__str  ) 
sprintf  ( message,  "Please  wait,  reading  device  (%s)...n,  dev_str  ); 
inform ( message  ); 

if(  system ( sys_cmd)  ==  ERROR  ) 

{ 

clear_inform () ; 

sprintf  ( message,  "Error  reading  device  (%s)",  dev_str  ); 
user_ack{  message,  HELP_U_ACK  ); 

) 

else 

{ 

clear_inform () ; 

display_file(  LIST,  "/tmp/code . 1st " ); 

) 

system ( "rm  -f  /tmp/code . 1st  2>>/tmp/code .err"  ); 

) 

chdir (workDir) ; 

) 
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* 

* 

* 

* 

* 

* 

* 

★ 

* 

* 

* 

* 

* 

* 


MODULE  NAME:  get_arc_funct { prompt  ) 

MODULE  FUNCTION: 

Function  prompts  user  for  the  type  of  backup/restore  operation  to  perform: 
read,  write,  or  list. 

SPECIFICATION  DOCUMENTS: 

/code/specs/code 


it 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

■* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 


* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

*******■*******★***★★★*★***■***************< 


int  get_arc_funct ( prompt  ) 
char  *prompt; 

{ 

Arg  args [1] ; 

/* 

* Display  the  archive  function  popup. 

*f 


XtSetArg (args [0] , XmNlabelSt ring, XmSt r ingLtoRCreate (prompt , XmSTRING_DEFAULT_CHARSET ) ) ; 
XtSetValues ( lbl_arch,  args,  1 ); 


if  ( SetNum  1 ) 

XtSetArg ( args[0],  XmNwidth,  (250+ ( 4*strlen (prompt )) ) ); 

else 

XtSetArg ( args[0J,  XmNwidth,  (300+ ( 8 *strlen (prompt) ) ) ); 
XtSetValues{  frm_arch,  args,  1 ); 


process_popup ( dlg_arch,  WAIT  ); 
/* 

* Return  the  user's  selection. 

V 


return  ( Get  Funct_Stat  ); 


) 


cbr_exit.c 


♦include  <X11/Intrinsic.h> 
extern  Widget  top; 

/***********★***★**•**********************< >*****■*****★****************★*★**★**★**** 

* 

* MODULE  NAME:  cbr_exit_code ( widget,  closure,  calldata  ) 

* 

* 

* MODULE  FUNCTION: 

* 

* Contains  the  call  back  function  which  is  used  to  exit  the  Comp  Builder. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

★ 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

****************************************<- 


XtCallbackProc  cbr _exit  code  ( widget,  closure,  calldata  ) 


{ 


Widget  widget; 


caddr  t closure. 


calldata; 


/*  set  to  the  widget  which  initiated  this  callback 

* function. 

*/ 

/*  Callback  specific  data.  This  parameter  is  not 

* used  by  this  function. 

*/ 

/*  Specifies  any  callback-specific  data  the  widget 

* needs  to  pass  to  the  client.  This  parameter  Is 

* is  not  used  by  this  function. 

*/ 


XEvent  event;  /*  Event  structure  needed  to  make  the  calls  to  the 

* XtNextEvent  and  XtDi spatchEvent  functions. 

*/ 

/* 

* Destroy  the  root  application  shell  widget  and  thereby,  all  subordinate  widgets  which 

* make  up  the  window  and  any  popup  windows  used  for  menus. 

V 


XtDestroyWidget  { top  ) ; 


/* 

* Determine  if  any  events  have  been  queued.  These  will  normally  be  events  which 

* cause  the  widgets  destroy  callback  to  be  executed.  Waiting  and  then  processing 

* the  events  insures  that  all  data  structures  initialized  by  the  widgets  are 

* properly  deallocated. 

V 


XtNextEvent  ( fievent  ) ; 

XtDispatchEvent  ( sevent  ) ; 


/* 

* Close  the  display  to  deallocate  any  connections  set  up  by  X Windows.  Next 

* exit  from  the  client. 

*/ 

XCloseDisplay  ( XtDisplay (top)  ); 
exit  ( 0 ); 
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#include  <stdio.h> 

#include  <Xll/Intrinsic .h> 

#include  <Xm/Text .h> 

.#  include  "code .h" 

^include  "widgets. h" 

extern  XtCallbackProc  cbr_code_exit <) ; 

/******************★*********************< — 

★ 

* MODULE  NAME:  cbr_code— menu { widget,  closure,  calldata  ) 


* MODULE  FUNCTION: 

* 

* Call  back  function  which  servers  as  the  main  Comp  Builder  menu. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

★ 

* Motif  Release  1.0  - 90/03/16 

* 

******************★*********************< — -——>****************************************/ 

XtCallbackProc  cbr_code_menu  { widget,  closure,  calldata  ) 

Widget  widget;  /*  Set  to  the  widget  which  initiated  this  callback 

* function. 


caddr  t closure. 


/*  Callback  specific  data.  This  parameter  will  be 

* be  set  to  a value  which  identifies  the  selected 

* command. 


calldata; 


/*  Specifies  any  callback-specific  data  the  widget 

* needs  to  pass  to  the  client.  This  parameter  is 

* is  not  used  by  this  function. 


static  int  newToken; 


/*  This  is  the  token  selected  by  the  user. 
*/ 


int  oldCompNumber, 

oldDisposit ion, 
oldGroupNumber, 
rc, 

reDraw, 

type; 

char  oldCompName  [ PATH_LEN  ] , 

oldGroupName [ PATH_LEN  ]; 

XmTextPosition  ptr; 


newToken  = (int) closure; 


/* 

* If  the  current  mode  is  RUN,  determine  which  token  was  selected  by  the  user 

* and  either  change  the  mode  or  execute  the  corresponding  routine. 

*/ 


if  ( theMode  =-=  RUNmode  ) 
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reDraw  = TRUE; 

tf  ( newToken  ***  QUIT  ) 

{ 

if  ( NeedToSave  ) 

if{  ask ("Do  you  want  to  save  your  latest  work  before  exiting?")  ) 
save  < SHOW_MSG  ) ; 

if  ( ask ("Are  you  sure  you  want  to  exit?")  ) 

cbr_exit_code ( widget,  closure,  calldata  ); 
reDraw  = FALSE; 

} 


else  if  ( newToken  « BACKUP  ) 

{ 

archive  ()  ; 
reDraw  = FALSE; 

) 

else  if  ( newToken  ==  COPY  ) 

{ 

if  ( Disposition  » NO_GROUP  } 

user_ack ( "No  group  selected;  nothing  to  copy",  HELP_U_ACK) ; 

else 

{ 

if  ( NeedToSave  ) 

save ( NO_SHOW  ) ; 
copy ( ) ; 

) 

displayWA(  Comp  ); 

} 

else  if  ( newToken  **  EDIT  ) 

{ 

if  ( Disposition  *=*  N0_J3R0UP  ) 

user  ack("No  group  selected;  nothing  to  edit",  HELP_U_ACK) ; 

else 

edit(); 

reDraw  * FALSE; 

} 

else  if  ( newToken  =*=  SAVE  ) 

{ 

if  ( Disposition  « NO_GROUP  ) 

user_ack  ( "No  group  selected;  nothing  to  save",  HELP_U_ACK) ; 

else 

save { SHOW_MSG  ) ; 
reDraw  - FALSE; 

} 


/* 

* User  wants  to  select  fonts. 

*/ 

else  if  ( newToken  « FONTS  ) 

{ 

PopupHelp  * HELP_FONTS; 

SaveWorkAFont  * WorkA; 
set_font_tgl () ; 

process_popup ( dlg_font,  WAIT  ); 

) 

/* 

* User  wants  to  select  fonts. 

*/ 


else  if  ( newToken  ==  DEVICE  ) 

{ 

PopupHelp  **  HELP_DEVICE; 
SaveDevice  = Device; 
set_device_tgl () ; 

process_popup ( dlg_device,  WAIT  ); 

) 


* User  wants  to  print  files. 

*/ 
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else  if  ( newToken  ==  HARDCOPY  ) 

{ 

if  < Disposition  « NO_GROUP  ) 

user_ack (“No  group  selected;  nothing  to  print" 

else 

{ 

if  ( NeedToSave  ) 

save  ( NO_SHOW  ) ; 
hardcopy {) ; 

} 

reDraw  = FALSE; 

} 


HELP_U_ACK) ; 


else  if  ( newToken  INSTALL  ) 

{ 

if  ( Disposition  «»  NO_GROUP  ) 

user_ack  ("No  group  selected;  nothing  to  install",  HELP_U_ACK) ; 

else 

( 

if  ( NeedToSave  ) 

save ( NO_SHOW  ) ; 
select_cursor ( Clock_Cursor  ); 
install ( ) ; 

} 

} 


else  if  { newToken  **  REMOVE  ) 

{ 

if  ( NeedToSave  ) 

if(  ask ("Do  you  want  to  save  your  latest  work  first?")  ) 
save ( SHOW_MSG  ) ; 


remove ( ) ; 

reDraw  « FALSE; 

} 


/* 

* The  token  selected  is  DELETE,  check  to  make  sure  there  is  a valid  Comp 

* in  the  work  area. 

*/ 

else  if  ( newToken  — DELETE  ) 

{ 

if  { Disposition  **  NO_GROUP  ) 

{ 

user_ack("No  group  selected;  nothing  to  delete",  HELP_U_ACK) ; 
return; 

} 

/* 

* If  there  are  valid  tokens,  then  delete  the  last  one. 

*/ 

delete  ()  ; 

/* 

* If  we  are  down  to  the  last  token,  then  start  the  comp  over  again  by 

* getting  the  header. 

*/ 

if  ( ChoiceCounter  < 1 ) 
get_beader  ()  ; 

displayWA(  Comp  ); 

ptr  * XmTextGetLastPosition  { txt_worka  ); 

XmTextShowPosit ion ( txt_worka,  ptr  ); 

) 

/* 

* The  token  selected  is  RETRIEVE,  give  the  user  a chance  to  save  the  previous 

* work. 

*/ 

else  if  ( newToken  **  RETRIEVE  ) 

{ 


if  ( NeedToSave  ) 
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( ask ("Do  you  want  to  save  your  latest  work  first?")  ) 
save ( SHOW_MSG  ) ; 

* Keep  the  old  name/number  around  in  case  the  user  aborts  from  the  retrieve. 

* Get  a group  name  from  the  user  to  retrieve. 

*/ 

strcpy(  oldGroupName,  GroupName  ); 
oldGroupNumber  * GroupNumber; 
oldDisposit ion  = Disposition; 

re  = get  name ( NumOfGroups,  "Group",  GroupName,  ^GroupNumber,  ^Disposition  ); 

if  ( rc  !»  ERROR  ) 

{ 

/* 

* Keep  the  comp  name  and  number  around  in  'old'  variables  in  case 

* the  user  aborts  the  get_name.  If  we  do  not  have  an  error  getting 

* the  name,  then  retrieve  the  chosen  comp. 

*/ 


oldCompNumber  * CompNumber; 
strcpy(  oldCompName,  CompName  ); 
strcpy(  CompName,  " " ); 
put_status { ) ; 

rc  » get  name ( NumOfComps,  "Comp",  CompName,  ^CompNumber,  ^Disposition  ); 

if  ( rc  !=  ERROR  ) 

( 

select_cursor ( Clock_Cursor  ); 
retrieve  ()  ; 
displayWA(  Comp  ); 
select_cursor { Shutt le_Cursor  ); 

} 

else 

{ 

strcpy(  GroupName,  oldGroupName  ); 
strcpy(  CompName,  oldCompName  ); 

Disposition  **  oldDispos  it  ion ; 

GroupNumber  =*  oldGroupNumber; 

CompNumber  = oldCompNumber; 
reDraw  = FALSE; 


if  ( Disposition  !*  NO_GROUP  ) 
readCompNames () ; 

} 

) 

else 

{ 

strcpy(  GroupName,  oldGroupName  ); 
Disposition  * oldDisposit ion; 
GroupNumber  = oldGroupNumber; 
reDraw  - FALSE; 

} 


} 

/* 

* The  token  selected  is  CREATE,  give  the  user  a chance  to  save  the  previous 

* work. 

*/ 


else  if  ( newToken  *•  CREATE  ) 

{ 

if  ( NeedToSave  ) 

if ( ask ("Do  you  want  to  save  your  latest  work  first?”)  ) 
save  { SHOW_MSG  ) ; 

/* 

* If  there  are  zero  groups  then  they  must  want  a new  group  since 

* comps  must  be  associated  with  a group,  otherwise,  determine  if 

* the  user  wants  a new  Group  or  a new  Comp. 

*/ 


if  ( NumOfGroups  < 1 ) 
type  * GROUP; 
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else 

type  = get_t ype_gc { "Would  you  like  a new  Group  or  Comp?"  }; 
if  ( type  ==  ABORT  ) 

{ 

put_status {) ; 
return; 

} 

} 

/* 

* User  wants  a new  Group. 

*/ 

if  { type  =-  GROUP  ) 

{ 

if  ( new { "Group" ) !-  DEFAULT  ) 

if  { new ("Comp")  !=  DEFAULT  ) 
get_header ( ) ; 

} 

/* 

* User  wants  a new  Comp. 

*/ 

else  if  ( type  **  COMP  ) 

{ 

/* 

* Get  the  name  of  the  group  to  put  the  new  comp  into. 

*/ 

rc  - get__name  { NumOfGroups,  "Group",  GroupName,  fiGroupNumber,  iDisposit ion) 
if  { rc  !-  ERROR  ) 

{ 

put_status ( ) ; 

/* 

* Read  the  existing  comps  associated  with  this  group. 

*/ 

readCompNames () ; 

) 

/* 

* Create  the  new  comp. 

*/ 

if  { new ( "Comp")  !=  DEFAULT  ) 
get_header ()  ; 

) 

/* 

* Clear  the  “NEW"  widget. 

*/ 

displayWA{  Comp  ); 

} 


/* 

* The  token  selected  is  1 SHOT  or  CYCLIC. 

*/ 

else  if  ( (newToken  « TGL_1SH0T)  j|  (newToken  « TGL_CYCLE) ) 

{ 

if  { newToken  ==  TGL__1SH0T  ) 

set_cycle__mode  ( ONE_SHOT  ) ; 
if  ( newToken  TGL_CYCLE  ) 
set_cycle_mode { CYCLIC  ); 
put_status {) ; 
reDraw  = FALSE; 

} 

/* 

* The  token  selected  is  LIST,  call  the  correct  List  routine. 
*/ 

else  if  ( newToken  » LIST_MSID  ) 
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widget  ) ; 


token_help ( MSID,  LIST, 

else  if  ( newToken  =*  LIST_SIGNAL  ) 

token_help ( SIGNAL,  LIST,  widget  ); 

else  if  ( newToken  ==  LIST_FUNCT  } 

token_belp ( FUNCTION,  LIST,  widget  ); 
else  if  ( newToken  **  LIST_CYCLE  ) 

display_f ile ( LIST,  " . / CYCLE_MODES"  ); 


/* 

* The  token  selected  is  HELP,  change  to  the  HELP  mode,  display  a message  to 

* the  user  that  he/she  is  in  HELP  mode. 

*/ 

else  if  { newToken  ==  HELP_TOKENS  ) 

{ 

theMode  *=  HELP; 

/* 

* Set  all  widgets  to  sensitive. 

*/ 

PopupHelp  = HELP_HLP; 
all_valid  {) ; 

select_cursor ( Help_Cursor  ); 
process_popup  { dlg__help,  NO_WAIT  ); 
reDraw  = FALSE; 

} 

else  if  ( newToken  ==  HELP_MANUAL  ) 

{ 

token_help(  TOC,  HELP,  widget  ); 
reDraw  = FALSE; 

} 

/* 

* The  token  selected  must  be  a Comp  element.  If  the  token's  function  pointer 

* is  NULL,  then  the  current  function  is  not  yet  implemented,  notify  the  user. 

* If  the  function  pointer  is  not  NULL,  execute  the  token's  action  function. 

*/ 

else 

{ 

if  ( tokens ( newToken  ]. function  ==  NULL  ) 

{ 

user_ack ( "This  function  is  not  yet  implemented",  HELP_U_ACK) ; 
reDraw  = FALSE; 

) 

else 

{ 

if  { tokens  [ newToken  ] . id  ) 

(* {tokens [ newToken  ]. function))  { newToken  ); 

else 

(* {tokens [ newToken  J. function))  {); 

) 

) 


/* 

* Update  the  screen,  change  the  valid  tokens  list, 
*/ 


if  ( reDraw  ) 

{ 

color_valid(  PrevChoice [ChoiceCounter-1] , newToken  ); 
put_status  () ; 

} 


} 


/* 

* User  selected  Token  Help  then  a token,  display  the  help 

* for  the  selected  token. 

*/ 

else  if  ( theMode  ==  HELP  ) 

{ 

theMode  = RUNmode; 
select_cursor ( Shutt le_Cursor  ); 
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token_help{  newToken,  HELP,  widget  ); 

/* 

* Restore  the  list  of  valid  tokens. 

*/ 

color_valid ( IGNORE,  IGNORE  ); 
return; 

) 


XtUnmanageChild { dlg_help 


* 


* FILE  NAME:  cbrjpopups.c 


cbr_popups.c 


* FILE  FUNCTION: 

* 

* Contains  the  callback  routines  for  all  popup  buttons. 


* 

* SPECIFICATION  DOCUMENTS: 

* 


* /code/specs/code 

* 

* 


* FILE  MODULES: 


cbr_clear_get_name () 
cbr_clear_popup ( ) 
cbr  show  help ( ) 


- clears  the  get_name()  popup 

- callback  to  clear  popups 

- callback  to  clear  help  popup 


# include 
# include 
finclude 
#include 
#include 


<stdio .h> 

<X11/ Intrinsic ,h> 
<Xm/Xm.h> 

"code .h" 

"widgets ,h" 


cbiLpopups.cf 


* 

* MODULE  NAME: 


* 

* 


cbr_c lear__get_name  { widget,  closure,  calldata  ) 


* MODULE  FUNCTION: 

* 

* Callback  routine  to  clear  the  get  group/comp  name  popup. 

* 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

Hr 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 


XtCallbackProc  cbr_clear_get_name ( widget,  closure,  calldata  ) 

Widget  widget; 
caddr_t  closure, 
calldata; 


if  t (int)  closure  ==  GN_HELP  ) 

token_help<  PopupHelp,  HELP,  NULL  ); 

else 

{ 

Get_Name_Stat  = (int)  closure; 
PopupStat [ ActivePopup  ] = TRUE; 
XtUnmanageChi Id ( dlg_gname  ); 

) 


\ 


cbr_popups.c 

/★********************★**************★***< >*************************************+** 

it 

* MODULE  NAME:  cbr_clear_popup { widget,  closure,  calldata) 

* 

* 

* MODULE  FUNCTION: 

* 

* Callback  routine  to  handle  all  the  popup  buttons. 

* 

■* 

* SPECIFICATION  DOCUMENTS: 

★ 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

****************************************< >*w***************+**********************/ 


XtCallbackProc  cbr_clear_popup ( widget,  closure,  calldata  ) 

Widget  widget; 
caddr_t  closure, 
calldata; 


/* 

* Determine  which  button  the  user  pushed,  act  accordingly. 

*/ 


switch  ( 

{ 

case 

case 

case 

case 


case 


case 


case 

case 


case 


case 


case 


case 


case 


case 


(int)  closure  ) 

ARCH_READ  : 
ARCH  LIST  : 
ARCH_WRITE  : 
ARCH_CANCEL: 

Get  Funct  Stat  - (int)  closure; 

XtUnmanageChild { dig  arch  ); 
break; 

ASK_NO  : 

Ask_Resp  * FALSE; 
XtUnmanageChild ( dlg_ask  }; 
break; 

ASK_YES  : 

Ask  Resp  = TRUE; 
XtUnmanageChild { dlg_ask  ); 
break ; 

FILE_OK  : 

XtUnmanageChild ( dlg^file  ); 
break; 

FONT_CANCEL: 

WorkA  - SaveWorkAFont ; 

XtUnmanageChild ( dlg_font  ); 
break ; 

FONT_OK  : 

set  size  0 ; 

XtUnmanageChild ( dlg_font  ); 
break; 

GC__COMP  : 

XtUnmanageChild ( dig  gc  ); 
Get_GC_Stat  * COMP; 
break; 

GCJ3ROUP  : 

XtUnmanageChi Id ( dig  gc  ); 
Get_GC_Stat  = GROUP; 

break; 

GC_CANCEL  : 

XtUnmanageChild { dlg_gc  ); 
Get_GC_Stat  = ABORT; 
break; 

G_OK 

Get_Str_Stat  = ACCEPT; 
theMode  = RUNmode; 

break; 

G CANCL  : 

Get  Str  Stat  = ABORT; 

theMode  =>  RUNmode; 

break; 




case  HELLO 
case  HELP  CANCEL 


cbr_popups.c 

XtUnmanageChild ( dlg_hello  ); 
break; 

XtUnmanageChild ( dlg_help  ); 
color_valid ( IGNORE,  IGNORE  ); 
theMode  = RUNmode; 
select_cursor ( Shutt le_Cursor  ); 
break; 


case  HELP_CLOSE 

case  INFORM 
case  SHORT 
case  INTEGER 
case  FLOAT 
case  DOUBLE 
case  CHAR 


case  TGL_DEV1 
case  TGL_DEV2 
case  TGL_DEV3 
case  T_CANCL 
case  TGL_WA_DE 
case  TGL_WA_0 1 
case  TGL_WA_02 
case  USER  ACK 


XtUnmanageChild ( dlg_help_txt  ); 

break; 

break; 


XtUnmanageChild { dlg_type  ); 
Get_Type_Stat  = (int)  closure; 
break; 

Device  - DEVI; 
set_device_tgl () ; 
break; 

Device  * DEV2 ; 
set_device_tgl ()  ; 
break; 

Device  * DEV3; 
set_device_tgl ()  ; 
break; 

XtUnmanageChild { dlg_type  }; 
Get_Type_Stat  = ABORT; 
break; 

Work A = DEFAULT; 
set_font_tgl { ) ; 
break; 

WorkA  * 0PTI0N1_F0NT; 
set_font_tgl  ()  ; 
break; 

WorkA  * 0PTI0N2_F0NT; 
set_font_tgl {) ; 
break; 

XtUnmanageChild { dlg_ack  ); 
break; 


case  DEVICE  CANCEL 


case-  DEVICE_OK 

} 


XtUnmanageChild ( dlg_device  ); 

Device  - SaveDevice; 

break; 

XtUnmanageChild ( dlg_device  ); 
break; 


PopupStat [ ActivePopup  ] * TRUE; 

} 


cbr_popups;c 


/ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

★ 


*************************★**************< >***★* *************************  ********** 

MODULE  NAME:  cbr_show_he lp ( widget,  closure,  calldata) 

MODULE  FUNCTION: 

Callback  routine  to  handle  requests  for  popup  help. 

SPECIFICATION  DOCUMENTS: 

/code /specs /code 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

***************** ****************** ***★*< >************  ****************************/ 


XtCallbackProc  cbr_show_help { widget,  closure,  calldata  ) 

Widget  widget; 
caddr_t  closure, 
calldata; 


/* 

* Determine  which  popup  wants  help,  display  the  corresponding  help  text. 
*/ 


switch  ( (int)  closure  ) 

{ 

case  FILE_HELP  : process_popup ( dlg_help_txt , WAIT  ); 
break ; 

case  GC_HELP  : token_help(  HELP_GC,  HELP,  NULL  ); 
break; 

case  HELP_HELP  : token_help(  PopupHelp,  HELP,  NULL  ); 

select_cursor ( HelpjDursor  ); 
break ; 

case  ARCH_HELP  : 
case  T_HELP  : 

case  ASK_HELP  : 
case  DEVICE_HELP: 
case  FONT_HELP  : 
case  G_HELP  : 

case  USER_HELP  : token_help(  PopupHelp,  HELP,  NULL  ); 
break; 


} 


} 


cbr_popups,h 

* 

* FILE  NAME:  cbr_popups.h 

* 


* FILE  FUNCTION: 

* 

* This  file  contains  the  callback  function  prototypes  and  the  callback  list 

* structures  used  to  construct  the  popups. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* FILE  MODULES: 

* 

* N/A 

* 

******************************************  < a***************************************/ 

/* 

* Function  prototypes  for  callback  routines. 

*/ 

XtCallbackProc  cbr_code_menu () , 

cbr_clear__get_name  {)  , 
cbr_clear_popup () , 
cbr_exit_code () , 
cbr_show_help ( ) ; 


/* 

* Callback  list  structures. 

*/ 

XtCallbackRec  clear_get_name []  * ( 

{ (XtCallbackProc) cbr_clear_get_name, (caddr_t) NULL  ), 
{ (XtCallbackProc) NULL,  (caddr~t ) NULL  } 

}; 


XtCallbackRec  clear_popup [ ] * { 

( (XtCallbackProc) cbr_clear_popup, (caddr_t ) NULL  }, 
{ (XtCallbackProc) NULL,  (caddr_t ) NULL  ) 

} ; 


XtCallbackRec  clear_popupl [ ] * { 

( (XtCallbackProc) cbr_clear_popup, (caddr_t) NULL  }, 
{ (XtCallbackProc) NULL,  (caddr_t) NULL  ) 

} ; 


XtCallbackRec  code_menu[]  * ( 

{ (XtCallbackProc) cbr_code_menu, (caddr_t) NULL  }, 
{ (XtCallbackProc) NULL,  (caddr_t ) NULL  } 

}; 


XtCallbackRec  exit_code[]  - { 

{ (XtCallbackProc) cbr_exit_code, (caddr_t) NULL  }, 
{ (XtCallbackProc)  NULL,  (caddr__t ) NULL  } 

} ; 


XtCallbackRec  gc_comp[]  *»  ( 

{ (XtCallbackProc) cbr_clear_popup, (caddr_t) NULL  }, 
{ (XtCallbackProc) NULL,  (caddr_t ) NULL  ) 

) ; 


XtCallbackRec  gc_group [ ] = { 

( (XtCallbackProc) cbr_clear_popup, (caddr_t) NULL  ), 
{ (XtCallbackProc) NULL,  (caddr_t ) NULL  } 

}; 


XtCallbackRec  show_helpf]  * { 

{ (XtCallbackProc) cbr_show_help, (caddr_t) NULL  }, 
{ (XtCallbackProc) NULL,  (caddr_t) NULL  } 

); 


♦include  <stdio .h> 


♦include  <X11/Intr insic .h> 
♦include  <Xm/Xm.h> 

♦include  "code .h" 

♦include  "tokens. h" 


/*★*★****★★**★**★************************< >*****★*★**★**********■***'***********★**★★ 

* 

* MODULE  NAME:  main ( argc,  argv  ) 

* 

* 

* MODULE  FUNCTION: 

* 

* Main  function  of  CODE.  Inititalizes  the  X Windows  system,  builds  all 

* application  widgets,  initializes  all  files  and  paths,  and  then  begins 

* main  menu. 

* 


* 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 


* Timothy  J.  Barton 

* 

★ 

* 


Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


★ 


★ 

* REVISION  HISTORY: 

★ 

* Motif  Release  1.0  - 90/03/16 

* 

***********************★★****★**********< >*★★*************************************/ 


main ( argc,  argv  ) 
int  argc; 

char  **argv; 

{ 

ActivePopup  - -1; 

/* 

* Initialize  the  X Windows  system  and  build  all  widgets  and  popups. 

*/ 

init_graphics { argc,  argv  ); 

/* 

* Initialize  any  files  and  paths  required  by  CODE. 

*/ 

if  ( init_code ( ) =*  ERROR  ) 
cleanExit ( ) ; 

/* 

* Enter  the  normal  Xtoolkit  main  loop,  which  coordinates  processing  of  the  various 

* widget  events.  This  loop  will  terminate  normally  when  the  user  selects  the  "Quit" 

* command,  which  in  turn  causes  the  exit_code  callback  routine  to  be  executed. 

V 

XtMainLoop  { ) ; 

/* 

* Program  should  exit  via  cbr_exlt(),  but  let's  make  lint  happy. 

*/ 


} 


return { OK  ) ; 


code.h 


* 

* 

* 

★ 

★ 

* 

* 

* 

* 


FILE  NAME:  code.h 

FILE  FUNCTION: 

This  file  contains  the  declaration  of  the  Comp  Builder  global  variables  and 
defines  many  of  the  data  structures  which  are  maintained. 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

★ 


* 

* FILE  MODULES: 

* 


* N/A 


* 


#include  "code_const .h" 

# include  “code  extern. hM 


/* 

* Structure  definitions 
*/ 

struct  comp_info_st ruct 

{ 

char  name [ MAX_NAME_LEN  ] , 

purpose [ 80  ]; 
int  cycle_mode, 

disposition, 
noise_filter, 
on_of f , 
rate; 

}; 

struct  comp_info_st ruct  CompInfo[  MAX_COMPS+l  ]; 


struct  group_info_st ruct 

{ 

char  name  [ MAX__NAME__LEN  ] ; 

int  disposition; 

} ; 

struct  group__info_struct  GroupInfo[  MAX_GROUPS  ]; 


struct  msid_tbl_struct 

{ 

char  name [ MSID_NAME_LEN  ] , 
type[  TYPE_LEN  ], 
nomenclature [ NOMEN_LEN  ] ; 

} ; 

struct  msid_tbl_struct  MSIDTable[  MAX_NUM_MSIDS  ]; 


struct  sig_tbl_struct 

{ 

char  name [ SIGNAL_NAME_LEN  ], 
type [ TYPEJ.EN  ]; 
int  putter_count ; 

char  putter  [ MAX_SETTERS  ][  MAX__NAME_LEN  + MAX_NAME_LEN  + 2 

int  getter_count ; 

char  getter [ MAX_SETTERS  ][  MAX_NAME_LEN  + MAX_NAME_LEN  + 2 

char  nomenclature [ NOMEN_LEN  ]; 

In- 
struct sig_tbl_st ruct  SignalTable[  MAX_NUM_S IGN ALS  ]; 


3; 


]; 


code.h 


struct  token_tag 

{ 

char  name [ MAX_TOKEN_NAME  ]; 

int  help, 

(*funct ion)  ()  , 
id; 

) ; 


struct  var 
{ 

char 

struct 

class  [ 

TYPE  LEN  ], 

name  [ 

MAX  VAR  LEN 

type  [ 

TYPE  LEN  J, 

nomenclature [ 

NOMEN  LEN  ] 

int 

occurrence, 

put_or_get ; 
float  hil_limit, 
hi2_limit, 
lol_limit, 
lo2_limit; 

) ; 

struct  var_struct  CompVars  [ MAX_COMP_VARS  ], 
GroupVars [ MAX_GROUP_VARS  ] ; 


/* 

* Globals 


*/ 

char 

AM 

f PATH  LEN  ]f 

AMGroups 

[ PATH_LEN  ], 

AMSupport 

[ PATH  LEN  }, 

Code 

[ PATH  LEN  ], 

CodeDocs 

[ PATH  LEN  ] , 

CodeGroups 

[ PATH  LEN  3, 

Comp 

[ MAX  COMP  LEN  ] 

/ 

CompareType 

[ MAX_COMP ARES  j 

[ TYPE_LEN  1, 

CompName 

[ MAX  NAME  LEN  ] 

, 

Funct ionList 

[ MAX  NUM  FUNCS] 

[ FUNC_NAME_LEN  ] , 

GroupName 

[ MAX~NAME_LEN  ] 

9 

GroupNamesFile 

[ PATH  LEN  3 , 

Help  Txt  Str 

[ 250  j , 

List -Txt  Str 

[ 250  ], 

MSIDTbl 

[ PATH  LEN  3 , 

RTDS 

[ PATH  LEN  ], 

SignalTbl 

[ PATH  LEN  3, 

UserFuncs 

[ MAX_NUM_FUNCS 

] [ FUNC_NAME_LEN  3 , 

UserFuncsLib 

[ PATH_LEN  ]; 

int  ActivePopup, 

Ask_Resp, 

ChoiceCounter,  /*  An  index  into  the  PrevChoice  array  of  tokens  */ 
ColorMap [32] , /*  array  to  store  and  restore  the  color  map  */ 
CompNumberf  /*  The  index  of  the  comp  in  the  group_info  structure  */ 
Cycle_Mode,  /*  Cycle  Selection  Mode  */ 
Disposition, 

Equation,  /*  LHS  or  RHS  */ 
FunctionCount,  /*  The  number  of  functions  used  in  a comp  */ 
Funct ion Argument s [MAX_NUM_FUNCS] , /*  The  number  or  arguments  needed  to  satisfy  the  function  */ 
Funct ionArgsDef [MAX_NUM_FUNCS] , /*  The  number  or  arguments  entered  thus  far  */ 


Funct ionCurrent , 

FuncParenCount , 

Get_Funct__5tat , 

Get_GC_Stat, 

Get_Name_Stat , 

Get_Str_Stat , 

Get_Type_Stat , 

GroupNumber, 

Like lyNext Choice, 

MSIDCount , 

NeedToSave, 

NestedElseCheck [MAX_NESTED_IF} , /*  Used  in  next_inputs  to  determine  if  else  is  valid  */ 

NumCompVars,  /*  Used  in  save,  retrieve,  var_check.  The  number  of  variables  used  in  a comp.  */ 
NumGroupVars,  /*  Used:  save,  retrieve.  Number  variables  used  in  a group.  */ 

NumOfComps,  /*  The  number  of  comps  in  the  active  group  */ 


/*  Function  currently  trying  to  satisfy  arguments  for  */ 

/*  The  paren  count  for  function  argument  definitions  */ 


/*  The  index  of  the  group  in  the  group_list  structure  */ 
/*  Token  to  position  the  mouse  over;  menu(),  next_inputs ()  */ 
/*  The  number  of  msids  read  from  the  tag_msid_tbl  */ 
/*  TRUE  means  we  have  made  changes  to  the  WA  comp  */ 


PM 


code.h 


NumOfGroups, 

/* 

The 

number 

NumberOf If s, 

/* 

The 

number 

NumberOfEndif s, 

/* 

The 

number 

NumberOfCompares, 

/* 

The 

number 

s,  j NumberOfUserFuncs, 

/* 

the 

number 

PopupHelp, 

PopupStat [5] , 

ParenCount, 

/* 

The 

number 

PrevChoice [MAXJTOKENS ] , 

/* 

An  : 

integer 

£?*  SetNum, 

/* 

*/ 

SignalCount , 

/* 

The 

numbe  r 

theMode, 

TotValPts, 

/* 

The 

number 

ValidPoints [NUMBER_OF_OPTIONS] , 

/* 

The 

list  o! 

WaitCursor, 
Where Ami; 


/*  Either  PREMISE  or  CONSEQUENCE 


int  Device, 

SaveDevice, 
SaveWorkAFont , 
WorkA, 

BT_Height, 
EL_Height, 
ST_Height , 
WA_Height , 

BT_Width, 

EL_Width, 

FM_Width; 

char  BT_Font  [30], 

EL_Font [30] , 
*EL_IColor , 
Font_Default [30] , 
*Font_Optionl, 
*Font_Opt ion2, 
*ST_Font, 

*WA_Font ; 

Cursor  Clock_Cur sor , 

HeIp_Cursor, 
Shuttle  Cursor; 


Display  *display; 

Pixel  insensit ive_color , 

sensit ive_color; 

XmFontList  Fnt_List, 

Fnt  List  Btn; 


code_const.h 

*'*'***  *****************  * *****★******< >********************★*****★************* 

* 

* FILE  NAME:  code_con3t.b 

* 

* 

* FILE  FUNCTION: 

* 

* This  file  contains  all  the  Comp  Builder  program  constants. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/co de 

* 

* 

* FILE  MODULES: 

* 

* N/A 

* 

* 

*****************************************< >*******************■*******************★*/ 


#def ine  NOJSCROLL 
#def ine  SCROLL  BARS 


Constants 


#ifndef 

FALSE 

#def ine 

FALSE 

0 

fendif 

FALSE 

fifndef 

TRUE 

#def ine 

TRUE 

1 

fendif 

TRUE 

fifndef 

NULL 

#def ine 

NULL 

0 

fendif 

NULL 

f define 

ABORT 

-1 

fdef ine 

ACCEPT 

0 

fdef ine 

CMD  LEN 

150 

fdefine 

COMP 

3 

fdef ine 

COMPLETE 

1 

fdefine 

CONSEQUENCE 

1 

fdefine 

CYCLIC 

1 

fdefine 

DEFAULT 

1 

fdefine 

DEVI 

1 

fdefine 

DEV2 

2 

fdefine 

DEV3 

3 

fdefine 

ERROR 

-1 

fdefine 

FIRST_SIGNAL 

"SIG 

fdefine 

FIRST  TIME 

1 

fdefine 

FUNC_NAME_LEN 

11 

fdefine 

GET 

1 

fdefine 

GROUP 

2 

fdefine 

HELP  TEXT  NO 

0 

fdefine 

HELP  TEXT  YES 

1 

fdefine 

IGNORE 

-2 

fdefine 

INCOMPLETE 

0 

fdefine 

INSTALLED 

2 

fdefine 

LARGE 

68 

fdefine 

LHS 

0 

fdefine 

MAX_COMMENT  LEN 

250 

fdefine 

MAX  COMP  LEN 

5000 

fdefine 

MAX_C  OMP  _V  AR  S 

50 

fdefine 

MAX  COMPARES 

100 

fdefine 

MAX_COMPS 

50 

fdefine 

MAX  FUNC  PARAMS 

20 

fdefine 

MAX_GROUP_VARS 

500 

fdefine 

MAX  GROUPS 

100 

fdefine 

MAX  MSG  LEN 

300 

fdefine 

MAX  NAMES 

50 

fdefine 

MAX  NAME  LEN 

14 

/*  was  50  */ 


#def ine 

MAX  NESTED  IF 

12 

#def ine 

MAX  NUM_FUNCS 

100 

#def ine 

MAX  NUM  MS IDS 

4000 

#def ine 

MAX  NUM_SIGNALS 

300 

, ♦define 

MAX  SETTERS 

50 

#def ine 

MAX_STR_LEN 

120 

#def ine 

MAX  TOKENS 

2000 

#def ine 

MAX  TOKEN  NAME 

15 

♦define 

MAX  VAR_LEN 

30 

♦define 

MEDIUM 

67 

♦define 

MS ID  NAME^LEN 

12 

♦define 

NO  COLOR 

0 

♦define 

NO  GROUP 

-2 

♦define 

NO_SHOW 

0 

♦define 

NO  WAIT 

0 

♦define 

NOMEN  LEN 

50 

♦define 

NONE 

0 

♦define 

NULLS 

n fi 

♦define 

NUMBER  OF  OPTIONS 

68 

♦define 

OK 

0 

♦define 

ONE_SHOT 

2 

♦define 

OPTIONl_FONT 

2 

♦define 

OPTION2~FONT 

3 

♦define 

PATH  LEN 

80 

♦define 

PREMISE 

0 

♦define 

PET 

2 

♦define 

PUT 

0 

♦define 

READ 

0 

♦define 

RHS 

1 

♦define 

RUN 

999 

♦define 

RUNmode 

1 

♦define 

SECOND_TIME 

0 

♦define 

SHOW  MSG 

1 

♦define 

SIGNAL  NAME_LEN 

21 

♦define 

SIZE  INDENT 

5 

♦define 

SMALL 

66 

♦define 

TOC 

0 

♦define 

TYPE  LEN 

10 

♦define 

WAIT 

1 

/ ♦define 

WORK  AREA 

66 

♦define 

WRITE 

1 

/* 

code  const.li 


/*  was  800  */ 


* Define  Popup  ids. 


♦define 

ARCH  CANCEL 

101 

♦define 

ARCH_HELP 

102 

♦define 

ARCH  LIST 

103 

♦define 

ARCH  READ 

104 

♦define 

ARCH  WRITE 

105 

♦define 

ASK  HELP 

106 

♦define 

ASK  NO 

107 

♦define 

ASK_YES 

108 

♦define 

DEVICE  CANCEL 

150 

♦define 

DEVICE  HELP 

151 

♦define 

DEVICE_OK 

152 

♦define 

FILE  OK 

109 

♦define 

FILE  HELP 

110 

♦define 

FONT  CANCEL 

111 

♦define 

FONT  OK 

112 

♦define 

FONT_HELP 

113 

♦define 

HELLO 

114 

♦define 

HELP_CANCEL 

115 

♦define 

HELP  CLOSE 

116 

♦define 

HELP  HELP 

117 

♦define 

HELP  TOKENS 

118 

♦define 

HELP  MANUAL 

119 

♦define 

GC  CANCEL 

120 

♦define 

GC  COMP 

121 

♦define 

GC  GROUP 

122 

♦define 

GC_HELP 

123 

♦define 

GN  HELP 

124 

♦define 

G CANCL 

125 

♦define 

G HELP 

126 

♦define 

G OK 

127 

Idefine  INFORM 
Idefine  LIST_CYCLE 
#def ine  LIST_FUNCT 
Idefine  LISTJ4SID 
Idefine  LIST_SIGNAL 
Idefine  TGL_1SH0T 
Idefine  TGL_CYCLE 
Idefine  TGL_DEV1 
Idefine  TGL_DEV2 
Idefine  TGL_DEV3 
Idefine  TGL_WA_DE 
Idefine  TGL_WA_Ol 
Idefine  TGL_WA_02 
Idefine  T_CANCL 
Idefine  T_HELP 
Idefine  USER_ACK 
Idefine  USER  HELP 


128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 


/* 

* Define  menu  selection  ids.  Do  not  change  the  order 

* of  the  following  menu  ids  without  changing  the  tokens 

* structure  in  tokens. h. 

*/ 


Idefine  CREATE  1 
Idefine  EDIT  2 
Idefine  DELETE  3 


Idefine  IF  4 

Idefine  ELSE  5 

Idefine  AND  6 

Idefine  BITXOR  7 

Idefine  BITAND  8 

Idefine  THEN  9 

Idefine  END_IF  10 

Idefine  OR  11 

Idefine  NOT  12 

Idefine  BITOR  13 


Idefine  MSID  14 
Idefine  LOCAL  15 
Idefine  STRING  16 
Idefine  SIGNAL  17 
Idefine  NUMBER  18 


Idefine 

SHORT 

19 

Idefine 

FLOAT 

20 

Idefine 

CHAR 

21 

Idefine 

INTEGER 

22 

Idefine 

DOUBLE 

23 

Idefine 

EQ 

24 

Idefine 

NE 

25 

Idefine 

LE 

26 

Idefine 

GE 

27 

Idefine 

LT 

28 

Idefine 

GT 

29 

Idefine 

SET 

30 

Idefine 

PRINT 

31 

Idefine 

FUNCTION 

32 

Idefine 

COMMENT 

33 

Idefine 

START 

34 

Idefine 

STOP 

35 

Idefine 

RETRIEVE 

36 

Idefine 

SAVE 

37 

Idefine 

INSTALL 

38 

Idefine 

COPY 

39 

Idefine 

REMOVE 

40 

Idefine 

HARDCOPY 

41 

Idefine 

BACKUP 

42 

Idefine 

QUIT 

43 

Idefine 

HELP 

44 

Idefine 

LIST 

45 

Idefine  ADD 


46 


#def ine 

SUBTRACT 

47 

Idef ine 

MULTIPLY 

48 

#def ine 

DIVIDE 

49 

#def ine 

L PAREN 

50 

Idef ine 

R PAREN 

51 

#def ine 

COMMA 

52 

#def ine 

PI 

53 

#define 

SQRT 

54 

#def ine 

POWER 

55 

#def ine 

EXP 

56 

#def ine 

LOG 

57 

Idefine 

SHIFTL 

58 

#def ine 

SHIFTR 

59 

Idefine 

COS 

60 

Idefine 

SIN 

61 

Idefine 

TAN 

62 

Idefine 

ACOS 

63 

Idefine 

AS  IN 

64 

Idefine 

ATAN 

65 

Idefine 

COLORS 

66 

Idefine 

FONTS 

67 

Idefine 

DEVICE 

68 

/* 

* Define  Popup  Help  ID's  - these  are  tied  directly  to  the 

* tokens[]  array  in  tokens. h. 

V 


Idefine 

HELP 

GC 

80 

Idefine 

help" 

G SEL 

81 

Idefine 

help" 

C SEL 

82 

Idefine 

help" 

FONTS 

83 

Idefine 

help" 

~U  ACK 

84 

Idefine 

help" 

"hlp 

85 

Idefine 

help" 

DEVICE 

86 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


FILE  NAME:  code_extern .h 

FILE  FUNCTION: 

This  file  contains  most  of  the  Comp  Builder  function  prototypes. 

SPECIFICATION  DOCUMENTS: 

/code/specs/code 

FILE  MODULES: 

N/A 


* 


* 


V 


Dimension  get_height  {), 

get_width  {), 

get_x  {), 

get_y  0 ; 


FILE  *openFi le  ( ) ; 

Xlmage  *CreateDefault Image  {) ; 


extern  struct  token_tag  tokens []; 


void  all_valid  (), 

archive  ()  , 

arm_toggle  ()  , 

build_get_name  (), 

center_horz  0, 

center_widget  ( ) , 

cleanExit  (), 

cleanSlate  { ) , 

clear_inform  {), 

color_valid  (), 

disarm_toggle  {), 

display_file  (), 

display_str  {), 

displayWA  {), 

edit  (), 

get_defaults  {), 

hello_screen  ( ) , 

inform  {)  , 

init_get_name_popup { ) , 
init_graphics  (), 

LIST_valid  (), 

popup_wait  (), 

process_popup  (), 

select_cursor  (), 

set_btn_de faults () , 
set_cycle__mode  (), 

set_defaults  (), 

set_device_tgl  {), 

set_font_tgl  {), 

token_help  {), 

user^ack  { ) , 

unset_widget  ()  , 

update_SA  {), 

updateWA  {)  ; 

int  load_font  (), 

put_add  ( ) , 

put_and  ()  , 

put_bitAnd  (), 

put_bitOr  ()  , 

put_bitXor  (), 

put_comma  ()  , 


put_conment 

put_divide 

put_else 

put_endi f 

put_eq 

put_func 

put_ge 

put_gt 

put_if 

put_l_paren 

put__le 

put_local 

put_l t 

put_msid 

put_mult iply 

put_ne 

put_not 

put_number 

put_or 

put_pi 

put_pr int 

put_r_paren 

put__set 

put_shi ftL 

put_shiftR 

put_signal 

put_start 

put_stop 

put_string 

put_subtract 

put_then 

readCompNames 

readGroupNames 


0. 
0, 
Or 
0 , 
Or 
Or 
Or 
Or 

0 r 
0 , 
Or 
0 , 
0 , 
Or 

0 r 
0 r 
0 r 

Or 

Or 

O r 
O r 
O r 
O r 

Or 

Or 

Or 

O r 

Or 

Or 

Or 

Or 

Or 

(); 


COPY 


Purpose:  Copy  copies  a comp  or  a group  into  a new  comp  or  group. 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  1/20/89 

Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

External  Interfaces 


new<)  — 

putStrWithBlue () 
save() 

switch_name  () 
****★*****★*★★★★**+* 


creates  a new  comp  or  group 

— puts  the  name  on  status  line  in  bubble 
saves  the  current  comp/group  to  disk 

— changes  the  comp  name  in  its  header 
*********************************************** 


/ 


finclude  <stdio.h> 
finclude  <string.h> 
finclude  <X11/Intrinsic ,h> 
finclude  <Xm/Xm.h> 
finclude  "code.h” 


copy.c 


copy  {) 

{ 

char 


int 


reply  [200 ] , 

oldName  [ MAX_N  AME__LEN  3 , 
pathOldGroup [PATH_LEN] , 
pathNewGroup [PATH_LEN] ; 


/*  a temp  string  */ 

/*  a place  to  hold  the  new  name  */ 
/*  the  path  for  the  old  group  */ 

/*  the  path  for  the  new  group  */ 


oldNumber,  /*  Used  to  store  the  number  of  comps  */ 

re; 


/* 

* See  if  they  want  to  copy  a comp  or  a group 

*/ 


rc  * get_type_gc{  “Make  copy  of  this  Comp  or  Group?"  ); 
if  ( rc  --  ABORT  ) 
return { ERROR  ) ; 


if ( rc  ==  GROUP  ) 

{ 

/* 

* First  off,  let's  build  some  paths  to  the  source 

* groups  files,  so  we  can  copy  them  later  on  into 

* the  destination  groups  files 
*/ 

sprint f (pathOldGroup, " %s/%s" , CodeGroups, GroupName) ; 
/* 

* Get  the  name  of  the  comp  the  user  wishes 

* to  copy  from  get_new_name. 

*/ 


strepy (oldName,  GroupName); 
oldNumber  * GroupNumber; 
if  (get__new_name  ( "Group" , GroupName)) 
return ( ABORT  } ; 


* Copy  the  comps  from  the  old  group  into  the  new  one. 

* Note  that  GroupName  was  modified  in  get_new_name () ! 

*/ 

sprintf  (pathNewGroup,  ,,%s/%s,t,  CodeGroups,  GroupName)  ; 
if (mkdir  (pathNewGroup,  511)) 

{ 

user_ack ( "CODE  is  unable  to  make  the  new  directory  - copy  aborted.",  HELP_U_ACK) ; 
strepy  (GroupName,  oldName);  /*  Undo  the  damage  */ 
return  (ERROR) ; 

} 

sprint f (reply, "cp  %s/ * %s>/tmp/tart  2>>/tmp/code .err", pathOldGroup, pathNewGroup) ; 

/* 

* If  we  fail  to  copy  the  files  we  should  go  back  to  the 

* original  configuration. 

*/ 

if (system (reply) ! =0) 

{ 

user_ack ("CODE  is  unable  to  copy  the  files  into  the  new  directory;  copy  aborted.",  HELP_U_ACK) ; 
strepy  (GroupName,  oldName) ; /*  Undo  the  damage  */ 
return  (ERROR) ; 

} 


/* 

* Since  we  had  a successful  copy,  copy  the  group 

* info  from  the  old  group  into  the  new  group,  and 

* copy  the  GroupName  into  the  Grouplnfo. 

*/ 

GroupNumber  = NumOfGroups++; 

Grouplnfo [GroupNumber]  = Grouplnfo [oldNumber] ; 
strepy (Grouplnfo [GroupNumber] .name,  GroupName) ; 

/* 

* Paste  the  new  group  name  up  on  the  status  line 


*/ 


put_status  {)  ; 
save ( NO-SHOW  ) ; 

} 

/* 

* else  they  want  to  copy  a COMP 
*/ 

else  if(  rc  =»*  COMP  ) 

{ 

/* 

* Get  the  name  of  the  comp  the  user  wishes 

* to  copy  from  from  new(),  but 

* remember  to  keep  the  old  name  around  for 

* use  in  the  call  to  switch_name {) . 

*/ 

strcpy (oldName,  CompName) ; 
oldNumber  = CompNumber; 
if  (get_new_name ("Comp",  CompName)) 
return  ( ABORT  ) ; 


/* 

* Switch  the  old  name  which  is  in  the  comps  header 
*/ 

if  (switch_name  (oldName)  ==  ERROR) 
user_ac)c  (“An  error  occurred  while  changing  the  name.",  HELF_U_ACK) ; 

/* 

* Copy  the  old  comp  info  into  the  new  comp  info, 

* copy  the  CompName  into  the  Complnfo 

* and  increment  the  NumOfComps . 

*/ 

CompNumber  = NumOfComps++; 

Complnfo [CompNumber]  - Complnfo [oldNumber ] ; 
strcpy {Complnfo [CompNumber] .name,  CompName) ; 

/* 

* Paste  the  group  & new  comp  name  up  on  the  screen 
*/ 

put_status  ( ) ; 

/* 

* Save  the  resulting  new  comp 
*/ 

save ( NO-SHOW  ) ; 

user_ack ( "Copy  Complete",  HELP_U_ACK) ; 


} 


return  (OK) ; 


copy.c 

/************* *************************** ********************* 
SWITCH_NAME 

Purpose:  Switch_name  goes  through  the  comp  string  and  changes 
the  old  name  to  the  new  name.  This  routine  puts  the  comp  into 
a string  until  it  finds  the  CompName,  then  it  passes  the  comp 
name,  and  puts  the  rest  of  the  Comp  in  another  string.  When 
finished  doing  this,  it  copies  the  first  part  of  the  comp  into 
Comp,  then  cats  the  new  comp  name  into  Comp,  then  finally, 
cats  the  second  part  of  the  comp. 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  1/8/88 

1/20/89  rewritten,  TAH 


Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 


Reasons  for  Revision: 


#def ine  MAX_HEAD_LEN  300 
switch_name  (oldName) 
char  oldName []; 


{ 


int 


i,  /*  Index  into  the  Comp  string  */ 

1,  /*  Index  into  onePartOfComp  */ 

r,  /*  Index  into  otherPartOfComp  */ 

k,  /*  Index  into  oldName  */ 

nameLength;  /*  The  length  of  the  comp  name  */ 


char  onePartOfComp [ MAX_HE AD_LEN 3 , /*  Comp  string  before  oldName  */ 

otherPartOfComp [MAX_COMP_LEN] , /*  Comp  string  after  oldName  */ 
foundName-FALSE;  /*  Flag  */ 


/* 

* Get  the  length  of  the  comp  name 
*/ 

nameLength  ■ strlen  (oldName) ; 

/* 

* Process  through  the  Comp  string  looking 

* for  the  old  comp  name. 

*/ 

i=k  = l = r = 0; 

while  (Comp [ i ] !-  0 &&  i < MAX_COMP_LEN) 

{ 

/* 

* If  we  have  not  yet  found  the  name 

* then  continue  to  look  for  it. 

*/ 

if ( ! foundName) 

{ 

/* 

* If  we  don't  find  the  comp  name  in 

* MAX_HEAD_LEN  chars  then  let's  return 
*/ 

i f ( i > =MAX  J-JE AD_LEN ) 
return  ERROR; 


/* 

* Add  a char  from  the  Comp  string  to 

* a string  called  onePartOfComp. 

*/ 

onePartOfComp [ 1++]  = Compfi]; 

/* 

* If  we  find  a match,  see  if  its  the 

* last  char  match  we  need  to  make. 

V 

if (oldName fk]  ■« 

( 


Comp [i++] ) 


copy.c 

/* 

* If  we  have  matched  nameLength  chars  then 

* we  have  found  the  old  name. 

*/ 

if  ( ++k  ==  nameLength) 

{ 

onePartOf Comp [ 1-nameLength ] - 0;  /*  terminate  */ 
foundName  = TRUE; 


) 

else  k = 0;  /*  reset  the  matched  letter  counter  */ 

) 

/* 

* Now  that  we  have  found  the  comp  name  let  us 

* gather  up  the  rest  of  the  Comp  string 

* into  another  string. 

*/ 

else  otherPartOfComp [r++]  = Comp[i++]; 


otherPartOfComp [ r ] = 0;  /*  terminate  */ 

/* 

* Copy  the  half  preceding  the  old  comp  name  into  Comp,  then  cat  the 

* the  new  comp  name  onto  that,  and  add  in  the  otherPart  of  the  comp 
*/ 

strcpy  (Comp,  onePartOfComp) ; 
strcat  (Comp,  CompName) ; 
strcat  (Comp,  otherPartOfComp) ; 

return ( OK  ) ; 

) 


cr_cascade.c 

finclude  <stdio.h> 
finclude  <X11/Intr insic .h> 
finclude  <Xm/CascadeB . h> 
finclude  "code.h" 
finclude  "create. h" 


/*★★*************************************< >****★****+*********************★***★**** 

* 

* MODULE  NAME:  cr_cascade(  instance,  parent,  menu,  label) 

★ 

* 

* MODULE  FUNCTION: 

* 

* Creates  a Cascade  widget  and  returns  a pointer  to  the  managed  widget. 

* 

* 

* SPECIFICATION  DOCUMENTS; 

★ 

* /code/specs/code 

* 


* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


* Timothy  J.  Barton 

* 

* 

* 

* 


Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

********************************** ******<-.--__>****★★*★*** *********************** ******/ 


Widget  cr_cascade < instance,  parent,  menu,  mnemonic,  label  ) 

/*  This  function  returns  the  return  value  of  the 

* XtCreateManagedWidget  function  call.  This  will 

* be  a pointer  to  a widget. 

*/ 

char  ^instance,  /*  The  instance  name  of  the  widget.  It  uniquely 

* defines  the  widget. 

*/ 

* label. 


mnemonic; 


Widget  menu, 

parent; 


/*  The  parent  widget  to  which  the  Cascade  widget 
* will  be  attached. 

*/ 


{ 

static  Arg  args[3]; 

Widget  widget; 

XtSetArgt  args[0],  XmNsubMenuId,  menu  ); 

XtSetArg(  args[l],  XmNmnemonic,  mnemonic  ); 

XtSetArg(  args[2],  XmNfontList,  Fnt_List_Btn  ); 


/* 

* Use  the  Xtoolkit  intrinsic  XtCreateManagedWidget  to  create  the  Cascade  widget, 

* attach  it  to  the  parent,  and  Initialize  all  arguments. 

*/ 


) 


widget  » XmCreateCascadeButton ( parent,  label,  args,  3 ); 
XtManageChild ( widget  ); 
return  ( widget  ) ; 


♦include  <stdio.h> 

♦include  <X11/Int rinsic .h> 
♦include  <Xm/PusbB.h> 
♦include  "code.h" 


/★*********★*****************************< — 
* 

* MODULE  NAME:  cr  command ( instance,  parent, 


* MODULE  FUNCTION: 


label,  callback,  id  ) 


* Used  to  build  command  widgets  which  are  placed  within  forms.  Returns  a pointer 

* to  the  created  widget. 

* 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

*******+***********★***********★★***★***<- >****************************************/ 


Widget  cr_command  { instance,  parent,  label,  callback,  id  ) 


int  id; 


char  *instance, 


* label; 


Widget  parent; 


XtCallbackList  callback; 


Widget 

register  int 
Arg 

XmSt ring 


widget ; 
n - 0 ; 
args  [3] ; 
tcs ; 


/*  This  function  returns  the  return  value  of  the 

* XtCreateManagedWidget  function  call.  This  will 

* be  a pointer  to  a widget. 

*/ 

/*  The  instance  name  of  the  widget.  It  uniquely 

* defines  the  widget. 

*/ 

/*  The  string  which  this  command  widget  will  display. 

* Note  that  if  this  pointer  Is  NULL,  the  command 

* label  will  be  a single  blank. 

*/ 

/*  The  parent  widget  to  which  the  command  widget  will 

* be  attached. 

*/ 


/* 

* Callback  function  name. 
*/ 


/* 

* Create  compound  string  for  the  button  text. 

V 


tcs  - XmStringLtoRCreate ( label, 
XtSetArg{  args[n],  XmNlabelType, 
XtSetArg{  args[n],  XmNlabelSt ring, 
XtSetArg(  args[n],  XmNfontList, 


XmSTRING_DEFAULT_CHARSET  ) ; 
XmSTRING  ) ; n++; 
tcs  ) ; n + + ; 

Fnt_List_Btn  ) ; n++; 


/* 

* Create  the  command  button. 
*/ 


cr_command.c 


widget  - (Widget)  XmCreatePushButton { parent,  instance,  args,  n ); 
XtManageChild { widget  ); 

XmStringFree  ( tcs  ) ; 

/* 

* Add  the  callback  routine  if  specified, 

V 


if  { callback  ) 

callback->closure  = (caddr_t)  id; 

Xt AddCallbacks ( widget,  XmNact ivateCa 1 Iback,  callback  ); 

return  ( widget  ); 


mmm 


cr_form.c 


♦include  <X11/Int rinsic .h> 
♦include  <Xm/Form.h> 
♦include  "create. h" 


* MODULE  NAME:  cr_form(  instance,  parent,  h_offset,  v_offset) 


* MODULE  FUNCTION: 

* 

* Creates  a form  widget  and  returns  a pointer  to  the  managed  widget. 


* SPECIFICATION  DOCUMENTS: 


* /code/specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 


* Motif  Release  1.0  - 90/03/16 


Widget  cr_form(  instance,  parent,  h_offset,  v_offset  ) 


/*  This  function  returns  the  return  value  of  the 

* XtCreateManagedWidget  function  call.  This  will 

* be  a pointer  to  a widget. 


char  Mnstance; 


/*  The  instance  name  of  the  widget.  It  uniquely 
* defines  the  widget. 


Widget  parent. 


/*  The  parent  widget  to  which  the  form  widget  will 
* be  attached. 


h offset. 


/*  If  specified,  the  form  widget  will  be  offset 

* to  the  right  of  the  specified  widget.  If  NULL, 

* no  offset  will  be  in  effect. 


v offset; 


/*  If  specified,  the  form  widget  will  be  offset 

* below  the  specified  widget.  If  NULL,  no  offset 

* will  be  in  effect. 


* Define  the  array  which  will  contain  all  arguments  required  to  create  the  form 

* widget.  This  includes  the  horizontal  and  vertical  offsets.  Note  that  these 

* arguments  are  set  to  NULL  because  it  is  not  known  which  will  be  used.  Also  note 

* that  making  this  array  static  forces  the  following  code  to  perform  some  seemingly 

* redundant  assignments. 


static  Arg  args[5J; 

int  count  = 0; 

Widget  widget; 


XtSetArgt  args[0],  XmNborderWidth,  0 );  count ++; 
if  ( v offset  ) 


XtSetArg(  args [count],  XmNtopAttachment , XmATTACH_WIDGET  );  count++; 
XtSetArg(  args [count],  XmNtopWidget , v_offset  );  count++; 


if  ( h_of f set  ) 

{ 


XtSetArg ( 
XtSetArg ( 


args [count ] , 
args [count] , 


cr_form.c 

XmN left Attachment,  XmATTACH_WIDGET  ) 
XmNlef tWidget , h_offset  ) ; 


/* 

* Use  the  Xtoolkit  intrinsic  XtCreateManagedWidget  to  create  the 

* attach  it  to  the  parent,  and  initialize  all  arguments. 

*/ 


widget  * XmCreateForm ( parent,  instance,  args,  count  ); 
XtManageChild ( widget  ); 
return  ( widget  ) ; 


; count++; 


count++; 


form  widget, 


♦include  <X11/Intrlnsic.h> 
♦include  <Xm/Frame.h> 
♦include  "create.h" 


* MODULE  NAME:  cr_frame ( instance,  parent,  h_offset,  v_offset  ) 

* 


* MODULE  FUNCTION: 


* Creates  a frame  widget  and  returns  a pointer  to  the  managed  widget. 

★ 

★ 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

# 

* Motif  Release  1.0  - 90/03/16 

* 

************************************** *******  + *★*******************★**★**★★**/ 


Widget  cr_f rame  ( instance,  parent,  h_offset,  v_off.set  ) 

/*  This  function  returns  the  return  value  of  the 

* XtCreateManagedWidget  function  call.  This  will 

* be  a pointer  to  a widget. 

*/ 

/*  The  instance  name  of  the  widget.  It  uniquely 

* defines  the  widget. 

*/ 

/*  The  parent  widget  to  which  the  frame  widget  will 

* be  attached. 

*/ 

/*  If  specified,  the  frame  widget  will  be  offset 

* to  the  right  of  the  specified  widget.  If  NULL, 

* no  offset  will  be  in  effect. 

*/ 

/*  If  specified,  the  frame  widget  will  be  offset 

* below  the  specified  widget.  If  NULL,  no  offset 

* will  be  in  effect. 

*/ 

{ 

/* 

* Define  the  array  which  will  contain  all  arguments  required  to  create  the  frame 

* widget.  This  includes  the  horizontal  and  vertical  offsets.  Note  that  these 

* arguments  are  set  to  NULL  because  it  is  not  known  which  will  be  used.  Also  note 

* that  making  this  array  static  forces  the  following  code  to  perform  some  seemingly 

* redundant  assignments. 

*/ 


char  *instance; 

Widget  parent, 

h_of fset. 


v offset; 


static 


Arg 

int 

Widget 


args [4] ; 
count  = 0; 
widget; 


if  ( v_offset  ) 

{ 

XtSetArg{  args [count],  XmNtopAttachment , XmATTACH_WIDGET  );  count++; 
XtSetArg(  args[count],  XmNtopWidget , v_offset  );  count++; 

} 


if  ( h_offset  ) 

{ 

XtSet Arg ( args [count],  XmNleftAttachment , XmATTACH_WIDGET 
XtSetArg ( args [count],  XmNleftWidget , h_offset  ); 


count++; 

count++; 


cr  frame. c 


} 


Use  the  Xtoolkit  intrinsic  XtCreateManagedWidget  to  create  the  frame  widget 
attach  it  to  the  parent,  and  initialize  all  arguments. 


widget  * XmCreateFrame ( parent,  instance,  args,  count  ); 
XtManageChild ( widget  ); 
return  ( widget  ) ; 


tinclude  <X11/Int r insic  .h> 

#include  <Xm/PushB.h> 

/****************************************< 


Hr 

* MODULE  NAME: 

* 


cr  frm_cmd(  instance,  parent,  label,  h_offset,  v_offset,  callback,  id  ) 


* 

* MODULE  FUNCTION: 

★ 

* Used  to  build  command  widgets  which  are  placed  within  forms. 

* 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 


( instance 


char  "instance, 
"label; 


Widget  parent. 


h_of f set , 
v offset; 


cr_frm_cmd.c 

, parent,  label,  h_offset,  v_offset,  callback,  id  ) 


/*  This  function  returns  the  return  value  of  the 

* XtCreateManagedWidget  function  call.  This  will 

* be  a pointer  to  a widget. 

*/ 

/*  The  instance  name  of  the  widget.  It  uniquely 

* defines  the  widget. 

*/ 

/*  The  string  which  this  command  widget  will  display. 

* Note  that  if  this  pointer  is  NULL,  the  command 

* label  will  be  a single  blank. 

*/ 

/"  The  parent  widget  to  which  the  command  widget  will 

* be  attached. 

*/ 


XtCallbackList 

callback; 

/* 

* Callback  function  name. 
*/ 

Widget 

widget ; 

register  int 

n * 0; 

Arg 

args  [6] ; 

XmString 

tcs; 

/* 

* Create  compound  string  for  the  button  text. 

V 


tcs  - XmStringLtoRCreate { label,  XmSTRING_DEFAULT_CHARSET  ); 
XtSet Arg { args[n],  XmNlabelType,  XmSTRING  );  n++; 

XtSet Arg { args[n},  XmNlabelSt ring,  tcs  );  n++; 

/* 

* Place  the  new  widget  relative  to  the  horizontal  and/or 

* vertical  widgets. 

*/ 


if  ( v_offset  ) 

{ 

XtSetArg(  args[n],  XmNt op Attachment,  XmATTACH_WIDGET  );  n++; 
XtSet Arg ( args[n],  XmNtopWidget , v_offset  );  n++; 

} 


if  ( h_offset  ) 

{ 

XtSetArg{  args[n], 
XtSetArg{  args[n], 
} 


XmNlef tAttachment , XmATTACH_WIDGET  );  n++; 
XmNleftWidget , h_offset  ) ; n++; 


/* 

* Create  the  command  button. 
*/ 


widget  - (Widget)  XmCreatePushButton ( parent,  instance,  args,  n ); 
XtManageChild ( widget  ); 

XmStringFree  ( tcs  ) ; 


/* 

* Add  the  callback  routine  if  specified. 
*/ 


if  ( callback  ) 

callback->closure  - (caddr_t)  id; 

XtAddCallbacks ( widget,  XmNactivateCallback,  callback  ); 


) 


return ( widget  ) ; 


♦include  <X11/Int rinsic .h> 
♦include  <Xm/RowColumn .h> 
♦include  "create. h" 


^■a********-***'***,******'*******************<  — — — — — >*******■■***********’********************** 
* 

* MODULE  NAME:  cr_frm_rc ( instance,  parent,  columns,  h_offset,  v_offset  ) 

* 


* 


* MODULE  FUNCTION: 

* 

* Creates  a RowColumn  widget  and  returns  a pointer  to  the  managed  widget. 

* 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* 


* ORIGINAL  AUTHOR  AND 

* 

* Timothy  J.  Barton 

* 

* 

* 

* 

* 

* REVISION  HISTORY: 


IDENTIFICATION: 

- Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* Motif  Release  1.0  - 90/03/16 

* 

*****************************★**★★******< 


Widget  cr_frm_rc<  instance,  parent,  columns,  h_offset,  v_offset  ) 


char  *instance; 

Widget  h_offset, 
v_of f set , 

parent; 

int  columns; 


/*  This  function  returns  the  return  value  of  the 

* XtCreateManagedWidget  function  call.  This  will 

* be  a pointer  to  a widget. 

*/ 

/*  The  instance  name  of  the  widget.  It  uniquely 

* defines  the  widget. 

V 


/*  The  parent  widget  to  which  the  RowColumn  widget 
* will  be  attached. 

*/ 


{ 

static  Arg  args[6]; 

Widget  widget; 
int  n*2; 


XtSetArg(  args[Q],  XmNpacking,  XmPACK_COLUMN  ); 
XtSetArg(  args[l],  XmNnumColumns,  columns  ); 

/* 

* Place  the  new  widget  relative  to  the  horizontal  and/or 

* vertical  widgets. 

*/ 


if  ( v_offset  ) 

{ 

XtSetArg(  args[n],  XmNtopAttachment , XmATTACH_WIDGET 
XtSetArg{  args[n],  XmNtopWidget , v_offset  ); 

} 


n++; 

n++; 


if  { h_of f set  ) 

{ 

XtSetArg(  argstn], 
XtSet Arg ( args[n], 
} 


XmNlef tAttachment,  XmATTACH_WIDGET  );  n++; 
XmNleftWidget , h_offset  ) ; n++; 


cr_frm_rc.c 


Use  the  Xtoolkit  intrinsic  XtCreateManagedWidget  to  create  the  RqwColumn  widget, 
attach  it  to  the  parent,  and  initialize  all  arguments. 


widget  « XmCreateRowColumn { parent,  instance,  args,  n ); 
XtManageChild ( widget  ); 
return  ( widget  ) ; 


#include  <X11/Int rinsic .h> 
tinclude  <Xm/Text.h> 
linclude  "create. h" 


/***★************************************< 

* 

* MODULE  NAME:  cr_f rm__txt  { instance,  parent, 

* columns  ) 

* 


★ 


_>*♦************************************** 
text,  h_offset,  v_offset,  scrolled,  rows. 


* MODULE  FUNCTION: 

* 

* Creates  a text  widget. 

★ 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* 


* ORIGINAL  AUTHOR  AND 

* 

* Timothy  J.  Barton 

* 

* 

* 

* 


IDENTIFICATION: 

- Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

***************★************************< 


Widget  cr  frm_txt(  instance,  parent,  text,  h_offset,  v_offset,  scrolled,  rows,  columns  ) 

/*  This  function  returns  the  return  value  of  the 

* XtCreat eManagedWidget  function  call.  This  will 

* be  a pointer  to  a widget. 

*/ 


char  ^instance, 


*text ; 

Widget  h_offset, 
v_of f set , 
parent; 

int  columns, 

rows, 
scrolled; 


/*  The  instance  name  of  the  widget.  It  uniquely 
* defines  the  widget. 

*/ 


/*  The  parent  widget  to  which  the  text  widget  will 
* be  attached. 

*/ 


Widget  widget; 
Arg  args[0]; 

int  i*4; 


XtSetArg(  args[0],  XmNvalue,  text  ); 

XtSetArg(  args[l],  XmNeditMode,  XmMULTI_LINE_EDIT  ); 

XtSetArg ( args[2],  XmNrows,  rows  ); 

XtSetArg(  args[3],  XmNcolumns,  columns  ); 

/* 

* Place  the  new  widget  relative  to  the  horizontal  and/or 

* vertical  widgets. 

*/ 

if  ( v_offset  ) 

{ 

XtSetArg { argsfi],  XmNtopAttachment , XmATTACH_WIDGET  );  i++; 
XtSetArg { argsfi],  XmNtopWidget , v_offset  );  i++; 

) 

if  ( h_of f set  ) 

{ 


XtSet Arg ( args[i],  XmNlef tAttachment,  XmATTACH__WIDGET  );  i++; 
XtSet Arg ( args[i],  XmNleftWidget , h_offset  );  i++; 
} 


* Use  the  Xtoolkit  intrinsic  XtCreateManagedWidget  to  create  the  text  widget, 

* attach  it  to  the  parent,  and  initialize  all  arguments. 

*/ 


if  { scrolled  ) 

widget  - XmCreateScrolledText { parent,  instance,  args,  i ); 

else 

widget  * XmCreateText { parent,  instance,  args,  i ); 

XtManageChild ( widget  ); 
return  { widget  ) ; 


# include  <stdio .h> 

#include  <X11/Intrinsic.h> 
♦include  <Xm/Label.h> 
♦include  "code.h" 

♦include  "create. h" 


/A*********************************  ******< > * -AT************************************** 

* 

* MODULE  NAME:  cr  label  ( instance,  parent,  label,  borderWidth,  top,  bottom,  left,  right 


* 

* MODULE  FUNCTION: 

★ 

* Used  to  build  label  widgets  which  are  placed  within  forms.  Returns  a pointer 

* to  the  newly  created  and  managed  widget. 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

*********************★******************< 


Widget  cr_label  ( instance,  parent,  label,  borderWidth,  top,  bottom,  left,  right  ) 


char  Mnstance, 

♦label; 

int  borderWidth; 


/*  This  function  returns  the  return  value  of  the 

* XtCreateManagedWidget  function  call.  This  will 

* be  a pointer  to  a widget. 

*/ 

/*  The  instance  name  of  the  widget.  It  uniquely 

* defines  the  widget. 

*/ 

/*  The  string  which  this  label  widget  will  display. 
*/ 

/* 

* 

*/ 


Widget  parent;  /*  The  parent  widget  to  which  the  label  widget  will 

* be  attached. 

*/ 


int  top,  bottom,  left,  right; 


Widget 

register  int 
Arg 

XmString 


widget; 
n * 0 ; 
args [12] ; 
tcs; 


/* 

* Create  compound  string  for  the  label  text. 
*/ 


tcs  = XmStringLtoRCreate { label, 
XtSetArg(  args[n],  XmNlabelType, 
XtSetArgC  args[n],  XmNlabelString, 
XtSetArg(  args[n],  XmNborderWidth, 
XtSetArg(  args[n],  XmNfontList, 


XmSTRING_DEFAULT_CHARSET  ) ; 
XmSTRING  ) ; n + + ; 

tcs  ) ; n++; 

borderWidth  ) ; n++; 

Fnt  List_Btn  ) ; n++; 


f* 

* Place  the  new  widget  relatively  within  the  form. 


crjabel.c 


if  ( top  !-  IGNORE  ) 

{ 

XtSetArg(  args[n],  XmNtopAttachment , XmATTACH_POSITION  ); 
XtSetArg ( args[nj,  XmNtopPosit ion,  top  );  n++; 

} 


if  { bottom  ! * IGNORE  ) 

{ 

XtSetArg ( args[n],  XmNbottomAttachment , XmATTACH_POSITION 
XtSetArg ( args[n],  XmNbottomPosition,  bottom  );  n++; 

} 


if  ( left  !-  IGNORE  ) 

{ 

XtSetArg ( args[n],  XmNleft Attachment , XmATTACH_POSITION  ) 
XtSetArg ( args[n],  XmNlef tPosit ion,  left  );  n++; 

} 


if  ( right  !=  IGNORE  ) 

{ 

XtSetArg ( args[n],  XmNright Attachment , XmATTACH_POSITION 
XtSetArg { args[n],  XmNrightPosit ion,  right  );  n++; 

} 


f* 

* Create  the  label  widget. 
*/ 


widget  - (Widget)  XmCreateLabel ( parent,  instance,  args,  n ); 
XtManageChild ( widget  ); 

XmStringFree  ( tcs  ) ; 


return ( widget  ) ; 

) 


n++; 


);  n++; 


; n + + ; 


; n++; 


cQ>ixmap,c 

#inciude<X 11/Intrinsic. h> 

♦include  <Xm/Label.h> 

♦include  Mcode_const .h" 

• /****************************************< >**************************************** 

★ 

* MODULE  NAME:  cr_pixmap{  instance,  parent,  pixmap,  top,  bottom,  left,  right  ) 

* 

★ 

* MODULE  FUNCTION: 

* 

* Used  to  build  pixmap  label  widgets  which  are  placed  within  forms.  A pointer 

* to  the  newly  created  and  managed  widget  is  returned. 

* 

★ 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/coda 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

******************************  ***★•******<- 


Widget  cr^ pixmap ( Instance,  parent,  pixmap,  top,  bottom,  left,  right  ) 


/*  This  function  returns  the  return  value  of  the 

* XtCreateManagedWidget  function  call.  This  will 

* be  a pointer  to  a widget. 

*/ 


char  ^instance; 

Widget  parent; 

Pixmap  *pixmap; 

int  top,  bottom, 

left,  right; 


/*  The  instance  name  of  the  widget.  It  uniquely 

* defines  the  widget. 

*/ 

/*  The  parent  widget  to  which  the  pixmap  widget  will 

* be  attached. 

*/ 

/*  The  pixmap  to  display  in  this  label  widget. 

*/ 


Widget 

Arg 

int 


widget ; 
args [10] ; 
n - 2; 


XtSetArg ( args[0],  XmNlabelType,  XmPIXMAP  ); 

XtSet Arg ( args[l],  XmNlabelPixmap,  *pixmap  ); 

/* 

* Place  the  new  widget  relatively  within  the  form. 
*/ 


if  ( top  !«  IGNORE  ) 

{ 

XtSetArg { argsfnj,  XmNtopAttachment , XmATTACH_POSITION  );  n++; 
XtSetArg ( args[n],  XmNtopPosit ion,  top  );  n++; 

) 


if  ( bottom  I-  IGNORE  ) 

{ 

XtSetArg ( args [n] , XmNbottomAttachment , XmATTACH_POSITION  );  n++; 
XtSetArg ( args[n],  XmNbottomPosit ion,  bottom  );  n + + ; 

) 


cr_pixmap,c 


if  ( left  !*  IGNORE  ) 

XtSet Arg ( args[n],  XmNleft Attachment , XmATTACH_POSlTION  );  n++; 
XtSetArg ( args[n],  XmNlef tPosition,  left  );  n++; 

} 


if  ( right  !-  IGNORE  ) 

{ 

XtSetArg ( args(n],  XmNr ightAttachment , XmATTACH_POSITION  );  n++ 
XtSetArg ( args[n],  XmNr ightPosit ion,  right  );  n++; 

} 

/* 

* Create  the  label  widget  with  a pixmap. 

*/ 


widget  * (Widget)  XmCreateLabel { parent,  instance,  args,  n ); 
XtManageChild ( widget  ); 

return ( widget  ) ; 


♦include  <X11/Intrinsic.h> 
♦include  <Xm/mwm.h> 
♦include  <Xm/Bullet inB . h> 


crj>opup.c 


* 


* MODULE  NAME:  cr_popup(  instance,  parent 

* 


★ 

* MODULE  FUNCTION: 

* 

* Used  to  build  bulletin  board  popup  widgets. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

***************★***★* **+*****************< 


Widget  cr_popup ( instance,  parent 


/*  This  function  returns  the  return  value  of  the 

* XtCreateManagedWidget  function  call.  This  will 

* be  a pointer  to  a widget. 

*/ 


char  ^instance; 


Widget  parent; 


/ * The  Instance  name  of  the  widget.  It  uniquely 

* defines  the  widget. 

V 

/*  The  parent  widget  to  which  the  command  widget  will 

* be  attached. 

*/ 


Widget  widget; 

Arg  args[l]; 

/* 

* Create  the  popup  widget. 

*/ 

widget  - XmCreateBullet inBoardDialog ( parent,  instance,  NULL,  0 ); 

XtSetArg{  args[0],  XmNmwmlnputMode,  MWM_INPUT_APPLICATION_MODAL  ); 
XtSetValues { XtParent  ( widget  ),  args,  1 ); 


return ( widget  ) ; 

) 


#include  <X11/Intrinsic .h> 
♦include  <Xm/PushB.h> 


* 

* MODULE  NAME:  cr_rel_cmd{  instance,  parent,  label,  callback,  id,  top,  left  ) 

* 


* 

* MODULE  FUNCTION: 

* 

* Used  to  build  command  widgets  which  are  placed  relatively  within  forms-  A 

* pointer  to  the  newly  created  and  managed  widget  is  returned. 

* 


* 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

***  + *****************************★******< yn** ******************* ******************/ 


Widget  cr_rel_cmd  ( instance,  parent,  label,  callback,  id,  top,  left  ) 


int  id; 


char  *instance, 

♦label; 

Widget  parent; 

int  left, 

top; 

XtCallbackList  callback; 


Widget 

register  int 
Arg 

XmString 


widget; 
n * 0; 
args [6] ; 
tcs; 


/*  This  function  returns  the  return  value  of  the 

* XtCreateManagedWidget  function  call.  This  will 

♦ be  a pointer  to  a widget. 

*/ 

/*  The  instance  name  of  the  widget.  It  uniquely 

* defines  the  widget. 

*/ 

/*  The  string  which  this  command  widget  will  display. 
*/ 

/*  The  parent  widget  to  which  the  command  widget  will 

♦ be  attached. 

*/ 


/* 

* Callback  function  name. 
*/ 


/* 

* Create  compound  string  for  the  button  text. 

*/ 

tcs  * XmStringLtoRCreate { label,  XmSTRING_DEFAULT_CHARSET  ); 
XtSetArg { args[n],  XmNlabelType,  XmSTRING  );  n++; 

XtSetArg ( args[n],  XmNlabelString,  tcs  );  n++; 

/* 

* Place  the  new  widget  relatively  within  the  form. 

*/ 

XtSetArg ( argsfn],  XmNtopAttachment,  XmATTACH_POSITION  );  n++; 


XtSet Arg { args[n],  XmNtopPosit ion,  top  );  n + + ; 


XtSetArg(  args[n],  XmNlef tAttachment , XmATTACH_POSITION  );  n++; 
XtSetArgt  args[n],  XmNleftPosit ion,  left  );  n + + ; 

/* 

* Create  the  command  button. 

*/ 

widget  * (Widget)  XmCreatePushButton < parent,  instance,  args,  n ); 
XtManageChild ( widget  ); 

XmStringFree  ( tcs  ) ; 

/* 

* Add  the  callback  routine  if  specified. 

*/ 

if  ( callback  ) 

callback->closure  = (caddr_t)  id; 

XtAddCallbacks ( widget,  XmNact ivateCa llback,  callback  ); 

return  ( widget  ) ; 


} 


widget  - XmCreateRowColumn ( parent,  instance,  args,  4 ); 
XtManageChild { widget  ); 
return  ( widget  ) ; 


♦include  <X11/Intr insic ,h> 
♦include  <Xm/Separator . h> 
♦include  "code  const .h" 


cr_separator.c 


/ 


* 

★ 

* 

* 

★ 

* 

★ 


MODULE  NAME:  cr_separator ( instance, 

MODULE  FUNCTION: 

Used  to  build  separator  widgets. 


parent , 


top,  bottom,  left,  right  ) 


★ 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

★ 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

*★**************************************< >#**************************★************/ 


Widget  cr_separator < instance,  parent,  top,  bottom,  left,  right  ) 

/*  This  function  returns  the  return  value  of  the 

* XtCreat eManagedWidge t function  call.  This  will 

* be  a pointer  to  a widget. 

*/ 

char  *instance;  /*  The  instance  name  of  the  widget.  It  uniquely 

* defines  the  widget. 

*/ 


Widget  parent;  /*  The  parent  widget  to  which  the  separator  widget  will 

* be  attached. 

V 


Int  top,  bottom,  left,  right; 


Arg  args[8]; 

int  n - 0; 

Widget  widget; 

/* 

* Place  the  new  widget  relatively  within  the  form. 
*/ 


if  ( top  !-  IGNORE  ) 

{ 

XtSetArgf  args[n],  XmNtopAttachment , XmATTACH_POSITION  );  n++; 
XtSetArg ( args[n],  XmNtopPosit ion,  top  );  n++; 

> 


if  ( bottom  ! « IGNORE  ) 

{ 

XtSetArg ( args[n],  XmNbottomAttachment,  XmATTACH_POSITION  );  n++; 
XtSetArg ( args[n],  XmNbottomPosit ion,  bottom  );  n++; 

) 


if  ( left  ! = IGNORE  ) 

( 

XtSetArg ( args[n],  XmNleftAttachment,  XmATTACH_POSITION  );  n++; 
XtSetArg ( argsfnj,  XmNleftPosit ion,  left  );  n++; 

} 


cr_separator.c 


{ 

XtSetArg ( args(n],  XmNright Attachment , 
XtSetArg ( args [n] , XmNr ightPosit ion, 

) 


XmATTACH_POSITION  );  n++; 
right  ) ; n++; 


/* 

* Create  the  separator  widget. 
*/ 


widget  * XmCreateSeparator ( parent,  instance,  args,  n ); 
XtManageChild { widget  ); 

return ( widget  ); 

} 


cr_text.c 


♦include  <X11/Int rinsic.h> 
♦include  <Xm/Text.h> 
♦include  "create. h" 


* 

* MODULE  NAME:  cr_text ( instance,  parent, 

* 


★ 

* MODULE  FUNCTION: 


> * * * 

h offset 


************************************* 

, v offset,  text,  scolled,  rows,  columns) 


* Creates  a text  widget. 

Hr 

* 

* SPECIFICATION  DOCUMENTS: 

★ 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

★ 

* Motif  Release  1.0  - 90/03/16 

* 

*************  ***************************< >***♦************************************/ 


Widget  cr_text ( Instance,  parent,  h_of f set,  v_offset,  text,  scrolled,  rows,  columns  ) 

/*  This  function  returns  the  return  value  of  the 

* XtCreateManagedWidget  function  call.  This  will 

* be  a pointer  to  a widget. 


char  *instance, 


*/ 

/*  The  instance  name  of  the  widget.  It  uniquely 
* defines  the  widget. 


*text ; 

Widget  parent, 

h_of f set , 

v offset; 


/*  The  parent  widget  to  which  the  text  widget  will 

* be  attached. 

*/ 

/*  If  specified,  the  text  widget  will  be  offset 

* to  the  right  of  the  specified  widget.  If  NULL, 

* no  offset  will  be  in  effect. 

*/ 

/*  If  specified,  the  text  widget  will  be  offset 

* below  the  specified  widget.  If  NULL,  no  offset 

* will  be  in  effect. 

*/ 


int 


columns, 

rows, 

scrolled; 


Widget  widget; 

Arg  args[8]; 

int  count  * A; 


XtSetArg{  args[G],  XmNvalue,  text  ); 

XtSetArg(  args[l],  XmNeditMode,  XmMULTI_LINE_EDIT  ); 
XtSetArg(  args[2],  XmNrows,  rows  ); 

XtSetArg{  args[3],  XmNcolumns,  columns  ); 

/* 

* Create  a scrolled  window  with  a text  edit  widget. 
*/ 


if  { scrolled  ) 


cr  text.c 


{ 

widget  = XmCreateScrolledText ( parent,  instance, 
XtManageChild ( widget  ); 


args,  count 


if  ( v_offset  ) 

{ 

XtSetArg{  args(0],  XmNtopAt tachmen t , XmATTACH_WIDGET  ); 
XtSetArg { args[l],  XmNtopWidget , v^offset  ); 

XtSetValues ( XtPa rent ( widget ) , args,  2 ); 


if  ( h_of f set  ) 

( 

XtSetArg{  args[0],  XmNleftAttachment,  XmATTACH_WIDGET  ); 
XtSetArg { args[l],  XmNleftWidget,  h_offset  ); 

XtSetValues ( XtParent (widget ) , args,  2 ); 

) 


/* 

* Create  a non-scrolled  text  edit  widget. 

V 

else 

{ 

if  ( v offset  ) 

( 

XtSetArg ( args  [count),  XmNtopAt tachment , XmATTACH_WIDGET  );  count ++; 
XtSetArg ( args [count],  XmNtopWidget,  v_offset  );  count++; 

} 

if  ( b_offset  ) 

{ 

XtSetArg ( args [count],  XmNleft At tachment , XmATTACH_WIDGET  );  count++; 
XtSetArg ( args [count],  XmNleftWidget,  h_offset  );  count++; 

) 

widget  - XmCreateText { parent,  instance,  args,  count  ); 

XtManageChild ( widget  ); 

} 

return  ( widget  ) ; 


♦include  <stdio.h> 

♦include  <X11/Intrinsic.h> 
♦include  <Xm/ToggleB .h> 

♦ include  " code . h * * 

/♦include  "create.h" 


cr_toggle.c 


/★*****************★*****■*****  *■*** *★******<- 
* 

* MODULE  NAME:  cr_toggle ( instance,  parent 

* 

* 

* MODULE  FUNCTION: 

* 

* Creates  a toggle  button  widget. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

★ 

* /code/specs/code 

* 


label,  callback,  arm,  disarm  ) 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

***★*************★*★★*******************< >**************************************★*/ 


cr_toggle.c 


Widget  cr_toggle ( instance,  parent,  label,  callback,  arm,  disarm  } 


/*  This  function  returns  the  return  value  of  the 

* XtCreateManagedWidget  function  call.  This  will 

* be  a pointer  to  a widget. 

*/ 


char 

^instance 

♦label; 

Widget 

parent ; 

int 

arm. 

disarm; 

/*  The  instance  name  of  the  widget.  It  uniquely 

* defines  the  widget. 

*/ 

/*  The  parent  widget  to  which  the  toggle  widget 

* will  be  attached. 

*/ 


XtCallbackList  callback;  /* 

* 

*/ 


Widget 
register  int 
Arg 

XmString 


widget ; 
n * 0; 
args  [3]  ; 
tcs; 


/* 

* Create  compound  string  for  the  button  text. 
*/ 


tcs  * XmStringLtoRCreate ( label, 
XtSet Arg ( args[n],  XmNlabelType, 
XtSet Arg ( args[n],  XmNlabelSt r ing, 
XtSetArg ( argsfn],  XmNfontList, 


XmSTRING_DEFAULT_CHARSET  ); 
XmSTRING  ) ; n++; 
tcs  ) ; n++; 

Fnt  List  Btn  ) ; n++; 


widget  - XmCreateToggleButton ( parent,  instance,  args,  n ); 
XtManageChild  ( widget  ); 

XmStringFree  ( tcs  ) ; 


/* 

* Add  the  callback  routine  if  specified. 
*/ 


if  ( callback  ) 

{ 

callback->closure  = (caddr_t)  arm; 

XtAddCal lbacks { widget,  XmNarmCallback,  callback  ); 
callback->closure  * (caddr_t)  disarm; 

XtAddCal lbacks { widget,  XmNdisarmCallback,  callback  ); 

} 


) 


return  ( widget  ) ; 


* 


* FILE  NAME:  create. h 


* 


* FILE  FUNCTION: 

* 

* This  file  contains  the  function  prototypes 

* routines. 

* 


create.h 


of  the  Motif  "create"  widget  helper 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* 

* FILE  MODULES: 

* 

* N/A 

★ 

* 

★a********************* 


★ * 


*■  * * 


extern  Widget 


cr_cascade  (), 
cr_comrcand  {), 
cr_form  O, 

cr_f rame  0 , 
cr_frm_cmd  (), 
cr_frm_rc  {), 
cr_frm_txt  ()  , 
cr_label  ( ) , 
cr_pixmap  ( ) , 
cr_popup  ( ) , 
cr_rel_cmd  ()  , 
cr_rowcol  ()  , 
cr_separator  ( ) , 
cr_text  ()  , 

cr_toggle  () ; 


DELETE 


delete.c 


Purpose:  Delete  removes  the  last  token  in  the  Comp  string. 
Designer:  Troy  Heindel 
Programmer:  Troy  Heindel 
Date:  5/19/87 


Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

External  Interfaces 


getTokenLen ( ) 
dcrVarList () 
delete  () 
lookBackJack () 


returns  the  length  of  a given  token 
decriments  the  occurence  count  for  a variable 
look  up  bub! 

check  whether  prev  paren  is  preceded  by  function 


# include  <stdio .h> 

♦include  <string.h> 
♦include  <X11/Int rinsic .h> 
♦include  <Xm/Xm.h> 

♦include  "code.h" 


delete.c 


delete  0 

{ 


compLength, 

/* 

tokenLength, 

/* 

lr 

/* 

tokenNumber, 

/* 

j; 

/* 

Length  of  the  comp  */ 
length  of  the  token  */ 
index  into  Comp  */ 

the  number  of  the  token  to  delete  */ 
index  into  var_temp  */ 


char  var_temp [ MAX_VAR_LEN } ; /*  the  variable  to  delete  */ 


tokenNumber  * PrevChoice  [ChoiceCounte r - 1]; 
tokenLength  * getTokenLen ( tokenNumber ) ; 
compLength  = strlen  (Comp) ; 


/* 

* If  the  token  is  a variable  we  need 

* to  find  and  index  to  its  first  char. 

*/ 

if  (tokenNumber  — MSID  | I tokenNumber  =»  SIGNAL  | ! tokenNumber  *«  LOCAL) 

{ 


/* 

* Copy  the  variable  into  a temp  string 
*/ 

for  ( j«0, i«compLength-tokenLength+l; i<compLength ; i++) 
var_temp [ j++]  = Comp[i]; 

var_temp[j]  * 0;  /*  terminate  string  */ 

/* 

* Decrement  the  occurrence  of  this  variable 

* or  delete  if  last  one. 

*/ 


dcrVarList  (var  temp) ; 

) 

/* 

* Shorten  up  the  CODE  comp  string  to  its  new  more 

* diminutive  stature. 

V 

Comp [compLength  - tokenLength]  * 0; 

Choi ceCoun ter — ; 

NeedToSave  * TRUE; 


/* 

* Reset  some  global  flags  & counters 
*/ 


if (tokenNumber  *=  IF) 

{ 

WhereAmI  = CONSEQUENCE; 

Equation  * RHS; 

NumberOf If s — ; 

) 

else  if  (tokenNumber  **  THEN) 

{ 

WhereAmI  = PREMISE; 

Equation  = RHS; 

> 

else  if  (tokenNumber  ==  AND  I I tokenNumber  *=  OR  | 1 
tokenNumber  -=  SET  I ! tokenNumber  **  ELSE) 

( 

Equation  = RHS; 


/* 

* Reset  this  NestedElseCheck  so  that  ELSE  is 

* enabled  in  next_inputs 
*/ 

if (tokenNumber  **  ELSE) 

NestedElseCheck [NumberOf If s-NumberOfEndi fs ] * THEN; 

) 

else  if (tokenNumber  --  END_IF ) 


delete.c 


{ 

Numbe  rO  fE  nd i f s — ; 

Equation  = RHS; 

} 

else  if  (tokenNumber  -=  R_P AREN) 

{ 

ParenCount++; 

/* 

* Call  to  lookBackJack ()  looks  backwards  to  see 

* whether  or  not  we  are  inside  of  a function. 

*/ 

if  (FuncParenCount  > 0 ||  lookBackJack  ()) 

FuncParenCount ++; 

} 

else  if  (tokenNumber  ==  L_PAREN) 

{ 

ParenCount--; 

/* 

* If  we  are  working  inside  of  a function  expression 

* we  need  to  maintain  Its  paren  count  as  well 
*/ 

if  (FuncParenCount  > 0) 

FuncParenCount--; 


/* 

* If  the  previous  choice  is  a function  then  delete  it 

* also  since  it  is  linked  to  this  left  paren. 

*/ 

if  (PrevChoice [ChoiceCounter-1 ] 

PrevChoice [CboiceCounter-1 ] 

PrevChoice [CboiceCounter-1 ] 

PrevChoice [ChoiceCounter-1] 

PrevChoice [ChoiceCounter-1] 

PrevChoice [ChoiceCounter-1] 

PrevChoice [ChoiceCounter-1] 

PrevChoice [ChoiceCounter-1] 

PrevChoice [ChoiceCounter-1] 

PrevChoice [ChoiceCounter-1 j 
PrevChoice [ChoiceCounter-1] 

PrevChoice [ChoiceCounter-1] 

delete  ()  ; 

} 

else  if  (tokenNumber  ==  EQ  (| 

tokenNumber  *•  LT  j j tokenNumber  =*  GT  I j 
tokenNumber  LE  ! | tokenNumber  «==  GE  | i 

tokenNumber  **  NE) 

{ 

Equation  = LHS; 

Numbe rOf Compares — ; 

} 


— NOT 
*•  COS 
==  ACOS 
SIN 

==  ASIN 
« TAN 
« ATAN 
POWER 
LOG 
« EXP 

FUNCTION 
« SQRT) 


delete.c 


/★t************************************************************ 

lookBackJack 

This  is  a short  routine  which  looks  back  into  the  token  history 
to  see  if  the  paren  we  are  deleting  belongs  to  a function. 
****★★*★**★*******★★★**********★*******'********'****************'/ 


lookBackJack  () 

f 

int  parenCount,  /*  Number  of  parens  we've  found  so  far  */ 

i;  /*  index  into  PrevChoice  */ 

i - ChoiceCounter;  /*  start  at  the  end  */ 
parenCount  = 0; 

/* 

* Move  backwards  through  the  token  string  trying  to 

* find  the  match  to  the  paren  we  have  in  our  hand. 

*1 


do 

{ 

if  (PrevChoice [ i ] R_PAREN) 

{ 

parenCount++; 

} 

else  if  (PrevChoice  [i]  ==*  L_PAREN) 

{ 

parenCount--; 

} 

} while  (parenCount  > 0 &&  i--  > 0)  ; 


/* 

* If  the  matching  paren  is  just  after  a function, 

* then  return  TRUE . 

*/ 


if  (PrevChoice [ i-1 ] 
PrevChoice  [ i-1 ] 
PrevChoice  [ i-1] 
PrevChoice [i-1 3 
PrevChoice [i-1] 
PrevChoice [ i-1 ] 
return  (TRUE) ; 

else 

return  (FALSE) ; 

} 


NOT 

COS 

SIN 

TAN 

LOG 

POWER 


PrevChoice [ i-1 ] 
PrevChoice [ i-1 ] 
PrevChoice [ i-1 ] 
PrevChoice [ i-1 ] 
PrevChoice ( i-1 ] 
PrevChoice [ i-1 ] 


-*  SQRT  } | 
ACOS  I I 
— ASIN  I | 

= = ATAN  | | 

« EXP  i | 
FUNCTION) 


delete.c 


/a****************'******** 

dcrVarList 


r********  ****** 


purpose:  dcrVarList  decriments  the  occurrence  of  a passed 

variable  if  it  finds  it  in  the  CompVars  structure. 

It  will  also  remove  the  variable  from  the  CompVars 
structure  if  the  occurrence  count  is  0. 


Returns:  0 if  success,  -1  if  variable  not  found. 


Designer:  Troy  Heindel/NASA 
Programmer:  Troy  Heindel/NASA 

Date:  11/20/88 


Version : 2.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 

a******#********************************************************/ 
dcrVarList  ( variableName) 
char  variableName (3 ; 

int  j,  index;  /*  loop  counters,  and  indexing  */ 


/* 

* Get  the  index  of  the  passed  variable  and  decrement  its 

* occurrence  counter  by  1,  and  remove  it  if  its  the  last 

*/ 

for  { index*0; index<NumCompVars; index++) 

if  (strcmp  (CompVars [ index] .name,  variableName)  « 0) 

{ 

/*******«******************•***•*******»************ 

If  there  are  now  0 occurrences  of  this  variable  we 
we  remove  it  from  the  list  of  comp  variables 
****************************♦+*********************/ 
if  ( — CompVars [ index] .occurrence  **  0) 

< 

for  ( j* index; j<NumCompVars ; j+  + ) 

{ 

strcpy  (CompVars { j] . name,  CompVars [ j + 1 ]. name) ; 
strcpy  (CompVars [ j ]. type,  CompVars [ j+1 3 . type) ; 
strcpy  (CompVars [ j] . class,  CompVars [ j+1] .class) ; 

CompVars  [ j ].  occurrence  =*  CompVars  ( j + 1 ].  occurrence; 

CompVars [ j] .put_or_get  = CompVars ( j+1] .put_or_get; 

CompVars [j] .lol_limit  - CompVars [ j+1] . lol_limit; 

CompVars [ j ]. lo2_limit  * CompVars [ j+1] . lo2_limit; 

CompVars [ j ] ,hil_limit  * CompVars [ j+1] .hil_limit; 

CompVars{ j] .hi2_limit  - CompVars [ j+1] .hi2_limit; 

strcpy (CompVars [ j] .nomenclature,  CompVars l j+1] .nomenclature) ; 

} 

— NumCompVars; 

) 

/*****************  *****************  ******* 

Let 9 s break  out  since  we  found  it 
*****★***********■**********★*************/ 
break; 

} 

) 

return; 


delete.c 


getTokenLen 


Purpose:  getTokenLen  takes  a token  and  figures  out  its  string 

length,  which  is  needed  for  adding  and  deleting 
tokens, and  retrieving  comps. 


Designer:  Troy  Heindel/NASA 
Programmer:  Troy  Heindel/NASA 

Date:  5/29/87 


Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 

*************************************************************'***/ 
getTokenLen  (tokenClass) 

int  tokenClass;  /*  IF, THEN,  ...etc...  V 

{ 

int  tokenLength, 
compLength, 

i; 


/* 

* Get  the  length  of  the  entire  comp  string 

*/ 

tokenLength  * 0; 
compLength  * strlen  (Comp) ; 

/ /* 

* PRINT  (case  1) 

*/ 

if (tokenClass  — PRINT) 

( 

/* 

* Find  both  sets  of  double  quotes 

V 

for  (i«0;i<2;i++) 

{ 

/* 

* Move  backwards  finding  double  quotes 
*/ 
do 
{ 

tokenLength++; 
compLength-- ; 

} while  (Comp (compLength)  !■  4 4 compLength); 

} 

/* 

* Add  8 for  9 print#  ' 

*/ 

compLength  -*  8; 
tokenLength  +-  8; 

/* 

* Move  backwards  finding  the  previous  token 
*/ 

while  ( (Comp [compLength-1]  » 9 9 M Comp [compLength-1]  ■■  ' \n' ) & scompLength) 

{ 

tokenLength* +•; 
compLength — ; 

} 

} 

/* 

* COMMENT  (case  2) 

V 

else  if (tokenClass  « COMMENT) 


delete.c 

( 

/* 

* Find  the  start  comment  delimiter  ' /*' 

*/ 

do 

( 

tokenLength++; 

compLength--; 

} while  ( { ! (Comp[compLength]  — ' /'  66  Comp [ compLength+1 ] « ' *'  ) ) £ tcompLength) 


/* 

* START  4 STOP 

*/ 

else  if  ( (tokenClass  --  START)  II  (tokenClass  STOP}) 

{ 

/* 

* Find  the  left  paren.  Then  subtract  off  "start  {". 

*/ 

while  ( Comp [compLength]  !*  ' ('  ) 

{ 

tokenLength++; 

compLength--; 

} 

if  ( tokenClass  — START  ) 
tokenLength  +*  6; 

else 

tokenLength  +*  5; 

while  ( (Comp [compLength]  — r ')  II  (Comp [ compLength ] — ' \n' ) ) 

{ 

tokenLength++; 

compLength--; 

} 

} 

/* 

* STRING  (case  4) 

*/ 

else  if (tokenClass  ««  STRING) 

{ 

/*  , 

* Find  both  sets  of  double  quotes 
*/ 

for  ( 1*0; i<2 ; i++) 

{ 

/* 

* Move  backwards  finding  double  quotes 
V 
do 
{ 

tokenLength++; 
compLength — ; 

} while  (Comp  [compLength]  !«  46  compLength); 

} - 

/* 

* Add  one  for  the  space  just  before  it 

V 

tokenLength++; 
compLength — ; 

) 

/* 

* EVERYTHING  ELSE 

* This  else  handles  single  word  tokens. 

* i.e.  not  special  case,  e.g.  'if' 

V 

else 

( 

/* 

* Count  up  the  chars  in  the  char  part 

V 

while  (Comp [compLength]  !-  ' ' £6  Comp [ compLength]  I-  '\n'  ££  compLength) 

{ 


tokenLength++; 
compLength — ; 


delete,  c 


) 


/* 

* Count  up  the  chars  In  the  indent  part 
*/ 

while  (Comp [ compLength- 1 ] =-  ' ' I I Comp f compLength- 1 ] 

( 

tokenLength++; 

compLength--; 

} 

} 

return  (tokenLength ) ; 


'\n'  &&  compLength) 


* 


* MODULE  NAME:  edit  ( void  ) 


edit.c 


♦ MODULE  FUNCTION: 

* 

* This  function  allows  the  user  to  edit  the  current  group's  4 source  files 

* that  comprise  the  group. 


* 

* SPECIFICATION  DOCUMENTS: 

* 


* /code/specs/code 


* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


* 

* 

* 

* 


Timothy  J.  Barton  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* 


* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

****************************************<-----> 


/ 


♦include  <stdio.h> 

♦include  <X11/ Intrinsic .h> 
♦include  <Xm/Xm.h> 

♦include  "code.h" 

♦include  "widgets.h" 

void  edit() 

{ 

char  temp [400] , 

highLevelFile  [PATH__LEN ] , 
compVarsFile  [PATH_LEN], 
compCFile  [PATH_L£N] , 

groupCFile  [PATH_LEN] ; 

Dimension  h,  w,  x,  y; 


/* 

Text 

message 

repository 

*/ 

/* 

Path 

for 

CODE 

lang.  file 

*f 

/* 

Path 

for 

comp 

variable  file 

V 

/* 

Path 

for 

comp 

translation 

file 

V 

/* 

Path 

for 

the 

group  source 

file 

V 

x * getx  ( top  ) ; 

y * get_y  ( top  ) ; 

/* DEBUG 

w - get_width  { top  ) ; 
h - get_height { top  ) ; 


/* 

* Create  absolute  paths  to  the  high  level, 

* variable,  comp  C,  and  group  C files. 

V 

sprintf  (highLevelFile,  M%s/%s/%s .h" , CodeGroups,  GroupName,  CompName); 

sprint f (compVarsFile,  "%s/%s/%s. v",  CodeGroups,  GroupName,  CompName); 

sprintf  (compCFile,  "ls/%s/%s . c",  CodeGroups,  GroupName,  CompName); 

sprintf  (groupCFile,  "ls/ls/%3 .c" , CodeGroups,  GroupName,  GroupName); 

/* 

* Make  the  system  call  which  calls  the  editor,  checking,  of 

* of  course,  for  errors. 

*/ 

if  ( SetNum  --  1 ) 

( 

sprintf ( temp,  "xterm  -geometry  %dx%d+%d+%d  M,  155,  43,  x,  y ); 
strcat  ( temp,  "-bg  lightblue  -fn  fixed  -e  vi  " ); 

} 

else 

{ 

sprintf  ( temp,  "xterm  -geometry  ldx%d+%d+%d  ",  124,  40,  x,  y ); 


} 


strcat 

( temp,  highLevelFile 

) ; strcat ( 

temp,  " " ); 

strcat 

( temp,  compVarsFile 

) ; strcat ( 

temp,  " M ) ; 

strcat 

( temp,  compCFile 

} ; strcat { 

temp,  " " ) ; 

strcat 

( temp,  groupCF i le 

) ; strcat { 

temp,  " " ) ; 

strcat 

( temp,  "2>>/tmp/code , 

►err"  ) ; 

if  ( system (temp)  *«  ERROR  ) 

user  acJc  ( "Unable  to  complete  system  call"  }; 

) 


get_header.c 


GET  HEADER 


**#*******##*****«w**+*»**** 


IIUtHt 


Purpose:  Get_header  gets  the  header  info  on  a new  comp. 

Designer:  Troy  Heindei 

Programmer:  Troy  Heindei 

Date:  5/17/87 

Version : 1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

External  Interfaces 

cleanSlateO  — Initializes  global  variables. 
displayWAO  --  displays  a string  in  the  work  area  window 


♦include  <stdio.h> 

♦include  <string.h> 
♦include  <sys/types .h> 
♦Include  <sys/timeb.h> 
♦include  <pwd.h> 

♦include  <X11/Intrinsic.h> 
♦include  <Xm/Xm.h> 

♦include  "code.h" 


* 

* MODULE  NAME:  get_header  () 


MODULE  FUNCTION: 


Get_header  gets  the  header  info  on  a new  comp. 


SPECIFICATION  DOCUMENTS: 
/code /specs /code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 


* Motif  Release  1.0  - 90/03/16 

* 

****************************************< 


get_header 

/ 

0 

\ 

time  t 

t imesec; 

/* 

long  int  days, hrs, mins, secs; 

/* 

int 

getuid  (), 

/* 

re; 

char 

t ime_str [50] ; 

/* 

struct 

passwd  *getpwuid  (); 

/* 

struct 

passwd  *user_pass; 

/* 

seconds  since  Jan  1,  1970  */ 

used  in  time  calculations  */ 

UNIX  routine  to  get  user  information  */ 

String  to  build  time  with  */ 

UNIX  routine  to  get  user  information  */ 

A structure  to  put  the  user  info  into  */ 


/* 

* Initialize  variables. 
V 


cleanSlate ( ) ; 


get_header.c 


* Append  the  current  time  to  the  Comp  string. 

V 


strcpy 


(Comp, «/************* 


time sec  = time{  (time_t  *)  0 ); 

days  * t imesec/8 64 00 ; 

hrs  = t imesec/3600; 

mins  * timesec/60; 

secs  * timesec  - mins*60; 

mins  * mins  - hrs*60; 

hrs  * hrs  - days*24; 

hrs  * hrs  - 5; 


sprint f (t  ime_str,  M %0 3d : %02d  : %02d : %02d",  days,  hrs,  mins,  secs)  ; 
strcat  (Comp,"  Creation  Time:  ") ; 
strcat  (Comp,  time_str); 

/* 

* Append  the  user's  name. 

V 


strcat  (Comp,  " Author:  ")  ; 
user_pass  - getpwuid  (getuidO); 
strcat  (Comp, user_pass->pw_gecos)  ; 
strcat  (Comp, "\nH) ; 

/* 

* Append  the  group  & comp  names. 

V 

strcat  (Comp,"  Group  Name:  ") ; 
strcat  (Comp,  GroupName) ; 
strcat  (Comp,"\t\t  Comp  Name:  ") ; 
strcat  (Comp,  CompName) ; 
strcat  (Comp,  "\n"); 

/* 

* Append  the  purpose  to  the  Comp  string  within 

* the  global  Complnfo  structure. 

V 


strcat  (Comp,  " Purpose:  ") ; 
displayWA(Comp)  ; 

re  * ABORT; 
do  { 

rc  * get_string ( "What  is  the  purpose  of  this  computation?", Complnfo [CompNumber] .purpose, 80, TRUE) ; 
if  ( rc  — ABORT  ) 

user_ack ( " You  really  should  (must)  add  a purpose  ",  HELP_U_ACK) ; 

) while  ( rc  — ABORT  ); 

strcat  (Comp, Complnfo [CompNumber ] .purpose); 

strcat  (Comp,  '•Xn****************************************************************’***/"); 

/* 

* Set  the  PrevChoice  to  COMMENT  since  the  header  is  just 

* a large  comment. 

*/ 

PrevChoice [ChoiceCounter++]  - COMMENT; 

NeedToSave  - TRUE; 

Disposition  - INCOMPLETE; 


} 


getjiame.c 


♦include  <stdio.h> 

♦include  <X11/Int rinsic .h> 

♦include  <Xm/MessageB .h> 

♦include  "code .h" 

♦include  "widgets.h" 

♦include  "create. h" 

extern  XtCallbackRec  clear_get_name [] ; 

extern  char  Group_Str(], 

Comp_St r [ ] ; 


/****************************************< > 


* MODULE  NAME:  get_name ( numOfltems,  theType,  nameToGet,  numToGet,  disposition  ) 

* 

* 

* MODULE  FUNCTION: 

* 

* Function  allows  the  user  to  select  either  an  existing  group  or  comp. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

★ 

* Motif  Release  1.0  - 90/03/16 

# 

*■***************************************< >**»*******★*★★******#*******************/ 


int  get_name ( numOfltems,  theType,  nameToGet,  numToGet,  disposition  ) 

Int  *disposit Ion, 

numOfltems, 

* numToGet ; 

char  *nameToGet, 

*theType; 

{ 

char  button_st ring [ 60] , 

message [ 100] ; 

int  i; 

Arg  args[7]; 

struct  group_info  struct  nameList [ MAX_C0MPS  ] ; /*  Place  to  put  the  names  */ 


/* 

* Let's  leave  If  there  is  nothing  to  list. 

*/ 

if  ( numOfltems  < 1 ) 

{ 

sprintf(  message, "There  are  not  any  %s(s)  to  list",  theType  ); 
user_ack{  message,  HELP_U_ACK  ); 
return  ( ERROR  ) ; 

} 

/* 

* Need  to  get  a Comp  name. 

V 

if  ( strcmp { theType, "Comp")  --  0 ) 

w < 

/* 

* If  there  is  only  one  Comp,  then  it  is  the  one,  return  its  name. 


*/ 


getjiame.c 


If  ( numOfltems  < 2 > 

st rcpy ( nameToGet,  Complnfo [0] . name  ); 

♦disposition  =*  Complnfo  [0]  .disposit ion; 

♦numToGet  = 0; 
return  ( OK  ) ; 

} 

/* 

* Otherwise,  there  is  more  than  one  Comp  to  chose  from,  build  a command 

* button  for  each  Comp. 

♦/ 

select_cursor { Clock_Cursor  ); 
for  ( i-0;  i<numOf Items;  i + + ) 

{ 

strcpy{  nameList [i] .name,  Compln fo [ I ] . name  ); 
nameList f i] .disposition  * Complnfo [ i]  .dispos it  ion; 

) 

/* 

* Set  the  popup  label  to  Comp_Str . 

*/ 

XtSetArg  (args  [ 0 ] , XmN  labelStri  ng , XmS  t r i ng  L t oRC  re  a t e ( Comp_S  t r , XmS  THING DEF  AULT__CHARSET ) ) , 

XtSetValues { lbl_gname,  args,  1 ); 

PopupHelp  * HELP_C_SEL; 

} 


/* 

* Need  to  get  a Group  name. 

♦/ 

else  if  < strcmp  ( theType,  "Group*1 ) — 0 ) 

{ 

/* 

* If  there  is  only  one  Group,  then  it  is  the  one,  return  Its  name. 

*/ 

if  { numOfltems  < 2 ) 

{ 

strcpy(  nameToGet,  Grouplnfo (0 ] .name  }; 

♦disposition  * Grouplnfo [0] .disposition; 

♦numToGet  =*  0; 
readCompNames () ; 
return!  OK  ); 

} 

/♦ 

* Otherwise,  there  is  more  than  one  Group  to  chose  from,  build  a command 

* button  for  each  Group. 

*/ 

select_cursor { Clock_Cursor  ); 
for  ( i-0;  KnumOf Items;  i++  ) 
nameList [i]  - Grouplnfo [ i] ; 

/* 

* Set  the  popup  label  to  Group_Str. 

♦/ 

XtSetArg (args [0] , XmNlabe 1st  ring, XmStringLtoRC reate (Group_Str, XmSTRING_DEFAULT_CHARSET) ) 
XtSetValues ( lbl_gname,  args,  1 ); 

PopupHelp  * HELP_G_SEL; 

} 

/ ♦ 

* Build  the  a set  of  command  buttons  and  insert  them  into  the  'get_name'  window. 

*/ 

i - 0; 

while  ((KnumOf Items)  ££  (i<MAX_NAMES) ) 

{ 

sprintf(  button_string,  "%-16sw,  nameList [ i] .name  ); 
strcat { button_string,  " " ); 

switch!  nameList [ i] .disposition  ) 


{ 

case  INCOMPLETE: 

case  COMPLETE: 

case  ERROR: 

case  INSTALLED: 

default : 

} 


get_name.c 


strcat!  button_st ring,  " 
break; 

st rcat  { but ton_st  ring,  " 
break; 

strcat  { button_str ing,  " 
break; 

strcat { button_str ing,  " 
break; 

printf(  "disposition:  %d 


INCOMPLETE  " >; 

COMPLETE  " ) ; 

ERROR  " ) ; 

INSTALLED  " ) ; 

\n", nameList [ i] .disposition 


) ; 


* Put  all  of  the  selection  buttons  in  the  first  column,  current  release  of 

* HP  widgets  will  not  work  correctly  with  multiple  columns. 

* TJB  07/07/89 
*/ 


gname  [ i ] — cr  command{  NULLS,  rcl_gname,  but  ton_  string,  clear_get_name,  i ) , 
i + + ; 


if  { (iCnumOf Items)  &&  ( i==MAX_NAMES) ) 

{ 

select_cursor { Shutt le_Cu rsor  )? 

user_ack{  "ERROR:  Cannot  display  all  available  group  names.",  HELP_U_ACK  ); 
for  (i-0;  i<MAX_NAMES;  i++) 

XtUnmanageChi Id ( gname [i]  ); 

return { ERROR  ) ; 

} 

) 

* 

* Display  the  'get_name'  popup.  After  the  user  has  made  a selection,  kill  all  the 

* widgets  which  were  used  to  construct  the  Comp/Group  buttons. 

*/ 


select_cursor ( Shutt le_Cursor  ); 
process_popup { dlg_gname,  WAIT  ); 

select_cursor { Clock_Cursor  ); 
for  (i-0;  KnumOf Items;  i++) 

XtUnmanageChi Id ( gname[i]  ); 
select_cursor { Shutt le_Cursor  ); 

/* 

* If  the  user  aborted  the  Comp/Group  selection  screen,  return  an  error, 

* otherwise,  return  the  number  of  the  selected  Comp/Group,  copy  the  corresponding 

* name  of  the  Comp/Group,  and  if  the  user  selected  a Group,  then  read  in  the 

* Comps  associated  with  the  Group. 

V 


if  ( Get_ Name_Stat  — ABORT  ) 
return { ABORT  ); 

else 

{ 

♦numToGet  - Get_Name_Stat ; 

♦disposition  - nameList [Get_Name_Stat ] .dispos it  Ion ; 
strcpy ( nameToGet,  nameList [Get_Name_Stat ]. name  ); 
if  ( strcmp{  theType,  "Group"  ) « 0 ) 
readCompNames () ; 
return ( OK  ); 

) 


> 


* 

* FILE  NAME:  graphics. c 

* 


graphics.c 


V y * FILE  FUNCTION: 

* 

* This  file  contains  the  routines  which  maintain  the  X Windows  user  interface.  This 

* file  does  not  contain  all  the  graphics  routines,  see  the  following  files  for 

* additional  X type  stuff: 

* 

* init_gp.c 

* utilities. c 

* window  io.c 


* SPECIFICATION  DOCUMENTS: 


/code/ specs/code 


* FILE  MODULES: 

* 

* CreateDefault Image 

* arm_toggle<) 

* disarm_toggle {) 

* get_height{) 

* get_width() 

* get_x() 

* get_y<) 

* popup_wait() 

* process_popup (} 

* set_cycle_mode  ( ) 


- creates  an  image  from  a bit  array 

- sets  the  toggle  state  to  armed 

- sets  the  toggle  state  to  disarmed 

- retrieves  the  height  of  the  specified  widget  (pixels) 

- retrieves  the  width  of  the  specified  widget  (pixels) 

- retrieves  the  x coordinate  for  the  specified  widget 

- retrieves  the  y coordinate  for  the  specified  widget 

- waits  for  user  to  select  a button  in  the  popup 

- handles  display  of  popups 

- sets  the  cycle  selection  mode  indicator  of  the  current  comp 


♦include  <stdio.h> 

♦include  "Xll/Intr insic.h" 
♦include  <Xm/Xm.h> 

♦ include  "code.h" 

♦include  "widgets. h" 


Arg  args [1] ; 


graphics. c 


* 

* MODULE  NAME:  arm_toggle{  widget  ) 


* 


* MODULE  FUNCTION: 

* 

* Sets  the  specified  toggle  state  to  armed. 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

**W****#«*****’*************,*************< -...,_>**********************#**#iir**********#**/ 


void  arm_toggle(  widget  ) 

{ 

XmToggleButtonSetState ( widget,  TRUE,  FALSE  ); 

} 


graphics. c 


* 

* MODULE  NAME:  CreateDefau It  Image { bits,  width,  height  ) 

* 


* MODULE  FUNCTION: 

* 

* Create  an  image  from  a bit  array. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 


* OSF  MOTIF  widget  source  code  - version  1.0 

* 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

a***************************************.*; >#*****+***★*★**★**#*********************/ 

Xlmage  *CreateDefault Image  (bits,  width,  height) 

char  *bits; 

int  width,  height; 


{ 


Xlmage  * image ; 


image  - (Xlmage  *) 
image->width 
image->he ight 
image->data 
image->depth 
image->xof fset 
image-> format 
image->byte_order 
image- >bitmap_un it 
image->bitmap_pad 
image->bytes_per_l 
image- >bitmap_b it  j 


XtMalloc  (sizeof 
■ width; 

- height; 

- bits; 

* 1; 

- 0; 

* XYBitmap; 

- LSBFirst ; 

- 8; 

- 8; 

ne  = (width+7)/8; 
rder  * LSBFirst; 


(Xlmage) ) ; 


return  (image); 

} 


graphics.c 


* 

* MODULE  NAME:  disarm_toggle ( widget  ) 


* MODULE  FUNCTION: 

* 

* Sets  the  specified  toggle's  state  to  disarmed. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

*********************•***■■****★*■**★**'*****< > *■**#+  * * + * ******-»#****'****'***-'*****W,<r,*r****’  J 


void  disarm_toggle { widget  ) 

{ 

XmToggleButtonSetState ( widget,  FALSE,  FALSE  ); 

} 


graphics.c 


* 

* MODULE  NAME:  get_height { widget  ) 


* MODULE  FUNCTION: 

* 

* Retrieves  the  height  (in  pixels)  of  the  specified  widget. 

* 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 


* Motif  Release  1.0  - 90/03/16 


* 

************#***************************<-'- 


Dimension  get_height ( widget  ) 
Widget  widget; 


{ 

Arg  args [1] ; 

XtSetArg  ( args(0],  XmNheight,  (XtArgVal)  NULL  ); 
XtGetValues ( widget,  args,  1 ); 
return ( (Dimension)  args [ 0] . value  ); 

} 


graphics.c 

* 

* MODULE  NAME:  get^width ( widget  ) 


* MODULE  FUNCTION: 

* 

* Function  retrieves  the  width  of  the  specified  widget. 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

****«***************★*******************< >*******#********************************/ 

Dimension  get_width { widget  ) 

Widget  widget; 


XtSetArg  ( args[0],  XmNwidth,  (XtArgVal)  NULL  ); 
XtGetValues ( widget,  args,  1 ); 
return ( (Dimension)  args [0 ]. value  ); 

) 


graphics.c 


* 

* MODULE  NAME:  get_x{  widget  ) 

* 


* 


* MODULE  FUNCTION: 

* 

* Retrieves  the  x coordinate  for  the  specified  widget. 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION; 


Timothy  J.  Barton 


* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0 


Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


90/03/16 


< > 


/ 


Dimension  get_x{  widget  ) 
Widget  widget; 


XtSetArg  < args[0],  XmNx,  (XtArgVal)  NULL  ); 
XtGetValues ( widget,  args,  1 ); 
return ( (Dimension)  args [0] . value  ); 


} 


graphics. c 


* 


* MODULE  NAME: 


get_y{  widget  ) 


>* 


* MODULE  FUNCTION: 

* 

* Retrieves  the  y coordinate  for  the  specified  widget. 

* 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


Timothy  J.  Barton 


Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

**★*****************************★*******<-_-_->****************************************/ 


Dimension  get_y { widget  ) 
Widget  widget; 


XtSetArg  ( arga[0],  XmNy,  (XtArgVal)  NULL  ); 
XtGetValues{  widget,  args,  1 ); 
return { (Dimension)  args [ 0] . value  ); 


#« 


graphics.c 


Hr 

* MODULE  NAME:  popup_wait() 


* MODULE  FUNCTION: 

* 

* Function  processes  events  locally  (as  opposed  to  XtMainLoop)  until  the  user 

* selects  a button  in  the  currently  active  popup. 


* SPECIFICATION  DOCUMENTS: 


* /code/specs/code 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


Timothy  J.  Barton 


Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


★ 


* REVISION  HISTORY: 


* Motif  Release  1.0  - 90/03/16 

* 

***************************★************< > * * 


/ 


void  popup_wa i t ( ) 

{ 

XEvent  event; 


Act i vePopup+  + ; 

PopupStat [ ActivePopup  ] - -1; 

while  ( PopupStat [ ActivePopup  ] < 0 ) 

( 

XtNextEvent  { ievent  ) ; 
XtDispatchEvent  { tevent  ) ; 

) 

Act ivePopup — ; 


graphics. c 


********* 


*< >1 


* MODULE  NAME:  process_popup { widget  ) 

★ 

* 

* MODULE  FUNCTION: 

* 

* Function  places  the  pointer  in  the  middle  of  the  Comp  Builder  screen,  then 

* places  the  popup  and  if  necessary,  waits  for  the  user's  response. 


* SPECIFICATION  DOCUMENTS: 


/code /specs /code 


* 


* ORIGINAL  AUTHOR  AND 

* 


* Timothy  J.  Barton 

* 


IDENTIFICATION: 

- Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

*****************'**********************i*< _>*************************************★**/ 


void  process_popup ( widget,  wait_flag  ) 
Widget  widget; 


{ 

Dimension  x,y; 

x - get_x(  form  ) + { get_width ( form) /2 ) ; 
y * get_y(  form  ) + {get_height ( form) /2 ) ; 

XWarpPointer ( XtDisplay (top) , None,  XtWindow { form) , 0,  0,  0,  0,  x,  y ); 
XtManageChild { widget  ); 

if  ( wait_flag  ) 
popup_wa 1 t () ; 

} 


graphics  .c 


* 

* MODULE  NAME:  set_cycle_mode ( mode  ) 

* 


* 


* MODULE  FUNCTION: 

* 

* Routine  sets  the  cycle  selection  mode  indicator  of  the  current  comp. 


* 


* SPECIFICATION  DOCUMENTS: 


/code/ specs /code 


* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


* 

* 

* 

* 


Timothy  J.  Barton 


Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* 


* REVISION  HISTORY: 


* Motif  Release  1.0  - 90/03/16 

* 


void  set_cycle_mode { mode  ) 
int  mode; 


{ 


} 


if  ( Disposition  »«  NO_GROUP  ) 

{ 

user_ack{  MNo  group  selected,  use  CREATE  to  start  a new  Group/Comp",  HELP_U_ACK  ); 
disarm_toggle { tgl_cycle  ); 
disarm_toggle ( tgl_lshot  ); 
return; 

} 

else 

{ 

Complnfo [CompNumber 3 . cycle_mode  ■ mode; 

NeedToSave  - TRUE; 

} 


* 


* FILE  NAME:  hisde.h 

* 

★ 

* FILE  FUNCTION: 

* 

* This  file  contains  the  constants  used  to  send  messages  to  the  h_message() 

* client  of  the  SwRI  Hardware  Independent  Software  Development  Environment  (HISDE) . 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* FILE  MODULES: 

* 

* N/A 

* 

* 

*****************************************< -->***★*****★********************★*********/ 

/* 

* Constants  for  use  by  various  message  types. 

V 


♦define  MSG_APPLICATION  1 
♦define  MSG_ERROR  2 
♦define  MSG_HOST  3 
♦define  MSG_INFORMATION  A 
♦define  MSG  WARNING  5 


W 


/* 

* Maximum  message  length. 

V 

♦define  MAX  MESS AGE— LENGTH  160 


init_code.c 


* 

* FILE  FUNCTION: 

* 

* Initializes  the  paths  and  files  required  by  CODE. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* FILE  MODULES: 

* 

* CheckOrMkdir  ( ) - makes  sure  the  directory  exists,  if  not,  creates  it 

* init_code()  - initializes  paths  to  files  used  by  CODE 

* 

*************★**************************< >**********★***********************★*★★★*/ 


♦include  <stdio.h> 

♦include  <string.h> 
♦include  <X11/Intrinsic ,h> 
♦include  <Xm/Xm.h> 

♦include  "code.h” 

♦include  "hisde.b“ 


init_code.c 


/*****************  ****************  *******< >**.**,************  t*t****** ************* 

* 

* MODULE  NAME:  CheckOrMkdir ( path  ) 

* 

* 

* MODULE  FUNCTION: 

* 

* Function  checks  for  a directory,  if  it  exists,  the  routines  exits*  If  the 

* directory  does  not  exist,  this  function  tries  to  create  it. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Troy  Heindel  & Terri  Murphy  of  NASA/ JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* 12/11/86 
* 

****************************************< >***#***************#**************«***#*/ 


int  CheckOrMkdir { path  ) 
char  *path; 


{ 

char  message [200] ; 

if  ( access (path, F OK)  — ERROR  ) 
if  < mkdir (path, 511)  !•  OK  ) 

{ 

sprintft  message,  MCODE:  could  not  create  directory:  %sH,  path  ); 
user_ack(  message,  HELP_U_ACK  ); 
return ( ERROR  ) ; 

) 

return ( OK  ) ; 

) 


> * * + * 


* MODULE  NAME: 


init  code() 


* MODULE  FUNCTION: 

* 

* Initializes  paths  to  the  various  files  required  by  CODE, 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
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int  init_code O 

{ 

int  rc  - OK; 

FILE  *ptr; 

char  chi, 

ch2, 

listUserFuncs [ 250  ], 
message  [ 200  ]; 


/* 

* Check  for  the  CODE  error  file,  if  present,  delete  it, 

*/ 


if  ( access ( "/tmp/code .err" , F_OK)  «*  OK  ) 

if  ( system(Hrm  /tmp/code .err  >>/tmp/code .err  2>fcl")  !-  OK  ) 

user_ack(  "CODE:  unable  to  remove  /tmp/code . err",  HELP_U_ACK  ); 

/* 

* Get  the  terminal  setup.  Save  terminal  setup  parms  so  they  can  be  restored  when 

* CODE  is  exited, 

*/ 


/* 

* Load  the  knowledge  base  for  CLIPS. 
*/ 


/* 

* Get  environment  variable  which  specifies  path  to  CODE  root  directory.  Build  paths 

* to  support  directories. 

V 

if  ( getenv(,4RTDS")  « NULL  ) 

( 

user_ack{  "CODE:  RTDS  environment  variable  not  defined**,  HELP_U_ACK  ); 
if  ( get_st ring ("Enter  path  to  RTDS" , RTDS, 79, FALSE)  « ABORT  J 
return  ( ERROR  ) ; 

) 

else 

st rcpy ( RTDS,  getenv ("RTDS")  ); 


sprintf  (AM, 
sprintf  (AMSupport 


%s/rtds/am", 
%3/rtds/ am/ support 


RTDS) ; 
RTDS) ; 


/*  directory  */ 
/*  directory  */ 


sprintf  (AMGroups, 
sprintf  (Code, 
sprintf  (CodeDocs, 
sprintf  (CodeGroups, 
sprintf  (GroupNamesFi le, 
sprintf  (MSIDTbl, 
sprintf  (SignalTbl, 
sprintf  (UserFuncsLlb  , 
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M Is/rtds/am/qroups" , 

"%s/ rtds/code" , 
H%s/rtds/code/docs/code  doc", 
"%s/ rtds/code /groups", 

" %s/GroupNames" , 

" % s/rtds/ tables/ tag _ms i d tbl", 

" %s/rtds/tables/signa 1 table", 
"%s/rtds/l  ib/1  ibu  serf  lines  .a". 


RTDS) ; 

/* 

directory 

V 

RTDS)  ; 

/* 

directory 

V 

RTDS)  ; 

/* 

file 

V 

RTDS)  ; 

/* 

directory 

*/ 

CodeGroups) ; 

/* 

file 

*/ 

RTDS)  ; 

/* 

file 

*/ 

RTDS)  ; 

/* 

file 

*/ 

RTDS)  ; 

/* 

library 

V 

/* 

* Check  the  accessibility  of  some  paths  to  see  if  they  exist  and  create  them  if 

* they  do  not,  exit  if  the  path  does  not  exist  and  it  cannot  be  created. 

*/ 


re  +-  CheckOrMkdir { Code  ); 
rc  +*  CheckOrMkdir { CodeGroups  ); 
re  +»  CheckOrMkdir!  AM  }; 
rc  +-  CheckOrMkdir!  AMSupport  ); 
rc  + - CheckOrMkdir!  AMGroups  ); 


if  ( rc  ) 

{ 

user  ack ( "CODE:  required  path  does  not  exist  and  could  not  be  created",  HELP_U_ACK  ); 
return!  ERROR  ); 

) 


/* 

* Load  the  msid  list  and  Info  for  msid  validation  in  put_msid.c 
*/ 


MSIDCount  - 0; 

if {ptr  * openFile  (MSIDTbl r" , " init_code" ) ) 

{ 

fifdef  HISDE 

harness age ( MSG_AP PLICATION,  "CODE:  Loading  the  MSID  list  into  memory..."  ); 

fendif 

/* 

* Rip  the  header  off  the  file 
*/ 

while  ( ( (chi  - fgetc  (ptr))  !-  EOF)  £&  (!(chl  --  '/'  ch2  — '*'))) 

{ 

ch2  * chi; 

} 


/* 

* Loop  through  the  file  filling  the  global  structure  MSIDTable 

* with  all  those  lovely  msid's  and  related  info. 

V 


while  (fscanf  (ptr,"%s  %*c  %*c  %*c  %*c  %*c  %s  %*c  %[A\n]«, 
MSIDTable [MSIDCount ] .name, 

MSIDTable [MSIDCount ] .type, 

MSIDTable [MSIDCount ]. nomenclature)  !■  EOF) 


/* 

* Convert  the  one  character  msid  type  definition 

* to  a full  word  type  definition  which  is  the 

* standard  for  CODE. 

V 


if  (MSIDTable [MSIDCount] .type [0]  «=  's') 

strepy  (MSIDTable [MSIDCount ] .type,  "short”); 
else  if  (MSIDTable [MSIDCount] .type [0]  — 'i') 
strepy  (MSIDTable [MSIDCount ]. type,  "int"); 
else  if  (MSIDTable [MSIDCount] .type[0]  — 'S') 
strepy  (MSIDTable [MSIDCount ]. type,  "char"); 
else  if  (MSIDTable [MSIDCount] .type [0]  ' f ' ) 

strepy  (MSIDTable [MSIDCount ]. type,  "float"); 
else  if  (MSIDTable [MSIDCount] .type [0]  = - 'd') 

strepy  (MSIDTable [MSIDCount ]. type,  "double"); 

/* 

* Increment  the  msid  record  counter 

V 


MSIDCount++; 


/* 

* Create  and  execute  the  system  command  which 

* will  create  a file  listing  of  user  functions. 

V 


sprintf  (listUserFuncs,  "ar  t %s  > /tmp/user_funcs  2>/tmp/code . err",  UserFuncsLib) ; 
system ( listUserFuncs) ; /*  If  we  can't  do  this,  who  cares!  */ 

/* 

* Now  create  a path  for  the  file  to  be  read 

V 

strcpy  (listUserFuncs,  ,,/tmp/user_funcs,,)  ; 

/* 

* Open  the  newly  created  file  /tmp/user_f uncs 

* and  read  out  the  names  of  the  user  functions. 

•« 

* Start  at  0. 

V 

NumberOfUserFuncs  - 0; 

if  (ptr  - openFile ( 1 istUserFuncs,  "r",  " Lnit_code") ) 

{ 

/* 

* Loop  through  the  file,  filling  the  global  structure  MSIDTable 

* with  all  those  lovely  maid's  and  related  info. 

V 


fscanf  (ptr,  Ml*[A\n]M);  /*  Rip  the  header  *f 

while  (fscanf  (ptr,"%s",  UserFuncs [NumberOf UserFuncs] ) !■  EOF) 

{ 

UserFuncs [NumberOfUserFuncs] [str len (UserFuncs [NumberOfUserFuncs] ) -2] *' \0' ; 


/* 

* Make  sure  the  function  is  not  a CODE  reserved  word 
*/ 


if 


(st rcmp 
st rcmp 
st rcmp 
strcmp 
st rcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 
strcmp 


(“if", 

("then”, 

("and", 

("or", 

("not", 

("print  1 

( "print2 

(Mprint3 

("print4 

( "prints 

("set", 

<"<«", 

("else", 

("endif" 

H", 

(rt)  ", 
{••+■, 
(*•-", 
("*", 
("/", 
("bitXor 
( "exp" , 
("log", 
("cos", 
("acos", 
("sin", 
("asin", 
("tan", 

( "atan", 
("sqrt ", 


UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
, UserFuncs 
", UserFuncs 
", UserFuncs 
", UserFuncs 
", UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
, UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 
UserFuncs 


[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs]  ) 
[NumberOfUserFuncs]  ) 
[NumberOfUserFuncs] } 
[NumberOfUserFuncs] } 
[NumberOfUserFuncs]  ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 
[NumberOfUserFuncs] ) 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


strcmp 

strcmp 

strcmp 

strcmp 

strcmp 

strcmp 

strcmp 
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("power11 , User  Fun  cs  (Numbe  rOfUsorFuncs] ) 
("bitAnd", UserFuncs [NumberOfUserFuncs] ) 
(MbitOrM,  UserFuncs  [NumberOfUserFuncs]  ) 
("shitfL", UserFuncs [NumberOfUserFuncs] ) 
("shiftR" , UserFuncs [ NumberOfUserFuncs] ) 
("p",  UserFuncs [NumberOfUserFuncs] ) 
(",  ",  UserFuncs  [NumberOfUserFuncs] ) 


0 I I 
0 I I 
0 I I 
0 I ! 
0 I I 
0 I I 
0) 


#ifdef  HISDE 
#endif 


#ifdef  HISDE 
#endif 


{ 

strcpy(  message,  "CODE:  " ); 

strcat(  message,  UserFuncs [NumberOfUserFuncs  ] ); 

strcat(  message,  " is  a CODE  reserved  word  and  therefore  can  not  be  used  as  a"  } 
strcat{  message,  " user  function."  ); 

h_message(  MSG_WARN ING,  message  ); 

user_ack ( message,  HELP_U_ACK  ); 

sprintf(  message,  "CODE:  Ignoring:  %s",  UserFuncs [NumberOfUserFuncs ] ); 
h_message ( MSG_WARNING,  message  ); 

} 


/* 

* Increment  the  function  counter. 

V 

else  NumberOf UserFuncs++; 

} 


/* 

* Let's  not  forget  to  clean  up  after  ourselves. 

V 


if(system  {"rm  /tmp/user_funcs  2>>/tmp/code . er r" ) ! »0K) 

user  ack ( "CODE:  unable  to  remove  /tmp/user_funcs“,  HELP_U_ACK  ); 


/* 

* Read  the  GroupNames  file  into  memory.  If  we  have  a problem 

* we  exit  since  no  useful  work  can  be  done  without  reading 

* and  writing  this  file. 

V 


if  (readGroupNames  ()  *«*  ERROR) 
cleanExit ( ) ; 


/* 

* -Initialize  some  variables  to  a known  state. 

V 


Comp [ 0 ] 

CompNumber 

Disposition 

GroupNumber 

NeedToSave 

NumO fComps 

theMode 

WaitCursor 


* NULL; 

« ERROR; 

- NO^GROUP; 

- ERROR; 

- FALSE; 

- 0; 

- RUNmode; 

- 0; 


strcpy(  CompName,  ■ " ) ; 
strcpy(  GroupName,  " " ); 


/* 

* Update  the  status  window. 

V 

put_status () ; 


) 


return ( OK  ) ; 
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/************★************************************************ 
NEXT_INPUTS 

Purpose:  Next_Inputs  is  used  to  determine  what  options  are 

valid  after  each  choice. 

Designer:  J.  Harold  Taylor/SDC 

Programmer:  J.  Harold  Taylor/SDC 

Date:  12/11/86 

Version : 1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 


External  Interfaces 


/************************************************************* 
Include  files 

★************************************************************/ 
♦Include  <stdio.h> 
finclude  <X11/Intrinsic . h> 

♦include  <Xm/Xm.h> 

♦Include  "code.h" 


next_inputs  {on_my_left , on_my_right ) 
Int  on_my_left, on_my_right ; 


int  i, 

defaults  - 0; 

if  {on_my_right  --  IGNORE) 
return  {OK) ; 

TotValPts  * defaults; 

/****************************************************************** 

COMMENTS 

Comments  are  handled  differently  than  other  tokens,  since  they  do 
not  change  what  Is  valid,  but  are  part  of  the  comp  string.  Search 
backwared  for  a valid  token,  or  just  find  the  end  of  the  string. 
*******************************************************************/ 
if  {on_my_left  — COMMENT) 

{ 

/********************************* 

Start  out  assuming  its  a new  comp 
**********************************/ 
on_my_left  - CREATE; 

/************************************************ 

Loop  through  the  choices  until  we  find  one  which 
is  not  a comment,  then  reset  and  break 
*************************************************/ 
for  (i-ChoiceCounter-1; i>l; i — ) 

{ 

/*********************************************** 

Once  we  have  found  the  first  occurrence  of 
something  that  is  not  a comment  we  call,  break 
************************************************/ 
if  (PrevChoice [ i]  !-  COMMENT) 

{ 

on_my_left  - PrevChoice [i] ; 
break; 


IF 
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if  (on_my_left  — IF) 

i 


TotValPts  * defaults 

+ 

20; 

ValidPoints [defaults 

0] 

- LOCAL; 

ValidPoints [defaults 

+ 

1] 

= MSID; 

ValidPoints [defaults 

+ 

2] 

= SIGNAL; 

ValidPoints [defaults 

+ 

3] 

- NUMBER; 

ValidPoints [defaults 

+ 

4] 

- L PAREN; 

ValidPoints [defaults 

+ 

5] 

= NOT; 

ValidPoints [defaults 

+ 

6] 

- COS; 

ValidPoints [defaults 

+ 

7] 

= ACOS; 

ValidPoints [defaults 

+ 

8] 

= SIN; 

ValidPoints [defaults 

+ 

9] 

= ASIN; 

ValidPoints [defaults 

+ 

10] 

- TAN; 

ValidPoints [defaults 

+ 

113 

* AT  AN; 

ValidPoints [defaults 

+ 

12] 

- STRING; 

ValidPoints [defaults 

+ 

13] 

* PI; 

ValidPoints [defaults 

+ 

14] 

= FUNCTION 

ValidPoints [defaults 

+ 

15] 

- SQRT; 

ValidPoints [defaults 

+ 

16] 

» POWER; 

ValidPoints [defaults 

+ 

17] 

» EXP; 

ValidPoints [defaults 

+ 

18] 

= LOG; 

ValidPoints [defaults 

+ 

19] 

- SUBTRACT 

LikelyNextChoi ce  * MSID; 

} 

/**************************************** 

MSID  NUMBER  PI  CHAR  SIGNAL  LOCAL 
*****************  ************************/ 
else  if  (on_my_left  **  MSID  I | on_my_left  » NUMBER  I I 
on_my_left  -■  PI  II  on_my_left  — STRING  I | 
onjny_left  --  SIGNAL  |T  on_my_left  « LOCAL) 

{ 

/**********************★************************ 

Having  an  equal  number  of  ifs  and  endifs  means 
we're  outside  of  the  if  which  is  the  same 
as  being  in  the  consequence. 
**********************************************■**/ 
if  (WhereAml  « CONSEQUENCE  I | NumberOflfs  -*  NumberOfEndif s) 
{ 

if  (Equation  ««  RHS) 

{ 

if  (CompareType [NumberOfCompares-1 ] [0]  !■  'c') 

( 

/**************************★**************** 
Check  if  they  have  balanced  their  paren' s, 
if  not,  make  'em  balance  the  parens. 

This  takes  care  of  argDefs  too. 
**************★★************************★***/ 


if 

{ 


) 


(ParenCount  > 0) 


TotValPts  « defaults  + 10; 
ValidPoints [defaults  + 0]  - 
ValidPoints [default s + 1]  - 
ValidPoints [defaults  + 2]  * 
ValidPoints [defaults  + 3]  - 
ValidPoints [defaults  + 4]  - 
ValidPoints [defaults  + 5]  » 
ValidPoints [defaults  + 6]  « 
ValidPoints [defaults  + 7]  ~ 
ValidPoints [defaults  + 8]  - 
ValidPoints [defaults  + 9]  - 
Like lyNextCho ice  - R_PAREN; 
if  (FuncParenCount  > 0 it 


ADD; 

SUBTRACT; 

MULTIPLY; 

DIVIDE; 

SHIFTR; 

SHIFTL; 

R_PAREN; 

BITOR; 

BITXOR; 

BITAND; 


Funct ionArgsDef [Funct ionCurrent ] < 
ValidPoints [TotValPt s++]  - COMMA; 


else 


Funct ionArguments [Funct ionCurrent] -1) 


{ 


TotValPts  = defaults  + 14; 
Val idPoints [defaults  + 0]  * 
ValidPoints [defaults  + 1]  - 
ValidPoints [defaults  + 2]  - 
ValidPoints [defaults  + 3]  * 
ValidPoints [defaults  + 4]  - 
ValidPoints [defaults  + 5]  - 
ValidPoints [defaults  + 6]  - 
ValidPoints [defaults  + 7]  - 
ValidPoints [defaults  + 8]  - 


ADD; 

SUBTRACT; 

MULTIPLY; 

DIVIDE; 

IF; 

SET; 

PRINT; 

SHIFTR; 

SHIFTL; 
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ValidPoints [defaults  + 9]  * BITOR; 

ValidPoints [defaults  + 10]  - BITXOR; 

ValidPolnts [defaults  + 11]  = BITAND; 

ValidPoints [defaults  + 12]  * START; 

ValidPoints [defaults  + 13]  - STOP; 

LikelyNextChoice  - IF; 

/★*★★★* ****★★****★***★★★★**★★******★*★*★★**** 

If  an  ELSE  has  already  been  used  in  this  if 
we  don't  let  them  use  it  again! 
*********************************************/ 
if (NestedElseCheck [NumberOf If s-NumberOfEndifs]  «=  THEN) 
{ 

Like lyNextChoice  = ELSE; 

ValidPoints [TotValPt s++]  = ELSE; 

} 

/**★★★*★-***★★*★*★*★★★**★★★★*★**★**★*★★★★★*★** 

If  they  have  closed  all  their  if ' s with 
endif ' s then  they  don't  need  endif  any  more. 
*********************************************/ 
if  ( (NumberOflfs  - NumberOfEndif s)  > 0) 

< 

LikelyNextChoice  = END_TF; 

ValidPoints [TotValPts++]  * END_IF; 

) 


/* 

* Compare  type  is  a string. 

*/ 

else 

{ 

TotValPts  * defaults  + 5; 

ValidPoints [default s + 0]  - IF; 

ValidPoints [defaults  + 1]  - SET; 

ValidPoints [defaults  + 2]  - PRINT; 

ValidPoints [defaults  + 3]  - START; 

ValidPoints [defaults  + 4]  - STOP; 

/*********************************** **★★**★** 

If  an  ELSE  has  already  been  used  in  this  if 
we  don't  let  them  use  it  again! 

*****************  ********  **★★**■*  *************/ 
if (NestedElseCheck [NumberOf If s -NumberOfEndif s]  ■■  THEN) 
{ 

LikelyNextChoice  - ELSE; 

ValidPoints [TotValPts++]  - ELSE; 

} 

/******************************************** 

If  they  have  closed  all  their  if' s with 
endif' s then  they  don't  need  endif  any  more. 

ft********************************************/ 

if  ( (NumberOflfs  - NumberOfEndifs)  > 0) 

{ 

LikelyNextChoice  - END_IF ; 

ValidPoints [TotValPts++]  - END_IF ; 

} 

} 

} 

/A*********************************************** 

Don't  worry  - be  happy  we  couldn't  get  to 

this  point  with  an  MSID  or  constant  expression. 

See  on_my_left  --  SET. 

**w*##**-********#*******#*********#******  ********  ^ 

else  if  (Equation  — LHS) 

{ 

TotValPts  - defaults  + 1; 

ValidPoints [defaults  + 0]  - EQ; 

LikelyNextChoice  * EQ; 

} 

} 

else  if  (WhereAml  — PREMISE) 

{ 

if  (Equation  « LHS) 

{ 

if  (ParenCount  > 0) 

{ 

/********************************■******* 

If  we're  done  defining  arguments,  let 
them  do  some  relational  stuff. 
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******************************** *******/ 
if  (FuncParenCount  --  0) 

{ 


TotValPts  - defaults 

+ 

16; 

ValidPoints [defaults 

+ 

0] 

« 

ADD; 

ValidPoints [defaults 

+ 

1] 

- 

SUBTRACT; 

ValidPoints [defaults 

2] 

- 

MULTIPLY; 

ValidPoints [default  s 

+ 

3] 

- 

DIVIDE; 

ValidPoints [defaults 

+ 

4] 

■ 

LT; 

ValidPoints [defaults 

+ 

5] 

- 

GT; 

ValidPoints [defaults 

6] 

* 

LE; 

ValidPoints [defaults 

+ 

7] 

- 

GE; 

ValidPoints [defaults 

+ 

8] 

- 

NE; 

ValidPoints [defaults 

+ 

9] 

* 

R PAREN; 

ValidPoints [defaults 

+ 

103 

= 

> EQ; 

ValidPoints [defaults 

+ 

11] 

=> 

- SHIFTR; 

ValidPoints [defaults 

+ 

12] 

- 

■ SHIFTL; 

ValidPoints [defaults 

13] 

- 

■ BITOR; 

ValidPoints [defaults 

+ 

14] 

- 

■ BITXOR; 

ValidPoints [defaults 

+ 

15] 

' BIT AND; 

LikelyNextChoice  « EC 

!; 

else 


TotValPts  - defaults 
ValidPoints [defaults 

+ 

+ 

10 

0] 

ADD; 

ValidPoints [defaults 

1] 

» 

SUBTRACT; 

ValidPoints [defaults 

+ 

2] 

- 

MULTIPLY; 

ValidPoints [defaults 

+ 

3] 

- 

DIVIDE; 

ValidPoints [defaults 

+ 

4] 

= 

SHIFTR; 

ValidPoints [defaults 

+ 

5] 

■ 

SHIFTL; 

ValidPoints [defaults 

+ 

6] 

■ 

R PAREN; 

ValidPoints [defaults 

+ 

7] 

- 

BITOR; 

ValidPoints [defaults 

+ 

8] 

- 

BITXOR; 

ValidPoints [defaults 

+ 

9] 

- 

BITAND; 

if  (FunctionArgsDef [Funct ionCurrent]  < Funct ionArguments [Funct ionCurrent ] -1) 
ValidPoints  [TotValPt s++]  =»  COMMA; 

LikelyNext  Choice  = R_P  AREN  ; 

} 

) 

else 

{ 


TotValPts  * defaults 

+ 

15; 

ValidPoints [defaults 

+ 

0] 

ADD; 

ValidPoints [defaults 

+ 

1] 

= 

SUBTRACT; 

ValidPoints [defaults 

+ 

2] 

MULTIPLY; 

ValidPoints [defaults 

+ 

3] 

DIVIDE; 

ValidPoints [defaults 

+ 

4] 

LT; 

ValidPoints [defaults 

+ 

5] 

GT; 

ValidPoints [defaults 

+ 

63 

LE; 

ValidPoints [defaults 

+ 

7] 

GE; 

ValidPoints [defaults 

+ 

8] 

NE; 

ValidPoints [defaults 

+ 

9] 

EQ; 

ValidPoints [defaults 

+ 

10] 

• SHIFTR; 

ValidPoints [defaults 

+ 

11] 

■ SHIFTL; 

ValidPoints [defaults 

+ 

12] 

• BITOR; 

ValidPoints [defaults 

+ 

13] 

■ BITXOR; 

ValidPoints [defaults 

14] 

> BITAND; 

LikelyNextChoice  * EQ; 

) 

) 

else  if  {Equation  --  RHS) 

{ 


if  (ParenCount  > 0) 

( 

/★A**************************************** 

If  we're  done  defining  function  arguments, 
let  them  do  some  relational  stuff. 

******************************************* y 

if  (FuncParenCount  « 0) 

{ 

TotValPt s - defaults  + 15; 

ValidPoints [defaults  + 0}  - AND; 

ValidPoints [defaults  + 1]  = DIVIDE; 

ValidPoints [defaults  + 2]  » OR; 

ValidPoints [defaults  + 3]  - ADD; 

ValidPoints [defaults  + 4]  ~ SUBTRACT; 


ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 
LikelyNextChoice  - R 

} 

else 

{ 

TotValPts  * defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 
ValidPoints [defaults 
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+ 5]  - MULTIPLY; 
+ 6]  = BITXOR; 

+ 7]  * R_PAREN; 

+ 8]  = BITAND; 

+ 9]  = BITOR; 

+ 10]  - SHIFTR; 

4-  11]  - SHIFTL; 


_?  AREN; 


+ 

10; 

+ 

0]  - 

DIVIDE; 

+ 

1]  - 

ADD; 

+ 

2]  - 

SUBTRACT 

+ 

3]  - 

MULTIPLY 

+ 

4]  - 

R PAREN; 

+ 

5]  - 

SHIFTR; 

+ 

6]  - 

SHIFTL; 

+ 

7]  - 

BITOR; 

+ 

8]  - 

BITXOR; 

+ 

9]  - 

BITAND; 

} 


if  (Funct ionArgsDef [Funct ionCurrent]  < 
ValidPoints [TotValPt s++]  - COMMA; 
LiJcelyNextChoice  - R_P AREN ; 

} 

} 

else 

{ 


TotValPts  * defaults  + 12; 
ValidPoints [default s + 0] 
ValidPoints [default s + 1] 
ValidPoints [defaults  + 2] 
ValidPoints [default s + 3] 
ValidPoints [defaults  + 4] 
ValidPoints [default s + 5] 
ValidPoints [default s + 6] 
ValidPoints [default s + 7] 
ValidPoints [default s + 8] 
ValidPoints [default s + 9] 
ValidPoints [default s + 10] 
ValidPoints [default s + 11] 
LiJcelyNextChoice  - THEN; 


» AND; 

- DIVIDE; 

* OR; 

- ADD; 

- SUBTRACT; 

- MULTIPLY; 

- BITXOR; 

- THEN; 

- BITAND; 

- BITOR; 

- SHIFTR; 

- SHIFTL; 


) 


) 

Logical  ops  covers  <,  >,  <»,  >=,  «,  <> 
****************************************/ 


else  if  { (on_my_left  ■*  GT)  I | (on_my_left  *»  LT)  | ( 
(on_my_left  GE)  | | (on_my_left  --  LE)  | j 
(on_my_left  --  NE)  II  (on_my_left  EQ)  I ! 
(on_my_left  « ADD) | | (on_my_left  **  SUBTRACT)  | | 

(on  my  left  — MULTIPLY)  I I (on  my  left  — DIVIDE)  ! 


(on_my_left  — SHIFTL) 
(on_my_left  --  BITOR)  | 

TotValPts  * defaults  + 8; 
ValidPoints [defaults  + 0] 
ValidPoints [defaults  + 1] 
ValidPoints [defaults  + 2] 
ValidPoints [default s + 3] 
ValidPoints [default s + 4] 
ValidPoints [defaults  + 5] 
ValidPoints [default s + 6] 
ValidPoints [default s + 7] 


| <on_my_left  — SHIFTR)  | | 
(on_my_left  « BITAND) ) 


- MS ID; 

- SIGNAL; 

- LOCAL; 

- FUNCTION; 
* NUMBER; 

« L_PAREN; 

- SUBTRACT; 

- STRING; 


Funct ionArguments [FunctionCurrent ] -1) 


if  ( (Where Am I CONSEQUENCE  CompareType [NumberOfCompares-l] [0]  --  'd')  || 

Where Ami  — PREMISE) 

{ 

ValidPoints [TotValPts++J  = COS; 

ValidPoints [TotValPts++]  - ACOS; 

ValidPoints [TotValPts++]  - SIN; 

ValidPoints [TotValPts++]  - ASIN; 

ValidPoints [TotValPts++j  - TAN; 

ValidPoints [TotValPts++]  = ATAN; 
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ValidPoints [TotValPts++] 
ValidPoints [TotValPt s++] 
ValidPoints [TotValPts++] 
ValidPoints [TotValPts++] 
ValidPoints [TotValPts++] 

} 

LikelyNextChoice  =*  NUMBER; 


PI; 

SORT; 

POWER; 

EXP; 

LOG; 


} 

/********************★******************* 

AND,  OR,  BITXOR,  BITAND,  BITOR 
*****************************************/ 

else  if  (on_my_left  =*  OR  I I on_my_left  ==  BITXOR  t I on_my_left 

{ 


TotValPts  * defaults 

+ 

20; 

ValidPoints [defaults 

+ 

0] 

- SIGNAL; 

ValidPoints [defaults 

+ 

1] 

- LOCAL; 

ValidPoints [defaults 

+ 

2] 

= MSID; 

ValidPoints [defaults 

+ 

3] 

= L_P  AREN; 

ValidPoints [defaults 

+ 

4] 

- NOT; 

ValidPoints [defaults 

+ 

5] 

- NUMBER; 

ValidPoints [defaults 

+ 

6] 

- STRING; 

ValidPoints [defaults 

+ 

7] 

- PI; 

ValidPoints [defaults 

+ 

8] 

- COS; 

ValidPoints [defaults 

+ 

9] 

■ ACOS; 

ValidPoints [defaults 

+ 

10] 

- SIN; 

ValidPoints [defaults 

+ 

11] 

= ASIN; 

ValidPoints [defaults 

+ 

12] 

- TAN; 

ValidPoints [defaults 

+ 

13] 

* AT  AN; 

ValidPoints [defaults 

■f 

14] 

- FUNCTION; 

ValidPoints [defaults 

+ 

15] 

- SQRT; 

ValidPoints [defaults 

+ 

16] 

- POWER; 

ValidPoints [defaults 

+ 

17] 

- EXP; 

ValidPoints [defaults 

+ 

18] 

- LOG; 

ValidPoints [default s + 19] 
LikelyNextChoice  - MSID; 

- SUBTRACT; 

) 

/**************************************** 

THEN 

************************************■****★/ 
else  if  (on_my_left  *-  THEN) 

( 

TotValPts  - defaults  + 5; 

ValidPoints [defaults  + 0]  - IF; 
ValidPoints [defaults  + 1]  - PRINT; 
ValidPoints [defaults  + 2]  - SET; 
ValidPoints [defaults  + 3]  * START; 
ValidPoints [defaults  + 4]  » STOP; 
LikelyNextChoice  « PRINT; 

} 

/**************************************** 

ELSE 

•ft********************’**************'******/ 

else  if  (on_my_left  — ELSE) 

{ 

TotValPts  » defaults  + 8; 

ValidPoints [defaults  + 0]  * IF; 
ValidPoints [default s + 1]  - SIGNAL; 
ValidPoints [defaults  + 2]  - LOCAL; 
ValidPoints [defaults  + 3]  - MSID; 
ValidPoints [defaults  + 4]  - PRINT; 
ValidPoints [default s + 5]  - SET; 
ValidPoints [defaults  + 6]  - START; 
ValidPoints [defaults  + 7]  - STOP; 
LikelyNextChoice  - PRINT; 

} 

/★★★★★★A********************************* 

NOT 

*****************************************/ 
else  if  (on_my_left  -»  NOT) 

{ 

TotValPts  - defaults  + 4; 

ValidPoints [defaults  + 0]  - MSID; 
ValidPoints [defaults  + 1]  - SIGNAL; 
ValidPoints [default s + 2]  * LOCAL; 
ValidPoints [defaults  + 3]  * L_PAREN; 
LikelyNextChoice  * MSID; 


- AND 


else  if  (on_my_left  — L_PAREN) 

{ 

TotValPts  = defaults  + 20; 

ValidPoints [default s + 0]  « MSID; 

ValidPoints [defaults  + 1]  ■ SIGNAL; 

ValidPoints [default s + 2]  - LOCAL; 

ValidPoints [defaults  + 3]  = NUMBER; 

ValidPoints [defaults  + 4]  = STRING; 

ValidPoints [default s + 5]  - NOT; 

ValidPoints  [default s + 6]  =*  PI; 

ValidPoints [default s + 7]  * COS; 

ValidPoints [defaults  + 8]  - ACOS; 

ValidPoints [defaults  + 9]  ■ SIN; 

ValidPoints [default s + 10]  * ASIN; 

ValidPoints [defaults  + 11]  * TAN; 

ValidPoints [defaults  + 12]  = ATAN; 

ValidPoints [default s + 13]  = FUNCTION; 
ValidPoints [defaults  + 14]  = SQRT ; 
ValidPoints [default s + 15]  = POWER; 
ValidPoints [defaults  + 16]  * EXP; 

ValidPoints [defaults  + 17]  - LOG; 

ValidPoints [default s + 18]  * L_PAREN; 
ValidPoints [default s + 19]  * SUBTRACT; 
LiJcelyNextCboice  ■ MSID; 


} 

/ * *************************************** 

COMMA 

*****************************************/ 
else  if  (on_my_left  — COMMA) 

{ 

TotValPts  * defaults  + 20; 

ValidPoints [defaults  + 0]  - MSID; 

ValidPoints [defaults  + 1]  « SIGNAL; 

ValidPoints [defaults  + 2]  * LOCAL; 

ValidPoints [defaults  + 3]  * NUMBER; 

ValidPoints [defaults  + 4]  « STRING; 

ValidPoints [defaults  + 5]  * NOT; 

ValidPoints [defaults  + 6]  - PI; 

ValidPoints [defaults  + 7]  - COS; 

ValidPoints [defaults  + 8]  » ACOS; 

ValidPoints [defaults  + 9]  - SIN; 

ValidPoints [defaults  + 10]  - ASIN; 

ValidPoints [defaults  + 11]  - TAN; 

ValidPoints [defaults  + 12]  - ATAN; 

ValidPoints [defaults  + 13]  - FUNCTION; 

Val idPoints [defaults  + 14]  - SQRT; 

ValidPoints [defaults  + 15]  - POWER; 

ValidPoints [defaults  + 16]  * EXP; 

ValidPoints [defaults  + 17]  - LOG; 

ValidPoints [defaults  + 18]  - L_PAREN; 

ValidPoints [defaults  + 19]  - SUBTRACT; 

LikelyNextChoice  - MSID; 

) 

/**★**********★**** ********************** 

R_P AREN 

*****************************************/ 
else  if  (on_my_left  — R_P AREN) 

{ 

/********************************************************** 

/ + - * SHIFTL  SHIFTR  BITOR  BITXOR  BITAND 
are  always  allowed  after  a R_PAREN. 
******************************************************★****/ 
TotValPts  - defaults  + 10; 

ValidPoints [defaults  + 0]  - DIVIDE; 

ValidPoints [defaults  + 1]  * ADD; 

ValidPoints [defaults  + 2]  * SUBTRACT; 

ValidPoints [defaults  + 3]  - MULTIPLY; 

ValidPoints [default s + 4]  - SHIFTR; 

ValidPoints [defaults  + 5]  » SHIFTL; 

ValidPoints [default s + 7]  - BITOR; 

ValidPoints [defaults  + 8]  - BITXOR; 

ValidPoints [defaults  + 9]  « BITAND; 


if  (FuncParenCount  0) 

( 
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If  we're  outside  of  an  "if"  statement 
and  all  paren's  are  balanced  and  on 
the  RHS  allow  IF  PRINT  and  SET. 

******************** ******★************/ 

if  {NumberOflfs  ~ NumberOfEndif s &&  ParenCount  ™ 0 &&  Equation  -«  RHS) 

( 

TotValPts  - defaults  + 15; 

ValidPoint s [default s + 10]  * IF; 

ValidPoints [default s + 11]  = PRINT; 

ValidPoints [defaults  + 12]  - SET; 

ValidPoints [defaults  + 13]  - START; 

ValidPoints [defaults  + 14]  - STOP; 

Like lyNextChoice  * IF; 

} 

/**************★**************************** 

If  we're  in  the  premise  and  not  defining 
function  arguments  allow  AND  OR  BITXOR 
BITAND  BITOR. 

****************************♦***************/ 
else  if  (WhereAmI  — PREMISE) 

( 

/**★******************************************** 

If  we're  in  the  PREMISE  and  our  overall  paren 
count  is  balanced  and  we're  on  the  RHS  allow 
some  logical  operands  . 

*******************-»****************************/ 

if  (ParenCount  -»  0) 

{ 

if (Equation  »«  RHS) 

{ 

TotValPts  - defaults  + 13; 

ValidPoint s [default s + 10]  « AND; 

ValidPoints [defaults  + 11]  - OR; 

ValidPoints [defaults  + 12]  - THEN; 

LikelyNextChoice  » THEN; 

} 

/************************************************** 

If  we  also  happen  to  be  on  the  LHS  of  an  Equation 
allow  some  relational  stuff  too. 

★★★★★★★♦♦♦♦★★♦★★♦★♦♦♦♦★A***************************/ 

else  if  (Equation  — LHS) 

{ 

TotValPts  • defaults  + 16; 

ValidPoints [default s + 10]  » LT? 

ValidPoints [defaults  + 11]  * GT; 

ValidPoints [defaults  + 12]  - LE; 

ValidPoints [defaults  + 13]  - GE; 

ValidPoints [defaults  + 14]  - NE; 

ValidPoints [defaults  + 15]  » EQ; 

LikelyNextChoice  - EQ; 

} 

> 

/**************************»******************** 

If  we' re  in  the  PREMISE  and  our  overall  paren 
count  is  unbalanced  allow  R_PAREN  and  logical 
operands . 

********•***************************************/ 

else 

{ 

TotValPts  * defaults  + 13; 

ValidPoints [defaults  + 10]  - AND; 

ValidPoints [defaults  + 11]  « OR; 

ValidPoints [defaults  + 12]  - R_PAREN; 

LikelyNextChoice  ■ R_PAREN; 

) 

) 

/*************************************************** 

We're  in  the  CONSEQUENCE  and  not  defining  function 
arguments . 

****************************************************/ 

else 

{ 

/*********************************************** 

If  we're  in  the  CONSEQUENCE  and  not  defining 
function  arguments  and  we  have  balanced  paren's 
allow  ENDIF  PRINT  SET. 

************************************************/ 
if  (ParenCount  **  0) 
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< ’ 

TotValPts  * defaults  + 16; 

ValidPoints (defaults  + 10]  - END_IF ; 

ValidPoints [defaults  + 11]  - PRINT; 

ValidPoints [defaults  + 12]  * SET; 

ValidPoints [defaults  + 13]  - IF; 

ValidPoints [defaults  + 14]  - START; 

ValidPoints [defaults  + 15]  = STOP; 

LikelyNextChoice  * END_IF; 
/******+**********★*★*******★**★******★*********** 

If  we  don't  already  have  an  else  associated  with 
the  current  THEN  allow  an  ELSE. 

a**************************************-***********/ 

if  {NestedElseCheck [NumberOf If s-NumberOfEndif s]  THEN) 

{ 

Val idPoint s [TotValPt s++]  - ELSE; 

LikelyNextChoice  * ELSE; 

) 

} 

else 

{ 

/*****★*★*★********★*****★***★★*******■★********** 

If  we  don't  have  balanced  paren' s be  better  give 
them  the  opportunity  to  balance  them. 
★********★*********#******************★********★*/ 
TotValPts  * defaults  + 11; 

ValidPoints [default s + 10]  - R_PAREN; 

LikelyNextChoice  - R_PAREN; 

) 

) 


} 

/★********************************************** 

We're  defining  function  arguments. 
*******************★**•***•**★**★****★*★★*********/ 
else 

( 

TotValPts  * defaults  + 11; 

ValidPoints  [defaults  + 10]  * R__PAREN; 

if  (FunctionArgsDef [Funct ionCurrent ] < Funct ionArguments [Funct ionCurrent ] -1) 
ValidPoints [TotValPt s++]  * COMMA; 

LikelyNextChoice  - R_PAREN; 

} 

} 

/**************************************** 

SET 

***********■**★***********★**’**★★*★★*★***★/ 
else  if  (on_my_left  *■  SET) 

{ 

TotValPts  * defaults  + 2; 

ValidPoints [defaults  + 0]  - SIGNAL; 

ValidPoints [defaults  + 1]  « LOCAL; 

LikelyNextChoice  - SIGNAL; 

) 


/**************************************** 
* START  & STOP 


else  if  ( [on_my_left  START)  |i  (on_my_left  *-  STOP)) 

{ 

TotValPts  « defaults; 

ValidPoints [TotValPts++]  » IF; 

ValidPoints [TotValPt s++]  « SET; 

ValidPoints [TotValPt s++]  - PRINT; 

ValidPoints [TotValPt s++]  « START; 

ValidPoints [TotValPt s++]  - STOP; 

LikelyNextChoice  « IF; 


if  ( (NumberOf If s - NumberOfEndifs)  > 0) 

{ 

ValidPoints [TotValPt s++]  - END  IF; 


LikelyNextChoice 


END  IF; 


/************************************************* 

* If  we  don't  already  have  an  else  associated  with 

* the  current  THEN  allow  an  ELSE. 

*********★**★**★**★****★**★*** a******************/ 


} 
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if  (NestedElseCheck [NumberOf If s-NumberOfEndif s ] — THEN) 

{ 

ValidPoints [TotValPts++]  = ELSE; 

LikelyNextChoice  * ELSE; 

} 

) 


/a*************************************** 

PRINT 

*******************■*******★**************/ 
else  if  (on_my_left  — PRINT) 

{ 

/★******************************************* 

If  an  ELSE  has  already  been  used  in  this  if 
we  don't  let  them  use  it  again! 
***■************★*****■**★★**★★■***********■**★**/ 
if  (NestedElseCheck [NumberOf If s-NumberOfEndif s]  THEN) 

TotValPts  =*  defaults  + 6; 
else  TotValPts  * defaults  + 6; 

ValidPoints [defaults  + 0]  “ IF; 

ValidPoints [defaults  + 1]  * SET; 

ValidPoints [defaults  + 2]  - PRINT; 

ValidPoint s [default s + 3]  * START; 

ValidPoints  [default s + 4]  - STOP; 

LikelyNextChoice  » PRINT; 
if  (NumberOflfs  - NumberOfEndif s > 0) 

{ 

TotValPts  +-  1; 

ValidPoints [TotValPts  - 1]  - END_IF; 

LikelyNextChoice  * END_IF; 

/■a************************************************ 

If  we  don't  already  have  an  else  associated  with 
the  current  THEN  allow  an  ELSE. 

★★a***********************************************/ 

if  {NestedElseCheck [NumberOf If s-NumberOfEndifs]  — THEN) 

{ 

TotValPts  +-  1; 

ValidPoints [TotValPts  - 1]  * ELSE; 

LikelyNextChoice  * ELSE; 

LikelyNextChoice  * ELSE; 

) 

} 

) 

y**************************************** 

CREATE,  DOCUMENT 

******■*********#*****•***’★*★★*★****★■*****★/ 

else  -if  <on_my_left  « CREATE  j|  on_my_left  — HELP) 

{ 

TotValPts  * defaults  + 5; 

ValidPoints [defaults  + 0]  - IF; 

ValidPoints [defaults  + 1]  « SET; 

ValidPoints [defaults  + 2]  - PRINT; 

ValidPoint s [defaults  + 3]  - START; 

ValidPoint s [defaults  + 4]  - STOP; 

LikelyNextChoice  - IF; 

} 

/★**************************★************ 

END_IF 

★♦a**************************************/ 

else  if  (on_my_left  --  END_IF) 

{ 

TotValPts  - defaults  +5; 

ValidPoints [defaults  + 0]  « IF; 

ValidPoints [default s + 1]  * SET; 

ValidPoints [defaults  + 2]  - PRINT; 

ValidPoints [defaults  + 3]  - START; 

ValidPoint s [defaults  + 4]  - STOP; 
/★★★a**************************************** 

If  the  difference  between  the  if  and  endifs 
is  0,  then  we  don't  need  any  more  endifs. 

If  an  ELSE  has  already  been  used  in  this  if 
we  don't  let  them  use  it  again! 
*********************************************y 
if  { (NumberOf If s-NumberOfEndifs)  > 0) 

( 

ValidPoints [TotValPts++]  - END_IF; 

LikelyNextChoice  - IF; 


} 

if  (NestedElseCheck  [NumberOf If s-NumberOfEndi fs]  — THEN) 

{ 

ValidPoints [TotValPt s++]  * ELSE; 

Like lyNext Choice  - ELSE; 

) 

} 

/★*****★**★**★*********★★***★***★******** 

DELETE 

♦ Hr******#********************************/ 

if  (orwny_right  » DELETE) 

Like lyNext Choice  * DELETE; 

/★★★***■★★*****'*★*■***★★*****★**★★♦**★** 

For  when  we  just  have  started  up. 
*■**★***■***★*★***★**★*★★****★*★**★****★/ 
if  (on_my_right  ■■  99) 

TotValPts  * 0; 


) 


pixmaps.h 


♦ 

* FILE  NAME:  pixmaps.h 


* FILE  FUNCTION: 

* 

* This  file  contains  the  pixmap  definitions  for  the  various  cursors  and  the 

* "hello"  screen  bitmaps. 


* SPECIFICATION  DOCUMENTS: 
•* 

* /code/ specs/code 

* 

* 

* FILE  MODULES: 

* 

* N/A 


static  char  quest ionBit s [ ] - 


.*****************< 

! []  * 
0x00 , 

{ 

0x58, 

0x55, 

0x00, 

0x02, 

Oxf  6, 

0x7f , 

0x01, 

0x0a, 

0x5  6, 

Gx7d, 

0x15, 

0x02, 

0x58, 

0x57, 

0x01, 

0x00, 

0x60, 

0x17, 

0x00, 

0x00, 

0x50, 

0x55, 

0x00} 

■ { 

0x78, 

0x00, 

0x54, 

0x00, 

0x00, 

0x00, 

0x7e, 

0x00, 

0x28, 

0x00, 

0x58, 

0x00, 

Oxae, 

0x01, 

0x56, 

0x01, 

► ★•a*************************************’* 


itic  char  nasa  bits[]  » { 

0x00,  0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00, 

0x00, 

Oxlc, 

OxeO, 

0x00, 

0x07, 

Oxfc,  Oxlf , 

OxeO, 

0x01,  Oxlc, 

OxeO, 

0x00, 

0x07, 

Oxfe, 

Oxlf, 

OxeO, 

0x01, 

Oxlc,  OxeO, 

0x00, 

0x07,  Oxfe, 

Oxlf, 

OxeO, 

0x01, 

0x7c, 

OxeO, 

0x00, 

0x07, 

0x07,  0x00, 

OxeO, 

0x01,  0x7c, 

OxeO, 

0x00, 

0x07, 

0x07, 

0x00, 

OxeO, 

0x01, 

0x7c,  OxeO, 

0x80, 

0x0  f , 0x07, 

0x00, 

OxeO, 

0x03, 

Oxfc, 

OxeO, 

0x80, 

OxOf, 

0x07,  0x00, 

OxeO, 

0x03,  Oxfc, 

OxeO, 

0x80, 

OxOf, 

0x07, 

0x00, 

OxeO, 

0x03, 

Oxfc,  OxeO, 

0x80, 

OxOf,  0x07, 

0x00, 

OxeO, 

0x03, 

Oxfc, 

OxeO, 

0x80, 

OxOf, 

0x07,  0x00, 

OxeO, 

0x03,  Oxfc, 

OxeO, 

0x80, 

OxOf, 

0x07, 

0x00, 

OxeO, 

0x03, 

Oxfc,  Oxel, 

0x80, 

OxOf,  0x07, 

0x00, 

OxeO, 

0x03, 

Oxdc, 

Oxel, 

0x80, 

OxOf, 

0x07,  0x00, 

OxeO, 

0x03,  Oxdc, 

Oxel, 

0x80, 

OxOf, 

0x07, 

0x00, 

OxeO, 

0x03, 

Oxdc,  Oxel, 

OxeO, 

Oxld,  0x07, 

0x00, 

0x70, 

0x07, 

Oxdc, 

0xe3, 

OxeO, 

Oxld, 

0x07,  0x00, 

0x70, 

0x07,  0x9c, 

0xe3, 

OxeO, 

Oxld, 

0x07, 

0x00, 

0x70, 

0x07, 

0x9c,  0xe3, 

OxeO, 

Oxld,  0x07, 

0x00, 

0x70, 

0x07, 

0x9c, 

0xe3, 

OxeO, 

Oxld, 

0x07,  0x00, 

0x70, 

0x07,  Qx9c, 

0xe3 , 

OxeO, 

Oxld, 

0x07, 

0x00, 

0x70, 

0x07, 

Oxlc,  0xe7, 

OxeO, 

Oxld,  OxOf, 

0x00, 

0x70, 

0x07, 

Oxlc, 

0xe7, 

OxeO, 

Oxld, 

Oxf f , OxOf , 

0x70, 

0x07,  Oxlc, 

0xe7, 

OxeO, 

Oxld, 

Oxfe, 

0x3  f. 

0x78, 

0x07, 

Oxlc,  0xe7, 

OxeO, 

0x38,  Oxfc, 

Ox3f, 

0x38, 

OxOe, 

Oxlc, 

0xe6, 

OxeO, 

0x38, 

0x00,  0x78, 

0x38, 

OxOe,  Oxlc, 

Oxee, 

OxeO, 

0x38, 

0x00, 

0x70, 

0x38, 

OxOe, 

Oxlc,  Oxee, 

OxeO, 

0x38,  0x00, 

0x70, 

0x38, 

OxOe, 

Oxlc, 

Oxee, 

OxeO, 

0x38, 

0x00,  0x70, 

0x30, 

OxOe,  Oxlc, 

Oxee, 

OxeO, 

0x38, 

0x00, 

0x70, 

0x38, 

OxOe, 

Oxlc,  Oxfc, 

OxeO, 

0x38,  0x00, 

0x70, 

0x38, 

OxOe, 

Oxlc, 

Oxfc, 

OxeO, 

0x38, 

0x00,  0x70, 

0x38, 

OxOe,  Oxlc, 

Oxfc, 

0x70, 

0x70, 

0x00, 

0x70, 

Oxlc, 

Oxlc, 

Oxlc,  0xf8, 

0x70, 

0x70,  0x00, 

0x70, 

Oxlc, 

Oxlc, 

Oxlc, 

Oxf  8, 

0x70, 

0x70, 

0x00,  0x70, 

Oxlc, 

Oxlc,  Oxlc, 

Oxf  8, 

0x70, 

0x70, 

0x00, 

0x70, 

Oxlc, 

Oxlc, 

Oxlc,  Oxf 8, 

0x70, 

0x70,  0x00, 

0x70, 

Oxlc, 

Oxlc, 

Oxlc, 

Oxf  8, 

0x70, 

0x70, 

0x00,  0x70, 

Oxlc, 

Oxlc,  Oxlc, 

OxfO, 

0x70, 

0x70, 

0x00, 

0x70, 

Oxlc, 

Oxlc, 

Oxlc,  OxfO, 

0x70, 

0x70,  0x00, 

0x70, 

Oxlc, 

Oxlc, 

Oxlc, 

OxfO, 

0x70, 

0x70, 

0x00,  0x70, 

Oxlc, 

Oxlc,  Oxlc, 

OxfO, 

0x38, 

OxeO, 

0x00, 

0x70, 

OxOe, 

0x38, 

Oxlc,  OxfO, 

0x38, 

OxeO,  0x00, 

0x78, 

OxOe, 

0x38, 

Oxlc, 

OxeO, 

0x38, 

OxeO, 

Oxfc,  0x3f, 

OxOe, 

0x38,  Oxlc, 

OxeO, 

0x38, 

OxeO, 

Oxfc, 

0x3f , 

OxOe, 

0x38, 

Oxlc,  OxeO, 

0x38, 

OxeO,  Oxfc, 

Oxlf, 

OxOe, 

0x38, 

0x00, 

0x00, 

0x00, 

0x00, 

OxOO,  0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

pixmaps.h 


Oxdo, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00} 

tic  char  shuttle  bits [ ] 

- { 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,.  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  GxOO, 

Oxff, 

0x01, 

0x00, 

0x00, 

0x01, 

0x03,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

OxOa, 

0x06, 

0x00, 

0x00, 

OxOc, 

OxOc,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x14, 

0x18, 

0x00, 

0x00, 

0x28, 

0x30,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x20, 

0x60, 

0x00, 

0x00, 

0x50, 

OxcO,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

OxaO , 

0x80, 

0x01, 

0x00, 

OxeO, 

0x00,  0x03,  0x00, 

0x00 , 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x40, 

0x01, 

0x06, 

0x00, 

Oxfc, 

Oxff,  Oxff,  Oxff, 

Oxff, 

Oxff, 

0x07, 

0x00, 

0x00, 

0x50,  OxOd,  0x00, 

0x5b, 

0xd5 , 

0x04, 

0x00, 

Oxaf , 

Oxaa,  0x04,  0x00, 

0x00, 

0x90, 

0x35, 

0x00, 

0x00, 

0x90,  Oxff,  0x00, 

Oxbe, 

0x2a, 

0x04, 

0x00, 

Oxfe, 

Oxlf,  0x04,  0x00, 

0x00, 

0x10, 

0x00, 

OxOe, 

0x39, 

0x07,  0x00,  Oxlc, 

0x3c, 

0x00, 

0x00, 

0x00, 

0x78, 

0x00,  0x00,  0x00, 

0x00, 

OxcO, 

Oxff, 

0x75, 

0x00, 

OxeO,  Oxff,  0x75, 

0x30, 

Oxff, 

Oxff, 

Oxff, 

0x00, 

Oxfe,  Oxff,  Oxff, 

Oxff, 

Oxff, 

Oxff, 

0x3  f , 

Oxff, 

Oxff,  Oxff,  0x07, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxQO,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00,  0x00,  0x00, 

0x00, 

0x00, 

0x00, 

0x00} 

0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x06, 
0x00, 
0x14, 
0x00, 
0x28, 
0x00, 
0x50, 
0x00, 
0x20, 
0x00, 
Oxac, 
0x00, 
0x5f, 
0x00, 
0x3c, 
0x00, 
Oxf  8, 
Oxff, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 


0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x06, 

0x00, 

0x18, 

0x00, 

0x30, 

0x00, 

OxcO, 

0x00, 

0x01, 

0x00, 

Oxaa, 

OxdO, 

0x55, 

0x10, 

0x00, 

0x00, 

0x03, 

Oxff, 

Oxfc, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 


0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x03, 

0x00, 

0x04, 

Oxla, 

0x04, 

0x80, 

0x70, 

Oxff, 

0x00, 

Oxff, 

Oxff, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 


0x00, 

0x00, 


0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x03, 
Oxce, 
0x3f , 
0x00, 
0x7  f, 
Oxff, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 


putjocal.c 

****★★★★★★★*★★★*★★★****************** *************** 

PUT_LOCAL 

Purpose:  Put  local  handles  the  local  variables. 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  5/27/87 

Version:  2.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by:  Troy  A.  Heindel  --  10-27-88 
Reasons  for  Revision: 

External  Interfaces 

***************★*★****★****«★******•*****************************/ 


| 9O^07  _ 
/***★*★★** 


/t************************************************************ 

Include  files 

******■**************★***-******■■***★*★★***★★**★****'*****■*******/ 
♦include  <stdio.h> 

♦include  <X11/Intrinsic.h> 

♦include  <Xm/Xm.h> 

♦include  "code.h" 


put_local.c 


/*  The  index  to  the  variable  in  the  CompVars  struct  */ 
/*  This  index  in  not  of  use  to  local  variables  */ 

char  local [MAX_VAR_LEN] , /*  String  for  temporary  variable  storage  */ 
msgSt r [ 150 ] ; 

/* 

* Get  the  name  the  local  from  the  user 
*/ 


if (getVarName  (local,  LOCAL) ==ERROR) 
return ( ERROR  ) ; 


/* 

* Now  check  to  see  if  the  name  is  proper 
*/ 


if  (var_check  (local,  filocallndex,  sgloballndex,  "local")  -*  ERROR) 

( 

sprint f (msgStr,  "%s  has  been  used  previously  as  a Signal  variable" , local) ; 
strcat  (msgStr,  "Signal  and  Local  variables  can  not  share  names."  ); 
user_ack(  msgStr,  HELP_U_ACK  ); 
return  ERROR; 

} 

/* 

* Check  to  see  that  the  type  comparison  is  correct. 

* If  we  are  on  the  right  hand  side  of  an  Equation, 

* the  local  is  defined,  and  the  types  aren't  kosher. 

V 

if  (Equation  -«  RHS  it  locallndex  !-  -1  it 

type_check (CompVars [locallndex] .type [0] ) — ERROR) 

{ 

sprintf  (msgStr,  "%s  is  of  wrong  type.  Should  have  been  of  type  '%s'",  local, 

; es-lj); 

user_ack  (msgStr,  HELP_U_ACK) ; 
return  ERROR; 

) 

/* 

* Clean  up  indentation  and  add  msid  to  comp 
*/ 

indent  (PREMISE); 
strcat  (Comp,  local) ; 
updateWA(  local  ); 

/* 

* Place  the  token  choice  into  the  history  of 

* token  choices  in  case  of  delete. 

*/ 

PrevChoice [ChoiceCounter++]  - LOCAL; 

/* 

* If  the  local  variable  was  not  previously  used 

* in  this  comp  it  will  have  a local  index  - -1. 

* If  this  is  the  case  we  need  to  get  type  info. 

*/ 


if  (locallndex  -1) 

{ 

++CompVars [locallndex] .occurrence; 

/***********  ★★****★★*****★****•***★*★*******■****#******#****** 
if  (LHS)  then  set  the  CompareType  to  type  of  this  local 

•********★★*★★* ***********************************************/ 
if  (Equation  »«  LHS) 

strcpy  (CompareType [NumberOfCompares++3 , CompVars [ locallndex] .type); 

else  /*  locallndex  «»  -1  */ 

{ 

CompVars [NumCompVars] . lol_limit  - 0; 

CompVars [NumCompVars] . lo2_limit  - 25; 

CompVars  [NumCompVars]  .hil__limit  - 50; 


CompareType [NumberOfCompar 
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CompVars [NumCompVars] .hi2_limit  - 100; 

CompVars [NumCompVars] .put_or_get  - GET; 
strcpy  (CompVars [NumCompVars] .name,  local); 

^ strcpy  (CompVars [NumCompVars] . class,  "local"); 

CompVars [NumCompVars] .occurrence  - 1; 

sprint f (CompVars [NumCompVars] .nomenclature,  "/*  %s  */", CompVars [NumCompVars] .name) 
/***************************************************** 

If  LHS  then  we  get  the  type  set  the  CompareType  to  it 
and  increment  the  NumberOfCompares  counter 
*★**■***■*************★*******★*★**********★***********■*/ 
if  (Equation  *-  LHS) 

{ 

get_type (CompVars [NumCompVars] . type,  "Of  what  type?"); 

strcpy  (CompareType [NumberOfCompares++] , CompVars [NumCompVars] .type); 

} 

/a***************************************-#***#******** 

If  RHS  then  we  default  the  local  to  the  CompareType 
»*********■***■***■*****★***★★★****★**********■**★********/ 
else 

{ 

strcpy  (CompVars [NumCompVars] .type,  CompareType [NumberOfCompares-1 }) ; 

) 

NumCompVars++;  /*  increment  the  count  of  comp  variables  */ 

} /*  end  of  new  local  definition  */ 

NeedToSave  - TRUE; 


} 


putjocal.c 

getVarName (nameToGet , class) 
char  *nameToGet; 

int  class;  /*  Either  LOCAL,  MSID,  or  SIGNAL  */ 

( 

int  rc; 

/★★lie********************************************* 

Keep  getting  name  until  we  get  a valid  one 
***★**★**■■*★#■***■***■***★★★*★★*★★****★★*★**★★***★*★*/ 

do 

{ 

if  {(rc  - get_st ring ("Enter  the  variable  name",  nameToGet , MAX_VAR_LEN-1, FALSE) ) !=  ABORT) 

{ 

upper  ( nameToGet  ); 

/* 

* Now  that  we  have  a variable,  make  sure  it  doesn't 

* contain  unwanted  characters. 

*/ 

rc  = goodVar (nameToGet ) ; 

} 

/* 

* First  check  to  see  if  they  just  want  to  leave 
*/ 

if  ( rc  — ABORT  ) 
return  ERROR; 

} while  (rc  — ERROR); 


WHHKt 


} 


return  OK, 


putjocal.c 


goodVar (varName) 
char  varName (]; 

{ 

int  i;  /*  Simple  Counter  */ 

/* 

* Never  allow  the  first  character  to  be 

* a number. 

*/ 

if (varName [0]  >=  '0/  S&  varName [0]  <=  '9') 

{ 

user_ack ("Your  input  string  contained  an  illegal  character",  HELP_U_ACK) ; 
return  ERROR; 

} 


:$wmm 

AH 


Mi 


/* 

* Does  the  string  contain  unwanted  chars? 

* Allow  only  alphaNumerics  and  underscore. 

*/ 

for  ( i*0 ; i<st rlen (varName) ; i++) 

{ 

if  (!( (varName [ij  >-  ' A'  id  varName [i]  <-  ' Z' ) j| 

(varName [i]  >-  'a'  dd  varName [i]  <■  9 zf  ) II 

(varName [ i]  >*  'O'  dd  varName[i]  <*  '9')  |i 
varName [i]  — 

( 

user_ack.  ( "Your  input  string  contained  an  illegal  character”,  HELP_U_ACK) 
return  ERROR; 

) 

) 

return  OK; 


} 


PUT  MSID 


Purpose:  Put_msid  validates  and  adds  the  entered 
to  the  comp  string  and  resets  all  the 
neccessary  flags. 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  6/20/87 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 

*********************************♦******************************/ 

/a************************************************************ 

Include  files 

*************************************************************/ 

♦include  <stdio.h> 

♦include  <string.h> 

♦include  <X11/ Intrinsic ,h> 

♦include  <Xm/Xm.h> 

♦ include  "code.h" 

put_msid  () 

{ 

int  local_index,  /*  The  index  to  the  variable  in  the  CompVars  struct  */ 

global_index;  /*  The  index  to  the  variable  in  the  MSIDTable  */ 

char  msid [MSID_NAME_LEN] , /*  String  used  to  store  the  name  of  the  msid  */ 
type [TYPE_LEN] , /*  A place  to  put  type  of  the  msid  */ 

nomenclature [NOMEN^LEN] , /*  A place  to  put  the  maid's  nomenclature  */ 

reply [50] , 

message [150] ; /*  String  used  for  displaying  message  to  the  user  */ 

/* 

* Get  the  name  the  msid  from  the  user 

V 

i f (getVarName  (msid,  MSID) --ERROR) 
return  ERROR; 


/* 

* Try  and  get  an  index  for  the  msid 

V 

var_checlc  (msid,  & local_index,  4global_index,  "msid"); 

/************************************************************* 

If  it's  defined  locally,  show  them  the  nomenclature  and 
increment  the  occurence  count. 

**************************************************************/ 
if  (local_index  !-  ERROR) 

{ 

/* 

* Show  'em  the  nomenclature  for  a second. 

*/ 

sprintf  ( message,  "%s",  CompVars [ local_index] . nomenclature  ); 
user_ack ( message,  H£LP_U_ACK  ); 

/****************************************************** 

Set  up  type  in  case  we're  on  the  LHS  so  we  can  set  the 
compare  type. 

*******************************************************/ 
strcpy (type,  CompVars [ local_index] .type) ; 
if  (Equation  --  RHS  &£  type_check (type [0] ) — ERROR) 

{ 

sprintf  (message,  "%s  is  of  wrong  type.  Should  have  been  of  type  '%s'  ",  msid,  CompareType [Numbe 


rOfCompares-1] ) ; 


user_ack (message,  HELP_U_ACK) ; 
return  ERROR; 


} 

else 

CompVars [ local_index] .occurrence**; 


} 

/★★★★■a********************************************************** 

If  lt# s defined  globally  and  not  defined  locally  show  them  the 
nomenclature  define  it  locally  using  the  global  information. 
*★★********■********★********★*****************'*****'*************/ 
else  if  (global_index  !-  ERROR  &&  local_index  — ERROR) 

( 

/* 

* Show  'em  the  nomenclature  for  a second. 

V 

sprintf  { message,  n%s",  MSIDTable [global_index] . nomenclature  ); 
user_ack  { message,  HELP_U_ACK  ); 

strcpy (type,  MSIDTable [global_index] .type) ; 

/★a**************************************************'*****'**** 

Check  to  see  that  the  type  comparison  is  correct 

★★★**************************************W********************/ 

if  (Equation  -=  RHS  i&  type_check (type [0] ) « ERROR) 

{ 

sprintf  (message,  "%s  is  of  wrong  type.  Should  have  been  of  type  'Is'**,  msid,  CompareType  [Numbe 

OfCompares-1] ) ; 

use r_ack (message,  HELP_U_ACK) ; 
return  ERROR; 

) 

else 

{ 

strcpy (CompVars [NumCompVars] .name,  msid); 
strcpy (CompVars [NumCompVars] .type,  type); 

strcpy (CompVars [NumCompVars] .nomenclature,  MSIDTable [global_index] .nomenclature) ; 
strcpy (CompVars [NumCompVars] .class,  "msid"); 

CompVars [NumCompVars] . occurrence  * 1; 

CompVars [NumCompVars] .put_or_get  * GET; 

CompVars [NumCompVars] . lol_l imit  ■ 0; 

CompVars [NumCompVars] . lo2_limit  - 25; 

CompVars [NumCompVars] .hil_limit  - 50; 

CompVars [NumCompVars] .hi2_limit  - 100; 

NumCompVars**; 

} 

) 

/a*************************************************************** 

If  it's  not  defined  globally  - and  not  defined  locally  warn  them 
and  get  the  type  and  nomenclature  info  and  define  it  locally. 

*******************************w*******-*****w********************/ 

else  if (global_index  — ERROR  &(  local_index  *-  ERROR) 

{ 

sprint f (message, "Warning:  %s  is  not  a defined  telemetry  point  on  this  system" , msid) ; 
user_ack (message,  HELP_U_ACK) ; 
get_type (type, "Of  what  type?"); 

/************************************************************* 

Check  to  see  that  the  type  comparison  is  correct 
*************************«************************************/ 
if  (Equation  — RHS  &fi  type  check (type [0])  — ERROR) 

{ 

sprintf  (message, "%s  is  of  wrong  type.  Should  have  been  of  type  '%s'  ",  msid,  CompareType [Numbe 

OfCompares-1] ) ; 

u se  r_ack (mess  age , H£LP_U_ACK ) ; 
return  ERROR; 

} 

else 

{ 

strcpy (CompVars [NumCompVars] .name,  msid) ; 
strcpy (CompVars [NumCompVars] .type,  type) ; 

get_string ("Please  enter  msid  nomenclature", reply, 49, FALSE) ; 
sprint f (nomenclature,  " /*  %s  */",  reply); 
strcpy (CompVars [NumCompVars] .nomenclature,  nomenclature); 
strcpy (CompVars [NumCompVars] .class,  "msid") ; 

CompVars [NumCompVars] . occurrence  * 1; 

CompVars [NumCompVars] .put_or_get  - GET; 

CompVars [NumCompVars] . lol^limit  - 0; 

CompVars [NumCompVars] . lo2_ limit  * 25; 

CompVars [NumCompVars] .bil_limit  - 50; 


■ : : put_msid.c 

CompVars [NumCompVars j .hi2_limit  - 100; 
NumCompVars++; 


/a*************************************************** 

if  (LHS)  we  are  setting  the  type  for  CompareType 
****#***********************************************V 

if  (Equation  =■  LHS) 

strcpy (CompareType [NumberOfCompares++ ] , type) ; 

/***************************************** 

Clean  up  indentation  and  add  msid  to  comp 
***************★**************************/ 
indent  (PREMISE) ; 
strcat  (Comp,  msid) ; 
updateWA(  msid  ); 

PrevChoice [ChoiceCounter++]  ■ MSID; 

NeedToSave  - TRUE; 


} 


PUT  SIGNAL 


Purpose;  Put  signal  handles  the  addition  of  signals  into  the 
\ ^ comp,  this  includes  setting  flags  and  arrays. 

Designer;  Terri  Murphy 

Programmer;  Terri  Murphy 

Date:  10/88 

Version ; 1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 

External  Interfaces 

****************************************************************/ 


/★a*********************************************************** 
Include  files 

#****★*****•*#**********■★**’***•**★************************■*****/ 

#include  <stdio.h> 

#include  <string.h> 
finclude  <X11/Intrinsic .h> 

♦Include  <Xm/Xm.h> 

# include  "code.h" 


put_signal  ( ) 

{ 

char  signal [SIGNAL_NAME_LEN] , /*  A string  to  get  the  signal  into  */ 

nomenclature [NOMEN_LEN] , /*  A string  to  get  the  nomenclature  into  */ 
message [155] ; /*  A place  to  put  your  messages  */ 


int  rvl,  rv2,  /i 
is_a_getter, 
var_check ( ) , 
local_index, 
global_index; 


Return  values  for  var_check{)  */ 

/*  TRUE  if  we  are  just  looking  at  the  signal 
/*  Returns  index  of  inputed  signal  */ 

/*  local  index  to  be  set  by  var_check()  */ 

/*  global  index  to  be  set  by  var_check()  */ 


*/ 


y***#************************'********'*'**'*********** 

We  need  to  know  if  we  are  putting  or  getting  to 
determine  if  the  signal  if  valid. 

****  a**************************  ***★**★**■*★***•**★**★/ 

if  {(WhereAmI  — CONSEQUENCE  ||  (NumberOflfs  - NumberOfEndif s)  --  0)  &&  (Equation  — LHS) ) 
is_a_getter  - FALSE; 

else 

is_a_getter  * TRUE; 

/*********★★**★*★★★★★★★★*★★**★★*■•*****★**★★★*★★*★* 

Keep  getting  variables  until  we  get  a valid  one 
*#******★***-*********★*-**************★****★******/ 

do 

{ 

/* 

* Get  the  name  the  signal  from  the  user 
*/ 

if (getVarName  (signal,  SIGNAL) --ERROR) 
return  ERROR; 

if ( (rv2  * var_check  (signal,  &local_index,  £global_index,  "signal"))  --  ERROR) 

( 

sprintf (message,  "\n\t%s  has  been  previously  defined  as  a LOCAL  variable",  signal); 
user_ack (message,  HELP_U_ACK) ; 

} 

/ft******************************************************* 

If  the  signal  is  in  the  signal  table  we  should  show  the 
nomenclature . 

a********************************************************/ 
if  (global_index  !-  -1) 

{ 

sprintf (message, "\n\t%s", SignalTable [global_index] .nomenclature) ; 


BHHM 
■in mm 


put.signalc 


user_ack(  message,  HELP_U_ACK  ); 

) 


f ****** 


Check  to  see  that  the  type  comparison  is  correct 
********************************************  *★******★★****★*★★/ 

if  (Equation  — RHS  44  global_index  !=■  -1  44  type_check (SignalTable [global_index] . type [ 0 ] ) ==  ERROR) 

sprint f (message,  "\n\t%s  is  of  wrong  type.  Should  have  been  of  type  '%s'",  signal,  SignalTable [glob 

al_index] .type) ; 

user_ack (message,  HELP_U_ACK) ; 
rv2  = ERROR; 


) 

if  (Equation  ==  RHS  4&  local_index  !*  -1  44  type_check (CompVars [ local_index] . type [ 0] ) =»  ERROR) 

{ 

sprint f (message,  "\n\t%s  is  of  wrong  type.  Should  have  been  of  type  signal,  SignalTable [glob 

al_index] .type) ; 

user_ack (message , HELP_U_ACK) ; 
rv2  = ERROR; 


} 

) while  (rvl  « ERROR  I ! rv2  ==  ERROR) ; 
/*****************★****♦**************************************************** 
rv2  * 0 

local_index  - -1 
global_index  - <valid_index> 

This  means  that  the  signal  already  exists  in  the  signal  table,  but  it 
hasn't  been  defined  locally  yet.  Create  the  CompVars  entry. 
**********************★******************************************************/ 
if  (local_index  -1  44  global_index  ! - -1) 

{ 

st rcpy (CompVars [NumCompVars ]. name  , signal); 

CompVars [NumCompVars ] . occurrence  * 1; 

strcpy (CompVars [NumCompVars] .class,  "signal"); 

if  (is_a_getter) 

CompVars [NumCompVars] . put_or_get  « GET; 

else 

CompVars [NumCompVars] . put_or_get  « PUT; 

CompVars [NumCompVars] . lol_limit  - 0; 

CompVars [NumCompVars] . lo2_limit  - 25; 

CompVars [NumCompVars] .hil_limit  * 50; 

CompVars [NumCompVars ] .hi2_limit  * 100; 
strcpy (CompVars [NumCompVars] .nomenclature, 

SignalTable [global_index] .nomenclature) ; 
strcpy (CompVars [NumCompVars] . type,  SignalTable [global_index] .type) ; 


y**************************************************** 
if  '(LHS)  we  are  setting  the  type  for  this  compare 
*************************************************★★**/ 

if  (Equation  LHS) 

strcpy  (CompareType [NumberOf Compare s++] , SignalTable [global_index] . type) ; 
NumCompVars++; 

} 

/************************************************ 
rv2  - 0 

local_index  !-  -1 

Means  that  the  signal  is  already  defined  locally. 

Update  the  occurrence  count,  make  sure  the 
the  signal  is  still  being  used  in  the  same  way. 
*************************************************/ 
else  if  (local_index  !~  -1) 

{ 

/*********************************************** 

Let's  make  sure  that  if  they  were  getting  they're 
still  getting  - or  if  they're  putting  now  we  need 
to  change  put_or_get  to  "PET"  (and  vice  versa) . 
********************★***************************/ 
if  ( (is_a_getter  44  CompVars [ local_index] .put_or_get  PUT)  M 
{ ! is_a_getter  44  CompVars { local_index] .put_or_get  — GET)) 

CompVars [ local_index] .put_or_get  * PET; 

/*************** **************  **********  ******** 

Increment  the  occurrence  of  this  signal 
***********************************************★/ 

CompVars [ local_index] .occurrence++; 

/***********************  ********  ********************* 
if  (LHS)  we  are  setting  the  type  for  this  compare 
*****************************************************/ 
if  (Equation  — LHS) 

strcpy  (CompareType [NumberOfCompares++] , CompVars [ local_indexj .type); 


put__signal.c 

***** * ****** ********* ********  ******** * **  * *******  * * 


If  the  rv2  is  0 
local_index  is  -1 
global_index  is  -1 

The  signal  is  not  defined  anywhere  - SO  DEFINE  IT!!! 
********************************************’*****"*******/ 


else  if  { local_index  -1  &&  global_index  **  -1) 

{ 

st rcpy (CompVar s [NumCompVar s ] . name  , signal); 

CompVars [NumCompVars] . occurrence  * 1; 

st rcpy (CompVars [NumCompVars] .class,  "signal") ; 

CompVars [NumCompVar s] . put_or_get  * PUT; 

CompVars [NumCompVars] . lol_limit  - 0; 

CompVars [NumCompVars] . lo2_limit  * 25; 

CompVars [NumCompVars] ,hil_limit  - 50; 

CompVars [NumCompVars] .hi2_limit  - 100; 

get  string ("Please  enter  signal  nomenclature nomenclature, NOMEN_LEN-l, FALSE) ; 
sprTntf (CompVars [NumCompVars] .nomenclature,  " /*  %s  */",  nomenclature); 
^****************************»************************ 

If  LHS  then  we  get  the  type  set  the  CompareType  to  it 
and  increment  the  NumberOfCompares  counter 
****★*************************************************/ 


if  (Equation  ==  LHS) 

{ 

get^type (CompVars [NumCompVars ] .type,  "Of  what  type?"); 

strcpy  (CompareType [NumberOfCompares++]  , CompVars [NumCompVars] .type); 

) 

/***************************************************** 

If  RHS  then  we  default  the  signal  to  the  CompareType 
*******»**********************************************/ 


else 

{ 

strcpy  (CompVars [NumCompVars] .type,  CompareType [NumberOf Compares- 1] ) ; 

} 


NumC  ompVa  r s + + ; 

) 

/******************************************* 
Clean  up  indentation  and  add  signal  to  comp 
********************************************/ 
indent  (PREMISE) ; 
strcat  (Comp,  signal) ; 
updateWA(  signal  ); 

PrevChoice [ChoiceCounter++]  - SIGNAL; 
NeedToSave  * TRUE; 


} 


♦include  <stdio.h> 

♦include  <X11/Intrinsic .h> 
♦include  <Xm/Xm.h> 

♦include  "code .h" 

♦include  "widgets. h" 


put_status.c 


/*******************★* * ***★***■***■■**********<- 

* 

* MODULE  NAME:  put_status { void  } 


MODULE  FUNCTION: 

Routine  updates  the  status  window  of  the  Comp  Builder  main  screen. 

SPECIFICATION  DOCUMENTS: 

/code/specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

**********************************★*****<-- 


put_status,c 


int  put_status  () 


( 


char  status [100];  /*  The  status  string  */ 

sprint f ( status f "GROUP:  Is  COMP:  Is  STATUS:  ",  GroupName,  CompName  >; 


* The  comp  is  complete  if  the  length  of  the  comp  is  greater 

* than  2 and  there  are  an  equal  number  of  "ifns  and  "endifns, 
*/ 


if  (Complnfo [CompNumber] .disposit ion  — ERROR  &&  !NeedToSave) 
strcat (status,  "Error"); 

else  if  (Complnfo [CompNumber] .disposition  ==  INSTALLED  &&  INeedToSave) 
strcat (status,  "Installed"); 
else  if  (NumberOf If s-NumberOfEndif s — 0) 

{ 

if  ( PrevChoice [ChoiceCounter-1]  — END_IF  || 

PrevChoice [ChoiceCounter-1]  — PRINT  li 
PrevChoice [ChoiceCounter-1 ] — COMMENT  |i 

Equation  — RHS  £ 6 

(PrevChoice [ChoiceCounter-1]  — MSID  || 

PrevChoice [ChoiceCounter-1]  — NUMBER  I I 
PrevChoice [ChoiceCounter-1]  — STRING  II 
PrevChoice [ChoiceCounter-1]  — SIGNAL  I j 
PrevChoice [ChoiceCounter-1]  — LOCAL  || 

PrevChoice [ChoiceCounter-1]  —PI  II 

(PrevChoice [ChoiceCounter-1]  — R__PAREN  it  ParenCount  — 0)  ) ) 

{ 

strcat  (status,  "Complete"); 

Complnfo [CompNumber ]. disposit ion  - COMPLETE; 

) 

else 

{ 

strcat  (status,  "Incomplete"); 

Complnfo [CompNumber] .disposit ion  - INCOMPLETE; 

} 

) 

else 


{ 

Complnfo [CompNumber] .disposit ion  - INCOMPLETE; 
strcat (status,  "Incomplete"); 

) 


/* 

* Display  the  "cycle  selection  mode". 

V 


strcat  ( status,  " MODE:  " ); 

if  < Disposition  1-  NOJ3ROUP  ) 

switch  ( Complnfo  [CompNumber]  . cyclejnnode  ) 


{ 

case  CYCLIC 


case  ONE  SHOT 


case  NONE 


default 

) 


strcat  ( status,  "CYCLIC"  ); 
arm_toggle{  tgl_cycle  ); 
disarm_toggle ( tgl_lshot  ); 
break; 

strcat ( status,  "ONE-SHOT"  ); 
arm_toggle(  tgl— lshot  ); 
disarm_toggle ( tgl_cycle  ); 
break; 

disarm_toggle ( tgl_cycle  ); 
disarm_toggle ( tgl_lshot  ); 
break; 

user_ack(  "Comp  contains  invalid  Cycle  Selection  Mode", 


HELP  U ACK  ) ; 


/* 

* Display  the  status  string. 

*/ 

XmTextSetString ( txt_status,  status  ); 

/* 

* If  there  is  danger  of  the  comp  exceeding  the  MAX_COMP_LEN  If 

* the  largest  token  (MAX_COMMENT_LEN)  is  selected  next,  tell 

* the  user  to  notify  developers  and  EXIT  before  irrevocable 

* damage  is  done. 


put_status.c 


if  ( strlen (Comp)  > (MAX_COMP_LEN  - MAX_COMMENT_LEN) ) 

user  ack{"You  have .exceeded  the  maximum  comp  length.  Notify  developers.",  HELP_U_ACK) 
save ( NO-SHOW  ) ; 
cleanExit () ; 

} 


I OnpMr 

wmmm; 


put_token.c 


* FILE  NAME: 

. k 


put_token .c 


FILE  FUNCTION: 

Adds  the  cooresponding  token  to  the  active  Comp. 

SPECIFICATION  DOCUMENTS: 

/code/ specs /code 


* FILE  MODULES: 

* 

* put_add ( > 

* put_and() 

* put_bitAnd() 

* put_bitOr() 

* put_bitXor() 

* put_comma() 

* put_comment () 

* put_divide ( ) 

* p ut_else() 

* put_endifO 

* put_eq() 

* put_func{  choice  ) 

* put_ge ( ) 

* put_gt ( ) 

* put i f ( ) 

* put_l_paren  ( ) 

* put_le{) 

* put_lt() 

* put_multiply  {) 

* put_ne() 

* put_not{) 

r*:  put_number() 

* put_or() 

* put p i < ) 

* put— print  {) 

* put_r_paren  {) 

* put_set() 

* put_shiftL() 

* put_shiftR{) 

* put_start() 

* put_stop ( ) 

* put_string{) 

* put_subt ract {) 

* put_then() 


>*★**★************************★★******★**; 


finclude  <stdio.h> 
frinclude  <string.h> 
linclude  <ctype.h> 

♦include  <X11/Int rinsic .h> 
♦include  <Xm/Xm.h> 

♦include  "code.h" 


/*★*★★*********★*****★**■**★**★*******♦***< >**********★***************************** 

* 

* MODULE  NAME:  put_add O 

* 

★ 

* MODULE  FUNCTION: 

* 

* Adds  the  "add"  token  to  the  current  Comp. 


> SPECIFICATION  DOCUMENTS: 


/code /specs /code 




"*  ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


put_token.c 


Troy  Heindel  & Terri  Murphy  of  NASA/ JSC/MOD 

Timothy  J.  Barton  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

*******************★*★*★★*★*★*•*******★★*< — >#***************************************/ 


put_add ( ) 

{ 

strcat ( Comp,  " +w  ) ; 
updateWA(  " +"  ) ; 

NeedToSave  = TRUE; 
PrevChoice [ChoiceCounter++] 

} 


ADD; 


/****************************************< >**************************************** 

* 

* MODULE  NAME:  put_and() 

* 

* 

* MODULE  FUNCTION: 

* 

* Adds  the  "and"  token  to  the  current  Comp. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

« 

* Troy  Heindel  £ Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

****************************************< >****************************************/ 


put_and  {) 

{ 


strcat ( Comp,  " and"  ) ; 
updateWA(  " and"  ); 

Equation  - LHS; 

NeedToSave  * TRUE; 

PrevChoice [ChoiceCounter++]  - AND; 

} 

/****************************************< >**************************************** 

* 

* MODULE  NAME:  put_bitAnd() 

★ 

* 

* MODULE  FUNCTION: 

* 

* Adds  the  "bitAnd"  token  to  the  current  Comp. 


* SPECIFICATION  DOCUMENTS: 


/code/ specs /code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


* Troy  Heindel  & Terri  Murphy  of  NASA/ JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

****************************************< >****************************************/ 


put_bit And ( ) 

{ 

strcat ( Comp,  " bitAnd"  ) ; 
updateWA(  " bit And”  ); 

NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  * BITAND; 

> 

/★****★********★★****★*******************< >**************************************** 

* 

* MODULE  NAME:  put_bitOr() 

* 

★ 

* MODULE  FUNCTION: 

* 

* Adds  the  "bitOr*  token  to  the  current  Comp. 

* 


* SPECIFICATION  DOCUMENTS: 


/code/ specs /code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

★ 

* Timothy  J.  Barton 


Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 


put_bitOr  () 

{ 

strcat { Comp,  " bitOr"  ) ; 
updateWA { ■ bitOr"  ); 

NeedToSave  * TRUE; 

PrevChoice [ChoiceCounter++]  « BITOR; 

} 

/**★*****★*******★***★★*★★★★★★★**★***★*★*< >**************************************** 

* 

* MODULE  NAME:  put_bitXor{) 

* 

* 

* MODULE  FUNCTION: 

* 

* Adds  the  "bitXor"  token  to  the  current  Comp. 

* 

* 

* SPECIFICATION  DOCUMENTS: 


/code/ specs /code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


* 

* Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

♦ Motif  Release  1.0  - 90/03/16 

* 

★ *★*****■***■■***■***•***■*********★*★*****★**< >*********★★********************★********/ 


put_bitXor  () 

{ 

strcat(  Compr  " bitXor"  ); 
updateWA { " bitXor"  ); 

NeedToSave  * TRUE; 

PrevChoice  [ChoiceCounter++3  - BITXOR; 


) 


put_token.c 


* 

* MODULE  NAME:  put_comma  {) 


* MODULE  FUNCTION: 

* 

* Adds  the  "comma"  token  to  the  current  Comp. 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

*******************  **  * **  ******  *★*****★★*< >*****  ***********************************/ 


put_comma { ) 

{ 

strcat  { Comp,  " ); 

updateWA(  " , " ); 

NeedToSave  - TRUE; 

FunctionArgsDef [Funct ionCurrent] ++; 

PrevChoice [ChoiceCounter++]  - COMMA; 

) 

/****************************************< _„>**************************************** 


* MODULE  NAME:  put_comment () 

* 

* 


* MODULE  FUNCTION: 

* 

* Adds  the  "comment"  token  to  the  current  Comp. 

* 


* 

* SPECIFICATION  DOCUMENTS: 


/code/specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 


out_comment () 

{ 

char  comment [MAX_COMMENT_LEN+l] ; 
int  rc; 

/* 


put Joken.cv  | 

If  no  group  is  selected/  let  the  user  know  to  use  CREATE. 


if  ( Disposition  *-  NOJ3ROUP  ) 

user  ack(  "No  group  selected,  use  CREATE  to  start  a new  Group/Comp",  HELP_U_ACK  ); 
return; 

} 

/* 

* Loop  until  the  user  enters  a comment  string. 

*/ 

do  { 

comment [0]  - NULL; 

rc  - get_string(  "Please  enter  your  comment  below",  comment,  MAX_COMMENT_LEN,  TRUE  ) 
if  ( rc  --  ABORT  ) 

user  ack ("Please  enter  a valid  comment",  HELP_U_ACK) ; 

} while  ( rc_ ABORT  ) ; 

strcat{  Comp,  " /*  " ); 
strcat  ( Comp,  comment  ) ; 
strcat{  Comp,  " V1'  ); 
updateWA(  " /*  * ); 

updateWA(  comment  ); 
updateWA  { " V"  ); 

NeedToSave  * TRUE; 

PrevChoice [ChoiceCounter++]  * COMMENT; 


* MODULE  NAME:  put_divide () 

* 

* 

* MODULE  FUNCTION: 

* 

* Adds  the  "divide"  token  to  the  current  Comp. 

* 

★ 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

★ 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

**********★*************#*##********★***< >************#***************************/ 

put_divide () 

{ 

strcat  ( Comp,  " /"  ); 
updateWA ( * /"  ) ; 

NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  - DIVIDE; 

) 


* 

* MODULE  NAME:  put_else() 


* MODULE  FUNCTION: 


Adds  the  "else"  token  to  the  current  Comp. 


* SPECIFICATION  DOCUMENTS 


* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  & Terri  Murphy  of  NASA/ JSC/MOD 

★ 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

★ 

*★*****************★********************< >****************************************/ 


put_else  () 

{ 

int  i; 

NestedElseCheck [ NumberOflfs  - NumberOfEndif s ] - ELSE; 
street ( Comp,  "\n"  ) ; 
updateWA<  "\n"  ); 

for  (i-0;  i < ( (NumberOf If s-NumberOfEndif s) -1) *SIZE_INDENT;  i++  ) 

( 

street { Comp,  " " ) ; 
updeteWA ( " " J; 

) 

streat  { Comp,  "else"  ) ; 
updeteWA ( "else"  }; 

Equation  - LHS; 

NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  - ELSE; 


* MODULE  NAME:  put_endif{) 

* 

* 

* MODULE  FUNCTION: 

* 

* Adds  the  "endif"  token  to  the  current  Comp. 

* 

★ 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

★ 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

* * a *************************************< >****************  ******■**★★★★*****★*★***★/ 

>ut_endif  () 
i 

NumberO fEndif s++; 
indent ( CONSEQUENCE  ) ; 
streat { Comp,  "endif"  ) ; 
updateWA(  "endif"  ); 


put_token.c 


NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  = END_IF; 


* 

* MODULE  NAME:  put_eq() 

* 


* 


* MODULE  FUNCTION: 

* 

* Adds  the  "equal" 


token  to  the  current  Comp. 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


* Troy  Heindel  S Terri  Murphy  of  NASA/ JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

# 

******************★************★***★**•**<<-- >****************************************/ 


put_eq ( ) 

{ 

if  (WhereAmI  — CONSEQUENCE  I I NumberOflfs 

( 

strcat ( Comp,  " »"  ) ; 
updat eWA ( ■ ; 

} 

else  /*  we're  in  the  premise  */ 

{ 

strcat ( Comp,  " — ” ) ; 
updat eWA { " — " ); 

} 


NumberOfEndifs) 


PrevChoice [ChoiceCounter++]  « EQ; 
Equation  - RHS; 

NeedToSave  - TRUE; 


* 

* MODULE  NAME:  put_func ( choice  ) 

* 

* 


* MODULE  FUNCTION: 

* 

* Adds  the  "function"  token  to  the  current  Comp. 

* 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


Troy  Heindel  £ Terri  Murphy  of  NASA/JSC/MOD 


Timothy  J.  Barton  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* 


put_func ( choice  ) 
int  choice; 


int  rc;  /*  Fuction  call  return  code  */ 

char  message [ 150 ] , 

whichFunction  [ FUNC_NAME_LEN  ];  /*  The  actual  name  of  the  selected  function  */ 

switch (choice) 

{ 

case  COS:  strcpy (Funct ionList [Funct ionCount ] , "cos") ; 

Funct ionArguments [Funct ionCount ] « 1; 
break; 

case  ACOS:  strcpy (Funct ionList [Funct ionCount ] , "acos") ; 

Funct ionArguments [FunctionCount]  - 1; 
break; 

case  SIN:  strcpy (Funct ionList [Funct ionCount ] , "sin"); 

Funct ionArguments [FunctionCount]  - 1; 
break; 

case  ASIN:  strcpy (Funct ionList [Funct ionCount j , "asin"); 

Funct ionArguments [Funct ionCount]  - 1; 
break; 

case  TAN:  strcpy (Funct ionList [Funct ionCount ] , "tan"); 

Funct ionArguments [FunctionCount]  - 1; 
break; 

case  ATAN:  strcpy (Funct ionList [FunctionCount ] , "atan”)  ; 

Funct ionArguments [FunctionCount ] - 1; 
break; 

case  SQRT:  strcpy (FunctionList [Funct ionCount ] , "sqrt") ; 

Funct ionArguments [FunctionCount ] - 1; 
break; 

case -POWER:  strcpy (Funct ionList [Funct ionCount ] , "power"); 

Funct ionArguments [Funct ionCount ] - 2; 
break; 

case  LOG:  strcpy (Funct ionList [Funct ionCount ] , "log"); 

Funct ionArguments [FunctionCount]  * 1; 
break; 

case  EXP:  strcpy (Funct ionList [Funct ionCount ] , "exp"); 

Funct ionArguments [Funct ionCount ] « 1; 
break; 


case  FUNCTION: 
do  { 


strcpy ( message,  "Please  enter  the  function  name  below"  ); 
if  { get_st ring (message, whichFunct ion, FUNC_NAME_LEN-1, FALSE)  — ABORT  ) 
return ( DEFAULT  ) ; 

if  ( (rc  - funcCheck (whichFunct ion) ) — ERROR  ) 

{ 

sprintf  ( message,  " '%s'  is  not  a defined  user  function.  ",  whichFunction  ); 

user  ack ( message,  HELP_U_ACK  ) ; 


} 

} while  ( rc 


ERROR  ) ; 


strcpy ( Funct IonList [ FunctionCount  ],  whichFunction  ); 
Funct ionArguments [ FunctionCount  ] - MAX_FUNC_P ARAMS ; 
break; 


default:  break; 


Funct ionCurrent  - FunctionCount; 


/* 

* Clean  up  Indentation 

V 


indent  < PREMISE  ) ; 

strcat(Comp,  Funct ionList [Funct ionCount++]  ); 
updateWA ( Funct ionList [Funct ionCount-1]  ); 

PrevChoice [ChoiceCounter++]  * choice; 
put_l_paren  (); 

/* 

* We're  now  in  a function  so  increment  the  function 

* paren  count  if  it  wasn't  already  incrmented  by  put_l_paren. 

* (It  will  be  incremented  in  put_l_paren  if  it's  a nested 

* function.) 

*/ 


if(  FuncParenCount  — 0 ) 
FuncParenCount  ++ ; 
NeedToSave  = TRUE; 


* 

* MODULE  NAME:  put_ge() 


* MODULE  FUNCTION: 

* 

* Adds  the  "greater-equal"  token  to  the  current  Comp. 


* SPECIFICATION  DOCUMENTS: 


* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  & Terri  Murphy  of  NASA/ JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 


put  jge  ( ) 

{ 

strcat ( Comp,  * >•*  ); 
updateWA (.  " >*"  ); 

PrevChoice [ChoiceCounter++3  * GE; 

Equation  ■ RHS; 

NeedToSave  - TRUE; 

) 

/*★***********★*****★**★*****************<-.-.__-.> 

* 

* MODULE  NAME:  put_gt{) 


* MODULE  FUNCTION: 

★ 

* Adds  the  "greater-than"  token  to  the  current  Comp. 

* 

* SPECIFICATION  DOCUMENTS: 

* 


/code /specs /code 


put_token.c 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


* Troy  Heindel  i Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 


* 


put_gt ( ) 

{ 

strcat  ( Comp,  " >"  ) ; 
updateWA ( " >"  ); 

PrevChoice [ChoiceCounter++]  = GT; 

Equation  * RHS; 

NeedToSave  - TRUE; 

} 

/****************************************< >**************************************** 

* 

* MODULE  NAME:  put_if  () 

* 

* 

* MODULE  FUNCTION: 

# 

* Adds  the  "if"  token  to  the  current  Comp. 


SPECIFICATION  DOCUMENTS: 
/code/ specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

*★**************************************< >****************************************/ 


put i f { ) 

{ 

/* 

* If  we're  balanced  then  we  just  add  a return 

V 


if  ( (NumberOflfs  - NumberOfEndifs)  !-  0) 
indent ( CONSEQUENCE  ) ; 

else 

{ 

strcat  ( Comp,  "\n"  ); 
updateWA(  "\n"  ); 

) 

strcat ( Comp,  "if"  ); 
updateWA ( "if"  ); 

NumberOf Ifs++; 

PrevChoice [ChoiceCounter++]  - IF; 
WhereAmI  - PREMISE; 

Equation  * LHS; 

NeedToSave  * TRUE; 


} 


putjoken.c 


* 

* MODULE  NAME:  put_l_paren ( ) 

* 


* 

* MODULE  FUNCTION: 

* 

* Adds  the  "left  paren"  token  to  the  current  Comp, 

* 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  £ Terri  Murphy  of  NASA/ JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

*********  + ***★★************■***■***★*★*★**< _>*********•*★************■***********★*****/ 


puMjairenO 

{ 

strcat  ( Comp,  ” {"  ); 
updateWA { " (■  ); 

NeedToSave  - TRUE; 

PrevChoice  [ChoiceCounter++]  * L_PAREN; 

/* 

* If  we're  defining  function  arguments  we  need  to  increment  the  function 

* paren  count  so  we  can  tell  when  we've  finished  arg  def' ing. 

V 

if { FuncParenCount  > 0 ) 

FuncParenCount++; 

ParenCount++; 

} 


* 

* MODULE  NAME:  puttie {) 


* MODULE  FUNCTION: 


Adds  the  "less  than  equal"  token  to  the  current  Comp. 

SPECIFICATION  DOCUMENTS: 

/code/ specs /code 

ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

Troy  Heindel  £ Terri  Murphy  of  NASA/JSC/MOD 

Timothy  J.  Barton  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 

REVISION  HISTORY: 


Motif  Release  1.0 


90/03/16 


putjoken.c 


put_le  () 

( 

strcat  ( Comp,  " <*"  ) ; 
updateWA{  " <*"  ) ? 

PrevChoice [ChoiceCounter ++]  * LE; 
Equation  * RHS; 

NeedToSave  * TRUE; 

) 


/*******************★********************< >********★***************************★*** 

* 

* MODULE  NAME:  put_lt() 

* 

* 

* MODULE  FUNCTION: 

* 

* Adds  the  "less  than"  token  to  the  current  Comp. 


* SPECIFICATION  DOCUMENTS: 

★ 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

, * Motif  Release  1.0  - 90/03/16 
* 

****************************************< >****************************************/ 

put_lt  () 

{ 

strcat ( Comp,  " <"  ) ; 
updateWA{  " <"  ) ; 

PrevChoice [ChoiceCounter++]  » LT; 

Equation  * RHS; 

NeedToSave  * TRUE; 

) 

/************★**★**★*****★***************< >**************************************** 

* 

* MODULE  NAME:  put_multiply 


* MODULE  FUNCTION: 

* 

* Adds  the  "multiply"  token  to  the  current  Comp. 

* 

* 

* SPECIFICATION  DOCUMENTS: 


/code /specs /code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

Timothy  J.  Barton  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* REVISION  HISTORY: 


put_token.c 


Motif  Release  1.0  - 90/03/16 


*****♦★*# 


put_multiply 0 

( 

strcat(  Comp,  " *n  ); 
updateWA{  n *"  ); 

NeedToSave  * TRUE; 
PrevChoice [ChoiceCounter++] 

} 


MULTIPLY; 


* 

* MODULE  NAME:  put_ne() 


* 


* MODULE  FUNCTION: 

* 

* Adds  the  "not  equal" 


token  to  the  current  Comp. 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  £ Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 


★ * * */ 


put_ne ( ) 

{ 

strcat { Comp,  n 8"  ); 
updateWA ( " 8"  ) ; 

PrevChoice [ChoiceCounter++]  = NE; 
Equation  ■ RHS; 

NeedToSave  * TRUE; 

} 


/*******************************★***★*★**< > ***★**★•***★★* *************************** 

* 

* MODULE  NAME:  put_not() 

* 

* 

* MODULE  FUNCTION: 

★ 

* Adds  the  "not"  token  to  the  current  Comp. 

* 

* 

* SPECIFICATION  DOCUMENTS: 


/code /specs /code 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  £ Terri  Murphy  of  NASA/ JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* 


REVISION  HISTORY: 


put_not ( ) 

{ 

indent ( PREMISE  ) ; 
strcat ( Comp,  "not"  ); 
updateWA ( "not"  ); 

PrevChoice [ChoiceCounter++]  = NOT; 
put_l_paren () ; 

NeedToSave  * TRUE; 

) 


/****************************************< >**************************************** 

* 

* MODULE  NAME:  put_number() 

* 

* 

* MODULE  FUNCTION: 

* 

* Adds  a number  to  the  current  Comp. 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  £ Terri  Murphy  of  NASA/JSC/MOD 

* 


Timothy  J.  Barton  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* REVISION  HISTORY: 

★ 

* Motif  Release  1.0  - 90/03/16 

* 

****** ********************  **************< >****************************************/ 

put_ number ( ) 

( 

char  number [30]; 
int  status; 

/* 

* Loop  until  the  user  gives  us  a 'good'  number 
*/ 

do  { 

status  - get_string(  "Please  enter  a valid  number  below",  number,  30-1,  FALSE  ); 
if  ( status  ABORT  ) 

{ 

user_ack{  "Please  enter  a valid  number",  H£LP_U__ACK  ); 
status  * ERROR; 

> 

else 

if  ((status  - st r^isalnum (number) ) « ERROR  ) 
user_ac)c  ( "Invalid  number",  HELP_U_ACK)  ; 

) while  ( status  *»  ERROR  ) ; 


if  ( Equation  »«  LHS  ) 

if  ( status  — FLOAT  ) 

strcpyt  CompareType [ NumberOfCompares++  ],  "float"  ); 

else 

strcpy{  CompareType[  NumberQfCompares++  ],  "int"  ); 


/* 

* Clean  up  indentation 

V 


putjoken.c 


indent ( PREMISE)'; 

strcat ( Comp,  number  ) ; 
updateWA(  number  ); 
NeedToSave  * * TRUE; 
PrevChoice [ChoiceCounter++] 


NUMBER; 


} 

/***************** ******  ************ *★***< >**************************************** 

* 

* MODULE  NAME:  put_or() 

* 

* 

* MODULE  FUNCTION: 

* 

* Adda  the  "or"  token  to  the  current  Comp. 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

★ 

* Motif  Release  1.0  - 90/03/16 

* 

****************************************< >****************************************/ 


put_or  () 

{ 

strcat  ( Comp,  " or"  ); 
updateWA{  H or"  ); 

Equation  * LHS; 

NeedToSave  * TRUE; 

PrevChoice [ChoiceCounter++]  * OR; 

} 

/****************************************< >*********** ***************************** 

* 

* MODULE  NAME:  put_pi() 

* 

* 

* MODULE  FUNCTION: 

* 

* Adds  the  "PI"  token  to  the  current  Comp. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  i Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 


put pi  0 

{ 

indent  ( PREMISE  ) ; 
strcat  ( Comp,  "PI"  ); 
updateWA { "PI"  ); 

PrevChoice [ChoiceCounter ++]  * PI; 
NeedToSave  * TRUE; 

) 


* 


* MODULE  NAME:  put_print () 


* 

* MODULE  FUNCTION: 

★ 

* Adds  a print  statement  to  the  current  Comp. 

* 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

****************************************< >**★*************************************/ 


put_print () 

{ 

char  fault  [82] , 

prompt [100] ; 
int  rc; 

indent  { CONSEQUENCE  ) ; 
strcat  ( Comp,  "print"  ); 
updateWA(  "print"  ); 

NeedToSave  - TRUE; 

/* 

* Get  the  fault  msg  class  from  the  user 

V 

do 

( 

fault [0]  - NULL; 

rc  * get_string ("Please  enter  the  fault  message  class  (1-5).”,  fault,  1,  FALSE  ) 
if  ( rc  — ABORT  ) 

user_ack {"Please  enter  a fault  message  class",  HELP_U_ACK) ; 

) 

while  (rc  — ABORT  [I  atoi (fault)  < 1 II  atoi  (fault)  > 5); 

/* 

* Append  the  fit  msg  class  to  comp 

V 

strcat ( Comp,  fault  ); 
updateWA(  fault  ); 
strcat { Comp,  " \042"  ); 
updateWA ( " \042"  ); 

/* 

* Get  the  fault  msg  from  the  user 
*/ 


put_token.c 


s t rcpy ( prompt , "P lease  enter  fault  message.  Precede  variables  by  percent"  ); 
strcat  ( prompt,  "\n\tsign.  (e.g.  V75T2S17A  is  %V75T2517A) * ); 


do  { 

fault [0]  - NULL; 

rc  * get_string(  prompt,  fault,  81,  FALSE  ); 
if  { rc  ■*  ABORT  ) 

user_ack ("Please  enter  the  fault  message",  HELP_U_ACK) ; 
} while  ( rc  « ABORT  ); 


/* 

* Append  the  fault  msg  to  the  comp 

*/ 

strcat  ( Comp,  fault  ) ; 
strcat  ( Comp,  " \ 0 4 2 " ); 
updateWA < fault  ); 
updateWA ( "\042"  ); 

PrevChoice [ChoiceCounter++]  - PRINT; 


* 

* MODULE  NAME:  put_r_paren ( > 


* MODULE  FUNCTION: 

* 

* Adds  a "right  paren"  token  to  the  current  Comp. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  £ Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 


put_r_paren () 

{ 

int  i; 

strcat  ( Comp,  " ) " ) ; 
updateWA (")"); 

NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  - R_PAR£N; 

/* 

* If  we're  defining  function  arguments 

* we  need  to  dercrement  the  function 

* paren  count  so  we  can  tell  when  we've 

* finished  arg  def ' ing. 

*/ 

if{  FuncParenCount  > 0 ) 

{ 

FuncParenCount — ; 

if  (++Funct lonArgsDef [ Funct ionCurrent  3 ” Funct ionArguments [ Funct lonCurrent  ]) 
{ 

for  (i-FunctionCurrent-1;  i >-  0;  i — ) 

( 

if  (Funct ionArgsDef [i]  t-  Funct ionArguments [i] ) 

{ 

Funct ionCurrent  - I; 


* 


* MODULE  NAME;  put_set O 


* MODULE  FUNCTION; 

* 

* Adds  a set  statement  to  the  current  Comp. 


* SPECIFICATION  DOCUMENTS; 

★ 

* /code/specs/code 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  4 Terri  Murphy  of  NASA/JSC/MOD 

w 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

************************★*****★**★******<----->****************************************/ 

put_set ( ) 

{ 

indent ( CONSEQUENCE  ) ; 
strcat(  Comp,  "set"  ); 
updateWA { "set"  }; 

Equation  * LHS; 

NeedToSave  = TRUE; 

PrevChoice [CboiceCounter++]  * SET; 

} 


/********★*******★********★*******★*****★< >**************************************** 

* 

* MODULE  NAME:  put_shiftL() 

* 

* 

* MODULE  FUNCTION: 

* 

* Adds  a "shift  left"  token  to  the  current  Comp. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  i Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 


Motif  Release  1.0 


90/03/16 


put_token.c  J • 

>*************************  W***  ******  ****'/ 

put_shiftL  {) 

{ 

strcat(  Comp,  " shiftL"  ); 
updateWA(  " shiftL"  ); 

NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  - SHIFTL; 


/****************************************< >**************************************** 

* 

* MODULE  NAME:  put_shiftR() 

* 

* 

* MODULE  FUNCTION: 

★ 

* Adds  a "shift  right"  token  to  the  current  Comp. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

****************************************< >****************************************/ 

put_ shiftR ( ) 

{ 

strcat(  Comp,  " shiftR"  ); 
updateWA(  " shiftR"  ); 

NeedToSave  = TRUE; 

PrevChoice [ChoiceCounter++]  - SHIFTR; 


/★A***************************************; >**************************************** 

* 

* MODULE  NAME:  put__start() 

* 

* 

* MODULE  FUNCTION: 


* Adds  a "start"  token  to  the  current  Comp. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 


put_start  () 


put_token.c 


( 


char 

int 


comp_name [100]; 
rc; 


indent  ( CONSEQUENCE  ) ; 

PrevChoice [ChoiceCounter++]  * START; 
strcat  ( Comp,  "start  ( " ); 
updateWA{  "start  ( M ); 


rc  * get_st ring {"Please  enter  the  comp  name.",  comp_name,  100-1,  FALSE  ); 
if  ( rc  ««  ABORT  ) 

{ 

delete  {)  ; 

displayWA{  Comp  ); 
return; 

} 

else 

{ 

strcat { Comp,  comp_name  ) ; 
strcat ( Comp,  " ) " ) ; 
updateWA(  comp_name  ); 
updateWA ( " ) " ) ; 

) 


NeedToSave  * TRUE; 

) 


* 

* MODULE  NAME:  put_stop() 

* 


* 

* MODULE  FUNCTION: 


* 

* Adds  a "stop"  token  to  the  current  Comp. 


* 


★ SPECIFICATION  DOCUMENTS: 


/code /specs /code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


* 

* 

* 

* 

* 


Timothy  J.  Barton  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

****************************************o- >****************************************/ 


put__stop() 

{ 

char  comp_name [100] ; 

int  rc; 


indent { CONSEQUENCE  ) ; 

PrevChoice [ChoiceCounter++]  - STOP; 
strcat  ( Comp,  "stop(  B ); 
updateWA(  "stop(  " ); 

rc  * get_string ("Please  enter  the  comp  name.",  comp__name,  100-1,  FALSE  ); 
if  { rc  — ABORT  ) 

{ 

delete  ()  ; 

displayWA(  Comp  ); 
return; 

> 

else 

( 

strcat  ( Comp,  comp_name  ) ; 
strcat ( Comp,  " )"  ); 


put_token.c 

updateWA(  " )"  ); 

) 

NeedToSave  - TRUE; 

} 

* 

* MODULE  NAME:  put_string() 


* MODULE  FUNCTION: 

* 

* Adds  a string  to  the  current  Comp. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

******************  **********************<  — > * ***************************************/ 

put_string () 

{ 

char  theStringl [ MAX_STR_LEN  ], 

theString2 [ MAX_STR_LEN  ); 
int  rc; 

theStringl [0]  - NULL; 
theString2 [0]  - NULL; 

/* 

* Get  the  string  from  the  user 
*/ 


do  { 

rc  * get_string ("Please  enter  your  text  string  below",  theStringl,  MAX_STR_LEN-1, 
if  { rc  — ABORT  ) 

user_ack ( "P lease  enter  a text  string",  HELP_U_ACK) ; 

} while  ( rc  ~ ABORT  ) ; 

if  ( Equation  --  LHS  ) 

strcpy(  CompareType [ NumberOfCompares++  ],  "char"  ); 

/* 

* Clean  up  indentation 
*/ 

indent ( PREMISE  ) ; 

/* 

* Append  the  string  to  the  comp 
*/ 

sprintf(  theString2,  "\042%s\042",  theStringl  }; 
strcat  ( Comp,  theString2  ) ; 
updateWA(  theString2  ); 

NeedToSave  * TRUE; 

PrevChoice [ChoiceCounter++3  = STRING; 


FALSE  ) ; 


MODULE  NAME:  put_subtract ( ) 


* 

* 

* MODULE  FUNCTION: 


* Adds  a "subtract" 

* 


token  to  the  current  Comp. 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

Hr 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

Hr 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 


* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

*******  ******************  ****** *********< 


put_subtract () 

{ 

strcat  ( Comp,  " ) ; 

updat eWA ( " ; 

NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  - SUBTRACT; 

} 


/*******★********************************< >**************************************** 

* 

* MODULE  NAME:  put_then() 

* 

* 

* MODULE  FUNCTION: 

* 

* Adds  a "then"  token  to  the  current  Comp. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel  t Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

★ 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

******************************★*★*******< >****************************************/ 


put_then ( ) 

{ 

int  i; 

NestedElseCheck [NumberOf If s-NumberOfEndif s]  - THEN; 

/* 

* Clean  up  indentation 

V 


putjoken.b 


strcat ( Comp,  "\n"  ); 
updateWA{  "\nw  ); 

for  (i»0;  i < ( {NumberOf If  s-NumberOfEndif s)  -1)  *SIZE__INDENT;  i++  ) 

< 

strcat ( Comp,  " " ) ; 
updateWA ( " " ) ; 

) 

strcat ( Comp,  "then"  ); 
updateWA ( "then”  ); 

WhereAml  - CONSEQUENCE; 

Equation  - LHS; 

NeedToSave  - TRUE; 

PrevChoice [ChoiceCounter++]  - THEN; 


) 


remove.c 

********* ******************************************  * 
REMOVE 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  1/27/88 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

IESP  (INCO  Expert  System  Project) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 


♦include  <stdio.h> 

♦include  <string.h> 
♦include  <X11/Int rinsic .h> 
♦include  <Xm/Xm.h> 

♦include  "code.hN 


* 


* MODULE  NAME:  remove () 

* 

* 


* MODULE  FUNCTION: 

* 

* Determines  if  the  user  wants  to  delete  a group  or  comp,  then  determines  which 

* group  or  comp  to  delete. 

* 

* 

* SPECIFICATION  DOCUMENTS: 


* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* 

* Troy  Heindel  & Terri  Murphy  of  NASA/JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

****************************************< >****************************************/ 


remove  ( ) 

{ 

FILE  *ptrl; 

int  is_installed,  /*  TRUE  if  the  comp  being  removed  was  prev.  installed,  else  FALSE  */ 

i/  jf 
re; 

char  group_dat_f ile [PATH_LEN] ; /*  Complnfo  file  name  */ 

char  confirm [250] , cmd_st ring [250] ; 


/* 

* Ask  the  user  if  they  want  to  delete  an  entire  group  or  just 

* one  comp. 

*/ 


remove.c 


rc  - get_type_gc(  "Do  you  want  to  remove  a Group  or  Comp?"  ); 
if  { rc  « ABORT  ) 
return  { OK  ); 


/* 

* User  chose  to  delete  a comp. 
*/ 


if  ( rc  — COMP  ) 

( 

rc  - get  name  (NumOfGroups , "Group",  GroupName,  tGroupNumber,  ^Disposition) ; 
if  (rc  — ERROR) 

return (ERROR) ; 

rc  » get_name  (NumOfComps,  "Comp",  CompName,  fiCompNumber,  ^Disposition) ; 
if  (rc  ERROR) 
return (ERROR) ; 
retrieve () ; 

/* 

* Give  the  user  one  more  chance  to  abort  this  drastic  action. 

V 

displayWA (Comp) ; 

sprint f (confirm,  "Are  you  sure  you  want  to  remove  %s",  CompName); 
if  (!  ask (confirm)  ) 
return; 

select_cursor ( Clock_Cursor  ); 

/* 

* Remove  the  comp  from  the  <group>.dat  file. 

V 

for  (i-0;  KNumOfComps;  i + + ) 

{ 

if (strcmp (CompName,  Complnfo [ i] . name)  »«  0) 

{ 

if (Complnfo [i] .disposition  — INSTALLED) 
is_installed  » TRUE; 

else 

is_installed  - FALSE; 
for  ( j-i ; j<NumOfComps; j++) 

Complnfo [j]  * Complnfo [ j+1 ] ; 
break; 

} 

} 

NumOfComps — ; 

/* 

* Save  the  Complnfo. 

*/ 

sprintf (group_dat_file,  "%s/%s.dat",  AMSupport,  GroupName); 
if  ( ! (ptrl  - fopen (group_dat_f ile,  "w"))) 

{ 

select_cursor ( Shutt le_Cursor  ); 

sprint f (cmd_ string,  "You  do  not  have  r/w  permission  to  save  %s.dat",  GroupName) 
user_ack(  cmd_string,  HELP_U_ACK  ); 
return  ( ERROR  ) ; 

) 

fprintf (ptrl,  "#name_name  noise_filter  rate  on_off  disposition  cycle_mode\n") ; 
for  (i-0;i  < NumOfComps; i++) 

{ 

fprintf  (ptrl, "%s  %d  %d  %d  %d  ls\n", 

Complnfo [i] .name, 

CompInfo[i] .noise_f ilter, 

Complnfo [i] .rate, 

Complnfo [i] .on_off, 

Complnfo [i] .disposition, 

Complnfo [i] ,cycle_mode, 

Complnfo [i] .purpose) ; 

) 

fclose(  ptrl  ); 

/* 

* Remove  the  high_level,  c,  and  variable  file  from  the  group  directory. 


sprintf{cmd  string, "rm  -f  Is/ls/ls.*  2»/tmp/code .err", CodeGroups, GroupName, CompName) ; 
system  (cmd_string) ; 

sprintf (cmd_string,  "Comp  Is  has  been  removed",  CompName); 
sleep (2) ; 


/* 

* If  the  comp  was  previously  installed,  we  need  to 

* install  the  group  again  using  the  new  9 .dat'  file. 
*/ 

select_cursor ( Shut t le^Cursor  ); 

if  (is_installed) 
install ( ) ; 


} 


/* 

* User  chose  to  delete  a group. 

*/ 

else  if  ( rc  ««  GROUP  ) 

{ 

rc  « get_name  {NumOfGroups,  "Group",  GroupName,  fiGroupNumber,  iDisposit ion) ; 
if  (rc  — ERROR) 

return ( ERROR  ) ; 


/* 

* Give  the  user  one  more  chance  to  abort  this  action. 

*/ 

sprintf {confirm,  "Are  you  sure  you  want  to  remove  Is",  GroupName); 
if  (!  ask (confirm)  ) 
return; 

select_cursor { Clock_Cursor  ); 

/* 

* So  far  so  good  remove  that  group  and  it's  .dat 

* and  the  executable. 

V 

sprintf  (cmd_st ring,  "rm  -r  %s/%s  %s/%s.dat  %s/%s  2>>/tmp/code .err",  CodeGroups,  GroupName, 
AMSupport,  GroupName,  AMGroups,  GroupName) ; 

system  (cmd_string) ; 

/* 

* Remove  the  bugger  from  the  group_names  list  by  sliding  everybody 

* else  up  a notch. 

*/ 

for  (i*0;  KNumOf Groups ; i++) 

{ 

if ( ! strcmp (GroupName,  Grouplnfo [ij .name) ) 

{ 

for ( j«i; j<NumOfGroups-l; j++) 

( 

Grouplnfo [j] .disposition  - Grouplnfo [ j+1] .disposition; 
strcpy (Grouplnfo [ j] .name, Grouplnfo [j+1] .name) ; 

) 

break; 

} 

} 

NumOfGroups — ; /*  Take  away  one  for  the  one  just  dropped  */ 

/* 

* Write  back  the  changes  to  the  GroupNames  file 
*/ 

writeGroupNames () ; 
select_cursor { Shutt le_Cursor  ); 

sprintf (confirm,  "Group  Is  has  been  deleted",  GroupName); 
user_ack(  confirm,  HELP_U_ACK  ); 


/* 

* Since  we've 

* some  house 
*/ 


just  deleted  what's 
cleaning. 


remove.c 


in  the  work  area  let's  do 


CompName [0] 
GroupName [0] 
NeedToSave 
NumOfComps 
Disposition 
Cycle_Mode 


- NULL; 

- NULL; 

* FALSE; 

- 0; 

- NOJ3ROUP; 

- NONE; 


cleanSlate {) ; 
displayWA{  Comp  ) ; 
put_status { ) ; 


/* 

* Set  up  the  previous  choice  so  the  call  to  color  valid 

* in  code.c  will  only  allow  the  choices  we  allow  on  startup. 
*/ 


PrevChoice [ChoiceCounter++]  * 99; 


retrieves 

* +*++**+*++**  ****** ******************** *********** ** 


RETRIEVE 

Purepose:  Retrieve  reads  in  the  comp  variable  file  into  the 
CompVars  struct,  reads  the  comp  language  file  into 
a temporary  string  which  is  passed  to  pretty_comp<) 
for  formatting  and  history  set-up. 


Returns:  0 - OK,  no  problems. 
-1  - File  i/o  problem. 


Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date : 5/10/87 


Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 

a*************************************************************** 
Include  files 

★ it**************************************************************/ 

♦include  <stdio.h> 

♦include  <string.h> 

♦include  <X11/Intrinsic.h> 

♦include  <Xm/Xm.h> 

♦include  "code.h" 


retrieves 

retrieve  () 

FILE  *ptr,  *ptr2;  /*  File  pointers,  what  else  could  they  be  */ 

char  msg_str ing [MAX_MSG_LEN] , /*  Message  string  repository,  and  temp  string  holder  */ 

tempComp [MAX_COMP_LEN] , /*  Used  for  temp  storage  of  the  comp  file  */ 

variable_file [PATH_LEN] , /*  The  string  for  the  path  of  the  comps  variable  file  */ 
sig_tbl_type [TYPE_LEN] , /*  Temporary  place  for  signal  table  type  */ 
header [80];  /*  Holds  the  strings  that  comprise  the  signal  table  header.  */ 

int  return_value;  /*  Return  value  from  fscanf  for  stripping  signal  table  header  */ 

y***************************"****** 

Initialize  some  global  variables 

it*********************************/ 

cleanSlate  ( ) ; 

SignalCount  ■ 0 ; 


/* 

* Load  the  signal  list  and  info  for  signal  validation  in  put_signal.c 

V 

if(ptr  - fopen  (SignalTbl, *r") ) 

{ 

/* 

* Rip  the  header  off  the  file 
*/ 
do 
{ 

return_value  - fscanf  (ptr,  "Is",  header); 

} while  ( ! (return_value  EOF  ||  strcmp (header,  FIRST_SIGNAL)  — 0) ) ; 
if  (return  value  !-  EOF) 

{ 

strcpy (SignalTable [SignalCount] .name,  header) ; 
fscanf  (ptr,  "Is",  sig_tbl_type) ; 
if  (sig_tbl_type [0]  — 'S') 

strcpy (SignalTable [SignalCount] .type,  "c") ; 
else  strcpy (SignalTable [SignalCount ] .type,  sig_tbl_type) ; 
fscanf  (ptr,  nl[A\n]",  SignalTable [SignalCount] . nomenclature) ; 
SignalCount++; 

y**************************************************** 

Loop  through  the  SignalTable  file  reading  the  first 
three  fields. 

♦ a-***************************************************/ 

while  ((fscanf  (ptr,"%s",  SignalTable [SignalCount ] .name) )! ■ EOF) 

( 

y************************************************** 

Get  the  signal  table  type.  If  it's  a string  the 
signal  table  will  have  an  'S'  - CODE  expects  a 'char' 
*******************************#*******************y 
fscanf  (ptr,  "Is",  sig_tbl_type) ; 
if  (sig_tbl_type [0]  — 'S') 

strcpy (SignalTable [SignalCount] .type,  "char") ; 
else  strcpy (SignalTable [SignalCount] .type,  sig_tbl_type) ; 
y************************ 

Get  the  nomenclature. 

************************y 

fscanf (ptr,  "%[A\nj",  SignalTable [SignalCount ] .nomenclature) ; 
♦♦SignalCount ; 

) 

} 

fclose  (ptr) ; 

} 

y********************************************************* 

Let's  check  for  the  comp  var  file  and  read  them  if  they  exist. 
**********************************************************y 
sprintf  (variable_f ile,  "Is/ls/ls . v",  CodeGroups,  GroupName,  CompName) ; 
if  (!(ptr2  ■ fopen  (variable_f ile,  "r"))) 

( 

user_ack { "Variables  have  not  been  found  for  this  comp.",  HELP_U__ACK)  ; 
return (ERROR) ; 

) 

else 

{ 

y************************ ********  *********** 

First  we  will  discard  the  comment 

that  is  the  1st  line  of  all  variable  files. 

******************************************** y 


retrieve, c 


f scanf (pt r2,  "%*[A\n]M); 

NumCompVars  - 0; 

/★★★a**************************************** 

Now  let's  read  the  variable  info  until 
we  reach  the  end  of  the  file. 
*★*****★*************************************/ 
while ( f scanf  (ptr2,"%s  %s  %s  %d  %d  %f  %f  %f  %f  %[A\n]n, 
CompVars [NumCompVars] .name, 

CompVars [NumCompVars] .type, 

CompVars [NumCompVars] .class, 

&CompVar s [NumCompVars] .occurrence, 
tCompVars [NumCompVars] .put_or_get, 

&CompVars [NumCompVars] . lol_limit, 

SCompVars [NumCompVars] . lo2_limit, 
t CompVars [NumCompVars] .hil_limit, 
iCompVars [NumCompVars] .hi2_limit, 

CompVars [NumCompVars] .nomenclature)  !-  EOF) 


{ 

NumCompVars ++; 

} 

fclose  (ptr2) ; 


/* 

* Read  the  comp  into  the  global  string  Comp 

*/ 

if  (readCODEFile (CompName,  tempComp)  -«  ERROR) 

{ 

user_ack ("There  was  an  error  reading  the  comp.",  HELP_U_ACK) ; 
return  (ERROR) ; 

} 


/* 

* Reformat  the  comp  with  pretty_comp  and 

* set  up  the  choice  history 
*/ 

if  (pretty_comp  (tempComp)  ■■  ERROR) 

{ 

sprintf  (msg_string,  "Undefined  tokens;  Corrections  must  occur  before  installation  is  possible.."); 
user_ack (msg_string,  HELP_U_ACK) ; 

Complnf o [CompNumber] .disposit ion  * ERROR; 
save  ( ) ; 
return  (ERROR) ; 

) 

NeedToSave  * FALSE; 
return  (OK) ; 

} /*  End  of  Retrieve  */ 


retrieve. c 


PRETTY  COMP 


Purpose:  Pretty_comp  takes  a temp_comp  string  from  retrieve  and 
formats  it  nicely.  It  also  sets  up  the  ChoiceCounter 
integer  array  which  is  a token  history. 


NOTE:  This  routine  treats  the  comp  file  like  a script  and 
recreates  the  comp  in  the  screen  the  same  way  as  if 
a user  were  mousing  tokens  off  the  screen.  The 
exceptions  are:  prints,  comments,  variables,  numbers. 


Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 


Date:  5/26/87 


Version:  1.0 

Project:  CODE  {Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 

***********************************************  *****************/ 
pretty_comp  (rawComp) 

char  *rawComp;  /*  The  string  to  fix  and  put  into  global  comp  */ 

int  rawlndex,  /*  The  index  used  with  the  passed  string  */ 

i,  /*  A simple  index  */ 

local_index,  /*  A local  index  for  a variable  set  by  var_check  */ 
global^ index, /*  A global  index  for  a variable  set  by  var_check  */ 
tokenlndex;  /*  The  index  used  with  the  token  string  */ 

char  token [1000];  /*  Temporary  holding  string  for  a token  */ 

/********************************************  ******** 

Loop  through  the  CODE  language  string,  translating 
tokens  to  C,  until  the  end  of  the  string  is  reached. 
****»************************************************/ 

NumberOflfs  * rawlndex  * 0; 

NumberOfEndlf s « 0; 

/★★★a********************************** 

Read  tokens  until  you  run  out  ... 
***************************************/ 
while  (rawComp [ rawlndex] ) 

{ 

/*★******************************************** 

Start  with  a fresh  token  index 
**********************************************/ 
tokenlndex  - 0; 

/********************************************** 

Yank  out  the  control  characters  and  spaces, 
we  don't  care  about  them  spaces  and  such. 
***********************************************/ 

while  (rawComp [rawlndex]  «■  9 9 I I rawComp [ rawlndex]  — '\t'  II 
rawComp [ rawlndex]  --  '\n') 

{ 

token [tokenIndex++]  - rawComp [rawlndex++] ; 

} 

token [tokenlndex]  - 0; 
strcat  (Comp,  token) ; 
tokenlndex  - 0; 

/********************************************** 

YANK  A TOKEN  out  of  the  comp's  string.  Tokens 
are  delimited  by  spaces,  tabs,  or  line  feeds, 
a**********************************************/ 

while  (rawComp [ rawlndex]  !»  9 9 &&  rawComp [ rawlndex]  !■  '\t'  £5 
rawComp [rawlndex]  !-  '\n'  £&  rawComp [ rawlndex]  !*  0) 

( 

token [tokenIndex++]  - rawComp [rawlndex++] ; 


token [tokenlndex]  - 0; 


/********************************************** 
If  the  token  is  null  we've  reached  the  end  of 
the  line  and  need  to  stop  token  processing 
***********★*******★*■**■***************'*********/ 
if  (!token[0])  return  {OK); 


/a********************************************* 

COMMENTS 

it**********************************************/ 

if  ( strncmp (token,  2)  ■■  0) 

{ 

/******************************************************** 

If  this  comment  is  not  complete  we  need  to  get  the  rest. 
*********************************************************/ 
if  (token [strlen  (token) -1]  !-  ’/*) 

{ 

token [tokenlndex]  - rawComp [ rawlndex] ; 

while  {! (rawComp [rawlndex-l]  — &&  rawComp [ rawlndex]  — '/')) 

token [tokenIndex++]  - rawComp [rawlndex++] ; 
token [tokenIndex++]  - rawComp [ rawlndex++] ; 
token [tokenlndex]  - 0; 

) 

/******************************************************** 

Now  add  the  comment  token  to  the  end  of  the  CODE  string. 
*********************************************************/ 
strcat  (Comp,  token) ; 
token [0]  * 0; 

PrevChoice [ChoiceCounter++]  - COMMENT; 

} 

/I**************-***************** 

PRINT 

********************************/ 

else  if  (strncmp (token,  "print",  5)  -*  0) 

{ 

strcat  (Comp,  token) ; 

/*****************************•★*★★***★■*****■** 

Get  all  the  chars  delimited  by  double  quotes 
*********************************************/ 
tokenlndex  » 0;  /*  Start  again  for  the  message  */ 
token [tokenlndex]  - 0;  /*  null  that  string  */ 
for  (i-0;K2;i++) 

{ 

do  /*  Grab  chars  until  the  double  quote  */ 

{ 

token [tokenIndex++]  - rawComp [ rawlndex++] ; 

} while  (rawComp [rawlndex-l] !-'"') ; 

} 

token [tokenlndex]  - 0; 

/************************************* 

Let's  add  it  to  the  Comp  string 
*********  **************  ***************/ 
strcat  (Comp,  token) ; 
token  [0]  - 0; 

PrevChoice [ChoiceCounter++]  - PRINT; 

) 

/******************************* 

STRING 

********************************/ 
else  if  (token[Q]  *-  '"') 

{ 

/*****************  *********************  ****** 

Get  rest  of  the  string  if  need  be 
*********************************************/ 
if  (token [strlen (token) -1]  !-  '"') 

( 

do  /*  Grab  chars  until  the  double  quote  */ 

( 

token [tokenIndex++]  ■ rawComp [rawlndex++] ; 

} while  (rawComp [ rawlndex- 1] !-'"')  ; 

} 

token [tokenlndex]  » 0; 

/************************************* 

Let's  add  it  to  the  comp  string 
**************************************/ 
strcat  (Comp,  token) ; 


retrieve.c 

token [6]  - 0; 

PrevChoice [ChoiceCounter++]  m STRING; 

} 

/********************************#**** 

IF 

**************************************/ 
else  if  (strcmp (token, " if" ) --  0) 

{ 

strcat  (Comp,  token) ; 

WhereAmI  - PREMISE; 

Equation  * LHS; 

NumberOf If s++; 

PrevChoice [ChoiceCounter++3  * IF; 

) 

/************************************* 

ENDIF 

**************************************/ 
else  if  (strcmp (token, "endif" ) « 0) 

{ 

strcat  (Comp,  token) ; 

NumberOfEndif s++; 

PrevChoice [ChoiceCounter++]  - END_IF; 

} 

/************************************* 

THEN 

************************************"**/ 
else  if  (strcmp (token, "then")  — 0) 

{ 

strcat  (Comp,  token); 

NestedElseCheck [NumberOf If s-NumberOfEndif s ] * THEN; 

PrevChoice [ChoiceCounter++]  - THEN; 

WhereAmI  - CONSEQUENCE; 

Equation  * LHS; 

) 

/*★*********************************** 

ELSE 

**************************************/ 
else  if  (strcmp (token, "else")  «■  0) 

{ 

strcat  (Comp,  token) ; 

NestedElseCheck [NumberOf If s-NumberOfEndifs]  - ELSE; 
PrevChoice [ChoiceCounter++]  - ELSE; 

Equation  - LHS; 

) 

/★★a********************************** 

OR 

**************************************/ 
else  if  (strcmp (token, "or")  »»  0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  » OR; 

Eolation  * LHS; 

} 

/************************************* 

BITXOR 

**************************************/ 

else  if  (strcmp (token, "bitXor")  — 0 II  strcmp (token, "xor") 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - BITXOR; 

) 

/************************************* 

BITOR 

**************************************/ 
else  if  (strcmp (token, "bitOr")  — 0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - BITOR; 

) 

/************************************* 

BITAND 

**************************************/ 
else  if  (strcmp (token, "bitAnd")  »«  0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - BITAND; 

) 

/************************************* 


SHIFTL 


else  if  (strcmp {token, "shiftL")  ■■  0) 


strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  * SHIFTL; 

) 

/************************************* 

SHIFTR 

********************★★****************/ 
else  if  ( strcmp {token, "shiftR")  — 0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  * SHIFTR; 

) 

/************************************* 

AND 

**************************************/ 
else  if  (strcmp (token, "and”)  ==  0) 

{ 

if  (WhereAmI  — PREMISE) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  * AND; 
Equation  - LHS; 

) 

} 

/************************************* 

NOT 

**************************************/ 
else  if  (strcmp (token, "not")  — 0) 

{ 

PrevChoice [ChoiceCounter++]  - NOT; 
strcat  (Comp,  token) ; 

) 

/************************************* 

SQRT 

♦a*******************#****************/ 

else  if  (strcmp (token, "sqrt" ) »»  0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - SQRT; 

} 

/Ik***************  ********************* 

POWER 

**************************************/ 
else  if  (strcmp (token, "power")  — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - POWER; 

} 

/************************************* 

EXP 

**************************************/ 
else  if  (strcmp (token, "exp")  «•  0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - EXP; 

) 

/************************************* 

LOG 

*********  *********************** ******/ 
else  if  (strcmp (token, "log")  — 0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  « LOG; 

} 

/************************************* 


PI 

**************************************/ 

else  if  ( (strcmp (token, "p")  — 0)  It  (strcmp (token,  "PI")  --  0) ) 

( 

strcat  (Comp,  token) ; 

PrevChoice {ChoiceCounter++]  - PI; 

) 

/************************************* 

COS 

**************************************/ 
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else  if  (strcmp (token, "cos") 
{ 


0) 


strcat  (Comp,  token); 

PrevChoice [ChoiceCounter++]  - COS; 


) 

/a************************************ 

ACOS 

*****************************♦********/ 
else  if  (strcmp (token, "acos")  «■  0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  * ACOS; 


) 

/a************************************ 

SIN 

************★*****************★*******/ 
else  if  (strcmp (token, "sin")  — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - SIN; 

} 

/**+********************************** 

AS  IN 

**************************************/ 
else  if  (strcmp (token, "asin" ) --  0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - ASIN; 

) 

/************************************* 

TAN 

*********************«****************/ 
else  if  (strcmp (token, "tan")  — 0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++3  - TAN; 

} 

/*****★**★********★**•***★★★******★★**★ 

ATAN 

**★*•★*★*★★*******★★**★**•***•*****■******/ 
else  if  (strcmp (token, "atan")  — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - ATAN; 

) 

/******************★****************** 

LT 

*.★***********************★***********★/ 
else  if  ( strcmp (token, "<")  ■*  0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - LT; 
Equation  - RHS; 

) 

/************************************* 

GT 

**************************************/ 
else  if  (strcmp (token, ">")  — 0) 

{ 

strcat  (Comp,  token); 

PrevChoice [ChoiceCounter++]  - GT; 
Equation  * RHS; 

) 

/★★a********************************** 

ADD 

♦ Hr************************************/ 

else  if  (strcmp (token, "+*)  ■-  0) 

{ 

strcat  (Comp,  token); 

PrevChoice [ChoiceCounter++]  » ADD; 

} 

/********★*#★*******★**★************** 

SUBTRACT 

**************************************/ 
else  if  (strcmp (token, --  0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - SUBTRACT; 
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MULTIPLY  ******/ 


else  if  (strcmp (token, "*")  --  0) 

{ 

strcat  (Comp,  token) ; 

PrevCboice [ChoiceCounter++3  * MULTIPLY; 

} 

/★a*********************************** 

DIVIDE 

**************************************/ 
else  if  (strcmp (token, "/")  “■  0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - DIVIDE; 

} 

/★*#**#***★****★********************** 

LE 

********,*r**'*f'*,'*^<r'***'»**'*****’***r'*r'*f***'***’/ 

else  if  (strcmp (token, "<-")  — 0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - LE; 

Equation  - RHS; 

) 

/♦a*********************************** 

GE 

a*************************************/ 

else  if  (strcmp (token, ">-")  — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  * GE; 

Equation  * RHS; 

} 

/********★**************************** 

NE 

**************************************/ 

else  if  (strcmp (token, H8”)  « 0 | | strcmp (token, "<>")  « 0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - NE; 

Equation  * RHS; 

} 

/************************************* 

EQ  (in  consequence) 

*********★***********■***********■******/ 

else  if  (strcmp  (token,  "-")  — 0 | l strcmp  (token,  " — — 0) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - EQ; 

Equation  - RHS; 

) 

/************************************* 

L_PAREN 

**************★*****★*★***************/ 
else  if  (strcmp (token,  " (")  — 0) 

{ 

strcat  (Comp,  token); 

PrevChoice (ChoiceCounter++)  * L_PAREN; 
if (FuncParenCount  > 0) 

FuncParenCount++; 

ParenCount++; 

} 

/a************************************ 

R_PAREN 

**************************************/ 
else  if  (strcmp (token, H) ")  — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  * R_PAREN; 

\ y if  (FuncParenCount  > 0) 

FuncParenCount — ; 

ParenCount — ; 

) 

/*********  *****************  *********** 

COMMA 

*********##***************************/ 


{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  “ COMMA; 

} 

/***+********************************* 

SET 

**********»**************************V 
else  if  ( st rcmp {token, "set")  — 0) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - SET; 

Equation  * LHS; 

) 

/***************************** 

NUMBERS  and  VARIABLES 
******************************/ 
else 
( 

/**************************************************** 

Determine  whether  it  was  msid,  signal,  local  and  set 
the  ChoiceCounter  token  history.  If  it's  not  defined 
locally  we  will  assume  it's  a number. 

★ ★★I**************************************************/ 

var_check  (token,  £ local_index,  £global_index,  "null"); 
if  {local  index  >-  0) 

( 

strcat  (Comp,  token) ; 

if  {strcmp  {CompVars [local_index] .class,  "msid")  « 0) 

PrevChoice [ChoiceCounter++]  * MSID; 
else  if  (strcmp  (CompVars [ local_index] . class,  "signal")  *»  0) 
PrevChoice [ChoiceCounter++]  * SIGNAL; 
else  if  (strcmp  (CompVars [ local_index] . class,  "local")  --  0) 

PrevChoice [ChoiceCounter++]  - LOCAL; 

/a*************** ***********  ************************** 

Set  the  type  for  this  comparison  if  on  the  LHS 
******************************************************/ 
if  (Equation  *-  LHS) 

strcpy (CompareType [NumberOfCompares++] , CompVars [ local_ index] .type) ; 

} 

else 

{ 

if  (funcCheck  (token)  !«  ERROR) 

( 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  = FUNCTION; 


) 

else  if  (str_isalnum  (token)  !-  ERROR) 

{ 

strcat  (Comp,  token) ; 

PrevChoice [ChoiceCounter++]  - NUMBER; 

} 

else 

{ 

/*★************************************ 

Flag  the  unknown  token  to  the  user,  if 
it  has  not  been  flagged  before. 

★★■ft************************************/ 

if  (strncmp  (token,  3)  !«  0) 

{ 

strcat  (Comp,  "..."); 
strcat  (Comp,  token) ; 
strcat  (Comp,  "..."); 

) 

else  strcat  (Comp,  token); 

Complnfo [CompNumber] .disposition  = ERROR; 

) 

> 

) /*  end  of  numbers  or  variables  */ 

} /*  end  of  while  loop  */ 

return  (OK) ; /*  We  done  good  buck-a-roo  */ 

/*  end  of  read  tokens  ()  */ 


//*************************w****,pwww^w"wwww* 

SAVE 

Purpose:  Save  is  for  saving  the  Comp  and  its  necessary  files 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  5/15/87 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 


Revised  by: 


Reasons  for  Revision: 


External  Interfaces 


/a****************************************: 

* 

* MODULE  NAME:  save  { show_message  ) 

* 


* 


* MODULE  FUNCTION: 


* Very  minor  changes  to  the  original  NASA  version  of  this  file  were  made  to  modify 

* the  cursor  during  the  save  operation. 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

***********************************★****< >* ********************* **************  + ***/ 


♦include  <stdio .h> 

♦include  <X11/Intrinsic .h> 
♦include  <Xm/Xm.h> 

♦include  "code.h" 

save ( show_message  ) 

int  show_message; 


int  i;  /*  Counter  */ 

char  explain [200] , /*  Text  message  repository  */ 

highLevelFile [PATH_LEN] , /*  Path  for  CODE  lang.  file  */ 
compVarFile [PATH_LENJ , /*  Path  for  comp  variable  file  */ 
groupDatFile [PATH_LEN] ; /*  Path  for  the  [GroupName] .dat  file  */ 

FILE  *f ilePt r,  /*  file  pointers  */ 

♦openFile ( ) ; /*  A handy  file  opening  routine  */ 


select_cursor ( Clock_Cursor  ); 

/* 

* Since  we're  saving,  that  means  the  group  has  been  modified 

* So  we  better  change  the  groups  disposition  to  COPMLETE  and 

* remove  the  old  executable  if  it  had  previously  been  INSTALLED. 

V 


{ 

Grouplnfo [GroupNumber] .disposition  * COMPLETE; 

sprintf {explain,  "rm  -f  Is/ls  2>>/tmp/code . err" , AMGroups,  GroupName); 


system (explain) ; 

) 

/* 

* Let's  rebuild  the  paths  in  case  the  comp  name  has  changed  since 

* our  last  save. 

*/ 

sprint f (highLevelFile,  "Is/ls/ls .h",  CodeGroups,  GroupName,  CompName) ; 
sprintf  (compVarFile,  " %s/%s/%s . vn,  CodeGroups,  GroupName,  CompName); 
sprint f (groupDatFile,  "Is/ls .dat",  AMSupport,  GroupName); 

/* 

* Open  CODE  language  file  and  write  comp. 

*/ 


if  {[(filePtr  - openFile  (highLevelFile,  "w",  "save")  ) ) 
return  (ERROR) ; 


/* 

* Put  the  CODE  language  string  into  it's  file 
V 


fprintf  (filePtr,  "Is",  Comp); 
fclose  (filePtr) ; 

/******************************************* 

Open  comp  variable  file  and  write  variables 
**********************"****  *************  *****/ 

if  ([(filePtr  * openFile  (compVarFile, "w", "save”) ) ) 
return  (ERROR) ; 

/*******•***★*****■'**★********★**■*************■******** 

Write  all  of  the  variables  for  the  comp  with  header 
*********************★★**★★★***★**********★*•********/ 

fprintf  (filePtr,  "#variable_name  type  class  occurrences  put_or_get  lol_limit  lo2_limit  hil_limit  hi2_limit  n 
omenclatureNn") ; 

for  (i-0;  KNumCompVars;  i++) 

{ 

fprintf (filePtr, "%s  %s  Is  Id  Id  If  If  If  If  ls\n", 

CompVars [i] . name, 

CompVars [i] .type, 

CompVars [i] . class, 

CompVars [i] .occurrence, 

CompVars [i] .put _or_get, 

CompVars [ i] . lol_limit, 

CompVars [i] .lo2_limit, 

CompVars [i] .hil_limit, 

CompVars [i] .hi2_limit, 

CompVars [i] .nomenclature) ; 


) 

fclose  (filePtr) ; 

/★★a*************************************** 

Open  the  [GroupName] .dat  file  for  writing 

********************************* *■**★*★**★* j 

if  (! (filePtr  * openFile  (groupDatFile,  "w", "save") ) ) 
return  (ERROR) ; 

/******************************************************* 

Write  all  of  the  group  info  for  the  group  with  header. 
**********************************  *★**•*★★****★********♦★/ 

fprintf  (filePtr,  "#name_name  noise_filter  rate  on_off  disposition\n") ; 
for  (i*0;i  < NumOfComps; i++) 

( 

fprintf  (filePtr, "Is  Id  Id  Id  Id  Id  %s\n",  Complnfo [i] .name, 
CompInfo[i] .noise_f liter, 

Complnfo [i] .rate, 

Complnfo [i] .on_off, 

Complnfo [i] .disposition, 

Complnfo [i] .cycle_mode, 

Complnfo [i] .purpose) ; 


} 

fclose  (filePtr) 


/* 

* Put  the  group  names  into  the  Grouplnfo  file 
*/ 

if  (writeGroupNames ( ) « ERROR) 
return  (ERROR) ; 


/* 

* Tell  the  user  we  have  saved  their  comp. 

*/ 

select_cursor ( Shutt le_Cursor  ); 

if  ( show_message  ) 

{ 

sprintf  (explain,  "%s  has  been  saved",  CompName) 
user__ack(  explain,  HELP_U_ACK  ); 

} 

NeedToSave  * FALSE; 
return  (OK) ; 


) /*  end  of  save  */ 


* Function:  strins 


* Entry  specification: 

* char  *strins ( into,  from) 

* register  char  *into,  *from; 


* Description: 

* This  routine  inserts  a string  into  another  string,  it  is  similar  to  the 

* strcat  found  in  the  C library  (except  strcat  inserts  after) . 


* Inputs: 

* into  Pointer->  target  string 

* from  Pointer->  string  to  insert 

* 

* 

* Returns:  Nothing 


* External  references:  None 

* Resources  used:  None 

* Limitations:  None 

* Assumptions:  None 

* 

* 

* Written  by:  Tom  Silva,  Bruce  G.  Jackson  t Associates 

* 

* Traceability: 

* Version  Date  Description 


* 1.0  09/01/87  initial  version 

* 


* 


* Notes: 

#  — 


None 


V 


char  *strins  (into,  from) 
register  char  *into,  *from; 

i 

register  char  *to; 

register  int  to_sizef  from_size; 

/* 

* Find  the  size  of  both  strings.  Include  the  zero  byte  for  the  size  of 

* the  'into'  string  (the  zero  byte  must  be  moved  with  the  string). 

* Leave  the  pointers  pointing  at  the  zero  bytes  of  the  strings. 

*/ 

for  (from_size  - 0;  *from;  from++,  from_size++) ; 
for  (to  ■ into,  to_size  ■ 1;  *to;  to++,  to_size-M-}  ; 

/* 

* Slide  the  'into'  string  forward  by  copying  it  from  it's  tail  to  it's 

* head.  It  needs  to  be  moved  forward  by  the  number  of  bytes  in  the  'from' 

* string.  Then  copy  the  'from'  string  into  the  open  slot. 

V 

for  (into  * to,  to  +*  from_size;  to_size  > 0;  to — , into — , to_size — ) 

*to  * *into; 

for  (from--;  from_size  > 0;  to — , from — , from_size — ) 

*to  * *from; 

} 
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♦include  <sy3/file.h> 

♦include  <X11/Int rinsic .b> 

♦include  <Xll/StringDef s .h> 

♦include  <X11/Shell .h> 

♦include  <Xm/Xm.h> 

♦include  "code .h" 

♦include  "widgets.h" 


* MODULE  NAME:  token_help(  token,  theMODE,  widget  ) 


* 


* MODULE  FUNCTION: 


* 

* Displays  the  help  text  and  performs  the  LIST  functions. 

★ 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


Timothy  J.  Barton  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


# 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

****************************************< >★**************************************+/ 


void  token_help(  token,  theMODE, 

int  theMODE, 

token; 

Widget  widget; 


char  cmd  [ CMD^LEN 

listStringf  5000  ]; 
int  i; 


widget  ) 


if  ( theMODE  « HELP  ) 

{ 

/* 

* Make  sure  the  documentation  file  exits. 

V 

if  ( access (CodeDocs, F_OK)  — ERROR  ) 

{ 

user_ack ( "Code  documentation  does  not  exist  on  this  machine",  HELP_U_ACK) ; 
return; 

} 

/* 

* Check  token  structure  to  ensure  help  text  exists  for  the  current  token. 

V 

if  ( tokens [ token  ] .help  *■  HELP_TEXT_NO  ) 

{ 

user_ack ( "You  have  chosen  an  undocumented  token,  please  notify  the  developers",  HELP_U_ACK) ; 
return; 

} 

/* 

* Build  a temporary  file  containing  the  help  text  for  the  current  token. 

*/ 


select  cursor ( Clock  Cursor  ); 


token_help.c 


strcpy(  cm d,  "more  +/\C42*"  ) ; 
strcat  { cmd,  tokens!  token  ] .name  ); 
strcat(  cmd,  "\042  H ); 
strcat ( cmd,  CodeDocs  ) ; 

strcat  ( cmd,  ">  /tmp/code . tmp  2>/tmp/code . err" 
if ( system!  cmd  ) !-  OK  } 


) ; 


{ 

se!ect_cursor ( Shuttle_Cur sor  ); 

user_ack { "Error  reading  documentation  file,  help  text  is  not  available",  HELP_U_ACK) 
return; 


} 


select_cursor { Shutt le_Cursor  ); 

/* 

* Clear  the  help  text  buffer,  assign  the  temporary  disk  file  to  the  text 

* widget,  move  the  widget  to  the  middle  of  the  screen,  show  the  help  text 

* popup. 

*/ 


display_f ile ( HELP,  "/tmp/code .tmp"  ); 

/* 

* Delete  the  temporary  file. 

V 


if  ( system("rm  /tmp/code . tmp  >>/tmp/code .err  2>fcl")  !«  OK  ) 

user_ack < "Unable  to  delete:  /tmp/code . tmp  - help  text  temporary  file",  HELP__U_ACK) ; 

} 


/* 

* The  user  wishes  to  list  either:  MSIDs,  signals,  or  user  functions. 
*/ 


else  if  ( theMODE  — LIST  ) 
switch  (token) 

{ 

case  MS ID : if  ( access (MSIDTbl , F_OK)  « ERROR  ) 

user_ack(  "MSID  table  not  found",  HELP_U_ACK  ); 

else 

display_f ile ( LIST,  MSIDTbl  ); 
break; 


case  SIGNAL:  if  { access (SignalTbl, F_OK)  -»  ERROR  ) 

user_ack ( "SIGNAL  table  not  found",  HELP_U_ACK  ); 

else 

display_f ile ( LIST,  SignalTbl  ); 
break; 

case  FUNCTION:  select_cursor ( Clock_Cursor  ); 

strcpy  (liststring,  "\n\tListing  of  User  Functions"); 

strcat  (liststring,  "\n\t \n\n")  ; 

for  (i-0;  KNumberOfUserFuncs;  i++) 

{ 

strcat ( liststring,  n\tn  ); 
strcat(  liststring,  UserFuncs [i] ) ; 
strcat  ( liststring,  "\n"); 

} 

select_cursor { Shutt le_Cursor  ); 
display_str(  LIST,  liststring  ); 
break; 

default:  user_ack("A  listing  is  not  available  for  this  choice",  HELP_U_ACK) ; 

) 


) 


tokens. h 


* FILE  NAME:  tokens. h 

* 

* 


* FILE  FUNCTION: 

* 

* This  file  contains  the  tokens []  array  which  defines  the  following  information  for 

* each  CODE  push  button: 

* 1)  availability  of  help  text 

* 2)  help  text  locater 

* 3)  comp  token  input  function 

* 4)  comp  token  input  function  argument 

* 

* NOTE:  do  not  change  the  order  of  the  structure  elements,  as  they  match  the 

* constants  defined  in:  code_const .h 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* 

* FILE  MODULES: 


* N/A 


< > 


7 


struct  token_tag  tokens []  - { 


{ 

"TOC", 

HELP 

_TEXT_ 

YES, 

NULL, 

NULL 

), 

{ 

"CREATE", 

help" 

’text’ 

"yes. 

NULL, 

NULL 

), 

{ 

"EDIT", 

help" 

"text] 

'yes. 

NULL, 

NULL 

), 

{ 

"DELETE", 

help" 

"text] 

'yes. 

NULL, 

NULL 

>, 

{ 

"IF", 

help" 

’text’ 

'yes. 

(*put_if) , 

NULL 

}, 

{ 

"ELSE", 

help] 

’text’ 

"yes. 

(*put_else) , 

NULL 

}, 

{ 

"AND", 

help' 

]text] 

"yes. 

(*put_and) , 

NULL 

), 

{ 

"BITx" , 

help' 

’text’ 

"no. 

{*put_bitXor) , 

NULL 

}, 

{ 

"BITa* , 

help" 

‘text’ 

"no, 

(*put_bitAnd) , 

NULL 

>, 

{ 

"THEN", 

help" 

’text 

"yes. 

{ "put_then)  , 

NULL 

), 

{ 

"ENDIF" , 

help" 

"text] 

]yes. 

( *put_endif ) , 

NULL 

}, 

{ 

"OR", 

help" 

’text’ 

’yes. 

(*put_or) , 

NULL 

}, 

{ 

"NOT", 

help' 

’text’ 

'yes, 

{ *put_not ) , 

NULL 

}, 

{ 

"BITo", 

help" 

’text" 

’no. 

{ *put_bit0r)  , 

NULL 

), 

{ 

"MS ID", 

help" 

]text] 

]yes. 

{*put_m3id)  , 

NULL 

}, 

{ 

"LOCAL", 

help" 

’text" 

'yes. 

(*put_local)  , 

NULL 

}, 

{ 

"STRING", 

help" 

’text" 

]no. 

(*put_string)  , 

NULL 

}, 

{ 

"SIGNAL", 

help' 

’text" 

’yes. 

( *put_signal)  , 

NULL 

), 

{ 

"NUMBER", 

help' 

’text] 

’yes. 

(*put_number)  , 

NULL 

), 

{ 

"SHORT", 

help' 

’text" 

’no. 

NULL,“ 

NULL 

), 

{ 

"FLOAT", 

help] 

’text" 

’yes. 

NULL, 

NULL 

}, 

{ 

"CHAR", 

help' 

’text' 

’no. 

NULL, 

NULL 

), 

{ 

"INTEGER", 

help' 

'text' 

’yes. 

NULL, 

NULL 

}, 

{ 

"DOUBLE", 

help' 

’text" 

"yes. 

NULL, 

NULL 

}, 

{ 

"EQ", 

help' 

‘text’ 

]no. 

(*put_eq) , 

NULL 

}, 

{ 

"NE", 

help' 

text' 

no, 

(*put_ne)  , 

NULL 

}, 

{ 

"LE", 

help' 

'text] 

'no, 

{"put_le)  , 

NULL 

}, 

{ 

"GE", 

help' 

‘text' 

'no, 

("put_ge) , 

NULL 

}, 

{ 

"LT", 

help' 

text' 

’no, 

(*put_lt ) , 

NULL 

}, 

{ 

"GT", 

help' 

’text' 

’no, 

(*put_gt ) , 

NULL 

}, 

{ 

"SET", 

help' 

text' 

'yes, 

(*put_set)  , 

NULL 

}, 

{ 

"PRINT", 

help' 

text' 

’yes, 

(*put_print ) , 

NULL 

}, 

{ 

"FUNCTION", 

help' 

'text" 

'yes. 

(*put_func) , 

FUNCTION 

{ 

"COMMENT", 

help’ 

text' 

’yes. 

{ *put_comment ) , 

NULL 

}, 

{ 

"START", 

help' 

text' 

"no. 

{ "put  start ) , 

NULL 

}, 

{ 

"STOP", 

help' 

’text' 

’no. 

("put  stop). 

NULL 

}, 

{ 

"RETRIEVE", 

help' 

’text' 

’yes. 

NULL, 

NULL 

}, 

{ 

"SAVE", 

help' 

’text' 

’yes, 

NULL, 

NULL 

}, 

{ 

"INSTALL", 

help' 

’text' 

"yes. 

NULL, 

NULL 

), 

{ 

"COPY", 

help' 

’text' 

"no. 

NULL, 

NULL 

), 

{ 

"REMOVE", 

help' 

"text" 

"yes. 

NULL, 

NULL 

), 

{ 

"HARDCOPY", 

help' 

’text’ 

’yes. 

NULL, 

NULL 

}, 

{ 

"BACKUP", 

help' 

’text’ 

’yes. 

NULL, 

NULL 

}, 

( 

"QUIT", 

help' 

"text" 

’yes, 

NULL, 

NULL 

}, 

{ 

"HELP", 

help' 

"text 

"yes. 

NULL, 

NULL 

}, 

tokens  .h 


{ '"LIST", 

{ " + " 

J N.« 

{ 

( "/" 

{ 

{ ">' 

{ V 
{ 

{ 


'PI”, 

'SQRT”, 

{ "POWER", 

{ "EXP", 

{ "LOG", 

{ "shiftL", 

{ "shiftR", 

{ "COS", 

{ "SIN", 

{ "TAN", 

{ "ACOS", 

{ "ASIN”, 

{ "ATAN", 

{ NULLS, 

{ NULLS, 

{ NULLS, 

{ NULLS, 

{ NULLS, 

{ NULLS, 

{ NULLS, 

( NULLS, 

{ NULLS, 

{ NULLS, 

{ NULLS, 

{ NULLS, 

{ NULLS, 

{ NULLS, 

{ "Group-Comp", 
{ "Group-Sel", 

{ "Comp-Sel", 

{ "Set-Fonts", 

{ "User-Ack", 

{ "Help-Help", 

{ "Help-Device" 


HELP 

HELP" 

help" 

help" 

help" 

help" 

help" 

help" 

help" 

help' 

help" 

help; 

help" 

help" 

help; 

help" 

help" 

help 

help" 

help" 

help" 

help^ 

help" 

help" 

help" 

help' 

help' 

help; 

help" 

help" 

HELP- 

HELP 

HELP 

HELP 

help' 

help' 

help 

help 

help’ 

HELP 

help' 
, help 


TEXT 

text" 

text" 

text] 

text] 

'text] 

'text" 

]text] 

’text] 

]text 

’text 

]text 

‘text 

]text 

"text 

]text 

"text 

]text 

’text 

’text 

'text 

’text 

’text 

’text 

’text 

]text 

’text 

’text 

"text 

’text 

"text 

'text 

"text 

text 

‘text 

’text 

‘text 

’text 

’text 

’text 

text 

’text 


YES, 

"no, 

"no, 

NO, 

"no, 

NO, 

"no, 

'no, 

"no, 

]no, 

no, 

'no, 

]no, 

]no, 

]no, 

]no, 

]no, 

]no, 

’no, 

]no, 

_no, 

’no, 

"no, 

"no, 

’no, 

'no, 

’no, 

’no, 

’no, 

'no, 

'no, 

'no, 

'no, 

_no, 

_NO, 

YES, 

’yes, 

_YES , 
_YES, 
YES, 

‘yes, 

YES, 


NULL, 
<*put_ 
(*put_ 
(*put_ 
(*put_ 
( *put 
<*put 
<*put 
{ *put_ 
(*put_ 

( *pUt_ 

{*put_ 

(*put_ 

{*put 

{ *put_ 

(*put_ 

(*put_ 

( *put 

(*Put; 

(*put^ 

(*put 

NULL," 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 


add)  , 

subtract) , 
multiply) , 
divide) , 
l_paren)  , 
r_paren) , 
comma) , 
pi)  / 
func)  , 
func)  , 
func)  , 
func)  , 
shiftL)  , 
shiftR)  , 
_func)  , 
_func)  , 
_func)  , 
_func)  , 
func) , 
func) , 


NULL  }, 

NULL  }, 

NULL  }, 

NULL  }, 

NULL  }, 

NULL  ), 

NULL  ), 

NULL  ), 

NULL  }, 

SQRT  } , 

POWER  ), 

EXP  ) , 

LOG  } , 

NULL  ) , 

NULL  } , 

COS  ), 

SIN  }, 

TAN  }, 

ACOS  } , 

ASIN  ), 

ATAN  },  /*  #65  */ 
NULL  ) , 

NULL  ) , 

NULL  } , 

NULL  ) , 

NULL  ) , 

NULL  } , 

NULL  } , 

NULL  } , 

NULL  } , 

NULL  ) , 

NULL  } , 

NULL  } , 

NULL  } , 

NULL  } , 

NULL 
NULL 
NULL  } , 

NULL  } , 

NULL  > , 

NULL  } , 

NULL  } , 


},  /*  #80  */ 

}, 


transiate.c 


TRANSLATE 


Puprose:  Translate  takes  the  "Higher  Level*  language  comp 

and  creates  a C file  which  is  compatible  with  the 
INCO  Algorithm  Manager  group/comp  format.  This 
routine  figures  out  the  spacing  for  the  C file, 
so  as  to  remove  a depency  from  the  "Higher  Level" 
comp  file. 


Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 


Date:  7/6/87 


Version : 1.0 

Project:  INCO  Expert  System  Project 

Revised  by: 
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External  Interfaces 


/★★*********************************************************** 
Include  files 

********************************************** ***************/ 
♦include  <stdio.h> 

♦include  <ctype.h> 

♦include  <string.h> 

♦include  <X11/Intrinsic.h> 

♦include  <Xm/Xm.h> 

/ ♦include  "code.h" 


/****************•*******************♦************************* 

Translate 

*********************************************♦*****************/ 
translate  (compName,  CompVars,  numCompVars) 

char  compName [];  /*  The  name  of  the  comp  to  translate  */ 

struct  var_struct  CompVars [];  /*  Structure  containing  the  comp  variable  defs  */ 

int  numCompVars;  /*  The  number  of  comp  variable  in  the  structure  */ 

{ 

FILE  *ptr;  /*  Just  a plain  old  file  pointer  */ 


int  complndex,  /* 

tokenlndex,  /* 
clanglndex,  /* 
spacelndex,  /* 
equation,  /* 

numberOflfs,  /* 
numberOfEndifs,  /* 
numberOfPrint s,  /* 
numberOfSets, 
lastToken, 
if 

f ltColor, 
givenHead, 
varlndex, 
rellndex, 
varClass, 
charlndex, 
whereAml, 
numToken, 
sigShort Array Size, 
siglntArraySize, 
sigFloatArraySize, 
sigDoubleArraySize, 
sigUnsignedArraySize, 
sigLongArraySize, 
sigOffShortArraySize, 
sigOf flntArraySize,  / 
sigOf fFl oat Arrays ize. 


Index  to  the  CODE  lang.  comp  string  */ 
Index  to  an  individual  token  */ 

Index  to  the  C lang.  comp  */ 

Index  to  spacesEtAl  */ 

Similar  to  global  equation  in  code.h  */ 
The  number  of  if  we  have  parsed  */ 

The  number  of  endifs  we  have  parsed  */ 
The  number  of  print  we  have  parsed  */ 


/*  The  number  of  sets  we  have  parsed  */ 

/*  Indicates  the  previous  token  type  */ 

/*  Simple  counters  */ 

Used  for  parsing  the  fault  color  number  out  of  the  msg  */ 
TRUE  after  we  have  processed  the  comp  header  */ 

The  index  value  set  in  the  function  getVarlndex  */ 

The  relative  index  of  an  MSID  used  In  getVarlndex  */ 

The  return  value  from  the  function  getVarlndex  */ 

The  index  of  the  characters  for  a variable  in  a print  str 
The  local  version  of  the  one  defined  in  code.h  */ 

/*  TRUE  if  the  first  token  has  been  found  */ 


/* 

/* 

/* 

/* 

/* 

/* 


/* 

/* 

/* 

/* 

/* 

/* 

/* 


The 

The 

The 

The 

The 

The 

The 


The 


structures  for  noise 
structures  for  noise 
structures  for  noise 
structures  for  noise 
structures  for  noise 
structures  for  noise 
size  of  the  array  of  structures  for  noise 
size  of  the  array  of  structures  for  noise  filter  output  */ 
The  size  of  the  array  of  structures  for  noise  filter  output 


size 

size 

size 

size 

size 

size 


of  the  array  of 
of  the  array  of 
the  array  of 
the  array  of 
the  array  of 
the  array  of 


of 

of 

of 

of 


filter  output 
filter  output 
filter  output 
filter  output 
filter  output 
filter  output 
filter  output 


V 

V 
*/ 
*/ 
*/ 

V 

V 


translate.c 

sigOf fDoubieArraySize,  /*  The  size  of  the  array  of  structures  for  noise  filter  output 
sigOffUnsignedAr ray Size,  /*  The  size  of  the  array  of  structures  for  noise  filter  output 
sigOffLongArraySize,  /*  The  size  of  the  array  of  structures  for  noise  filter  output 
sigOffStringArraySize,  /*  The  size  of  the  array  of  structures  for  noise  filter  output 
sigStringArraySize;  /*  The  size  of  the  array  of  structures  for  noise  filter  output  */ 


char  clangVersion [MAX_COMP_LEN] , /*  A string  to  hold  the  comp's  C language  version  */ 

/*  A string  to  hold  a token  V 

/*  Path  for  C language  file  */ 

/*  The  all  important  string  for  holding  the  comp  string  */ 
What  would  life  be  without  a few  transient  strings  */ 

Dito  my  older  brother  */ 

/* 


token [500] , 
compName_c [PATH_LEN]  , 
comp [MAX_COMP_LEN] , 
tmpl [169] , / 

tmP2[169],  / 

msgString [169] , 
varString [MAX_VAR_LEN] , 
lastVarType [TYPE_LEN] , 
strOperator [4] , 
compHeader [ 1000 ] , 
endstring [250] , 
amSprint f ing;  /* 


What  would  life  be  without  a few  transient  strings  */ 
/*  The  string  for  pulling  vars  from  prints  */ 

/*  The  type  of  the  last  found  variable  */ 

/*  The  operator  used  with  a string,  usually  — or  !«  */ 
/*  Temporary  storage  for  the  comp's  header  */ 

/*  Used  to  store  variable  names  in  formatted  prints  */ 
Flag  used  to  know  if  inside  a sprintf  statement  */ 


/* 

* Read  the  comp  into  the  string  comp 
*/ 

if  (readCODEFile (compName,  comp)  — ERROR) 

sprintf (msgString, "Install : There  was  a problem  reading  the  CODE  file  for  %s", compName) ; 
user_ack (msgString,  HELP_U_ACK) ; 
return (ERROR) ; 

} 

/**************************************************** 

Initialize  some  soon-to-be-used  variables 
************ ***************** *******  ******  ***********/ 

sigShortArraySize  - siglntArraySize  - sigFloatArraySize  - sigLongArraySize  - 0; 
sigDoubleArraySize  - sigUnsignedArraySize  - sigStringArraySize  - 0/ 
sigOf f Short ArraySize  - sigOf f Int ArraySize  * sigOf fFloat ArraySize  - 0; 
sigOffDoubleArraySize  - sigOf fUnsignedArraySize  - sigOffStringArraySize  - 0; 
numberOflfs  - complndex  - clanglndex  - givenHead  * sigOffLongArraySize  - 0; 
numToken  - numberOfEndif s * numberOfSets  - numberOfPrints  ■ spacelndex  - 0; 
clangVersion [0]  - compHeader [0]  • 0; 
amSprintfing  * FALSE; 

/*****************  *********************************** 

Loop  through  the  CODE  language  string,  translating 
tokens  to  C,  until  the  end  of  the  string  is  reached. 
*****************************************************/ 

do 

{ 

y********************************************** 

Yank  out  the  control  characters  and  spaces, 
we  don't  care  about  them  spaces  and  such. 

***********************************************/ 
yankBlank  (comp,  tcomplndex) ; 

/********************************************** 

YANK  A TOKEN  out  of  the  Comp's  string.  Tokens 
are  delimited  by  spaces,  tabs,  or  line  feeds. 
***********************************************/ 
yankToken  (comp,  ficomplndex,  token,  stokenlndex) ; 

/********************************************** 

Now  the  real  fun  starts.  Match  the  token  we 
just  yanked  with  the  allowable  set  of  CODE 
tokens  and  translate  appropriatly . 

********************************************** 

COMMENTS 

***********************************************/ 
if  (strncmp (token,  2)  ««  0) 

{ 

/******************************************************** 

If  this  comment  is  not  complete  we  need  to  get  the  rest. 
*********************************************************/ 
if  (token [strlen (token) -1]  !*  '/') 

{ 

token [tokenlndex]  « comp [complndex] ; 

while  ( ! (comp [complndex-l]  »*  it  comp [complndex]  « '/')) 

token [tokenIndex++]  - comp [compIndex++] ; 
token [tokenIndex++]  * comp [comp!ndex++] ; 


sprintf  (compHeader,  "%s\n%s <) \n ( ",  token,  compName) ; 


givenHead  * TRUE; 

) 

/*********************♦************************************* 
Else  add  the  comment  token  to  the  end  of  the  C lang.  string. 
*******************#****************************************/ 
else  street  (clangVersion,  token); 

lastToken  - COMMENT; 

} 

/-ik************************************ 

IF 

**************************************/ 
else  if  {stremp (token, "if")  ■■  0) 

( 

numberOf If s++; 

/******************************************** 

Cat  a 9 to  close  off  the  last  statement 

★ Hr*******************************************/ 

if  (lastToken  — MSID  ) { lastToken  --  R_PAREN) 
streat  (clangVersion,  ";"); 
streat  (clangVersion,  "\n"); 

for  (i-0; i< (numberOf If s - numberOfEndifs) ; i++) 
streat  (clangVersion,  "\t")  ; 
/*★****★*****★**★★★★★★★*★**★★** ************ 

Put  in  a second  left  paren  to  suround  the 
comparitors  and  ensure  proper  precedence 
****************************************★**/ 
streat  (clangVersion,  "if  ( (")  ; 
lastToken  - IF; 
whereAml  - PREMISE; 
equation  - LHS; 

) /*  end  of  IF  V 

/************************************* 

ENDIF 

*******  *******************************  f 

else  if  (stremp (token, "endif")  — 0) 

{ 

/******************************************** 

Cat  a to  close  off  the  last  statement 
*,********************************************/ 
streat  (clangVersion,  ";\n"); 
for  (i-0; i<  (numberOf  If s -numberOf Endif s) ; i++) 
streat  (clangVersion,  "\t"); 
streat  (clangVersion,  "}"); 
lastToken  * END_IF; 
numberOfEndif s++; 

} 

/************************************* 

THEN 

**************************************/ 
else  if  (stremp (token, "then")  — 0) 

{ 

^**************************** ****** 

Figure  out  and  set  the  indentation 
***********************************/ 
streat  (clangVersion,  " ) )\n"); 
for  (i-0; i< (numberOf Ifs-numberOfEndifs) ; 1++) 
streat  (clangVersion,  "\t"); 
streat  (clangVersion, 
equation  * LHS; 
whereAml  - CONSEQUENCE; 
lastToken  - THEN; 

) 

/************************************* 

ELSE 

**************************************/ 
else  if  (stremp (token, "else")  --  0) 

{ 

/********************************** 

Figure  out  and  set  the  indentation 
***********************************/ 
streat  (clangVersion,  ";\n"); 
for  (i-0; i< (numberOf If s-numberOfEndifs) ;i++) 


translates  ; 

strcat  (clangVersion,  n\t") ; 
strcat  (clangVersion,  "}\n"); 
for  (i-0; i< (numberOf If s-numberOfEndif s) ; i++) 
strcat  (clangVersion,  "\t  ”) ; 
strcat  (clangVersion,  "else\n"); 
for  (i*0; i< (numberOf If s-numberOfEndif s) ; i + + ) 
strcat  (clangVersion,  "\t") ; 
strcat  (clangVerslon, 
equation  - LHS; 
lastToken  * ELSE; 

} 

/*★*********************************** 

OR 

**************************************/ 
else  if  (strcmp (token, "or")  « 0) 

{ 

strcat  (clangVerslon,  " ) II  {") ; 
equation  * LHS; 
lastToken  * OR; 

} 

/************************************* 

POWER 

**************************************/ 
else  if  (strcmp (token, "power")  — 0) 

( 

strcat  (clangVersion,  " pow") ; 
lastToken  - POWER; 

} 

/★a******************** *************** 

EXP 

***********************  ********  *******/ 
else  if  (strcmp (token, "exp")  -»  0) 

{ 

strcat  (clangVerslon,  " exp"); 
lastToken  - EXP; 

} 

/************************************* 

BITOR 

**************************************/ 
else  if  (strcmp (token, "bitOr")  — 0) 

( 

strcat  (clangVersion,  " i"); 
lastToken  - BITOR; 

) 

/************************************* 

BITAND 

**************************************/ 
else  if  (strcmp (token, "bitAnd")  — 0) 

( 

equation  ■ LHS; 

strcat  (clangVersion,  " 4") ; 

lastToken  - BITAND; 

) 

/************************************* 

BITXOR 

**************************************/ 

else  if  (strcmp (token, "xor")  --  0 | i strcmp (token,  "bitXor") 

{ 

equation  ■ LHS; 

strcat  (clangVersion,  * **) ; 

lastToken  * BITXOR; 

} 

/************************************* 

AND 

**************************************/ 
else  if  (strcmp (token, "and")  »■  0) 

( 

equation  - LHS; 

/**************************************** 

The  following  is  conditional  to  support 
an  older  syntax  which  had  ' and' s in  the 
CONSEQUENCE 

★a********#******************************/ 
if  (whereAml  PREMISE) 

strcat  (clangVersion,  " ) 44  ("); 
lastToken  * AND; 

} 

/************************************* 


else  if  (strcmp (token, "not*}  — 0) 
{ 

street  (clangVersion,  "!“); 


lastToken  - NOT; 


else  if  {strcmp (token, "<>")  — 0 | t strcmp (token, " 8” ) « 0) 

< 

if  (strcmp  ( lastVarType,  "char")  !»  0) 


streat  (clangVersion,  " I*"); 
else  strepy  (strOperator,  " !■"); 
equation  * RHS; 


else  if  (strcmp (token, "+")  -*  0) 

{ 

if  (strcmp  ( lastVarType,  "char")  «■  0 | | varClass  STRING) 
streat  (clangVersion, 
else  streat  (clangVersion,  " +H) ; 


else  if  (strcmp (token, — 0) 
{ 

streat  (clangVersion,  " ; 

lastToken  - SUBTRACT; 


MULTIPLY 


else  if  (strcmp (token,  "*") 


streat  (clangVersion,  " *"); 
lastToken  - MULTIPLY; 


translated 

else  if  (strcmp  (lastVarType,  "char")  !»0) 
strcat  (clangVersion,  n *") ; 
else  strcpy  (strOperator,  n *"); 
equation  * RHS; 
lastToken  * EQ; 

} 

/********************************  ***** 

GT 

a*************************************/ 
else  if  (strcmp (token, ">")  — 0) 

{ 

if  (strcmp  (lastVarType,  "char")  !-  0) 
strcat  (clangVersion,  " >") ; 
else  strcpy  ( strOperator,  " >"); 
equation  * RHS; 
lastToken  - GT; 

) 

/**************★********************** 

GE 

**************************************/ 
else  if  (strcmp (token, — 0) 

{ 

if  (strcmp  (lastVarType,  "char")  !-  0) 
strcat  (clangVersion,  n >-")  ; 
else  strcpy  (strOperator,  " 
equation  * RHS; 
lastToken  - GE; 

} 

/************************************* 

LT 

**************************************/ 
else  if  (strcmp (token, "<")  — 0) 

{ 

if  (strcmp  (lastVarType,  "char")  !-  0) 
strcat  (clangVersion,  " <"); 
else  strcpy  (strOperator,  " <"); 
equation  * RHS; 
lastToken  - LT; 

) 

/************************************* 

LE 

************************************★*/ 
else  if  (strcmp (token, --  0) 

{ 

if  (strcmp  (lastVarType,  "char")  !■  0) 
strcat  (clangVersion,  " <-") ; 
else  strcpy  (strOperator,  " <»"); 
equation  * RHS; 
lastToken  - LE; 

} 

/************************************* 

SHIFTL 

**************************************/ 
else  if  (strcmp (token, "shiftL")  ««  0) 

{ 

strcat  (clangVersion,  " <<"); 
lastToken  - SHIFTL; 

} 

/************************************* 

SHIFTR 

**************************************/ 
else  if  (strcmp (token, "shiftR")  — 0) 

{ 

strcat  (clangVersion,  " >>"); 
lastToken  - SHIFTR; 

) 

/************************************* 

LEFT  PAREN 

**************************************/ 
else  if  (strcmp (token, " (")  ■-  0) 

( 

strcat  (clangVersion,  " ("); 
lastToken  - L_PAREN; 

) 

/************************************* 

RIGHT  PAREN 

************♦*************************/ 
else  if  (strcmp (token, ") ")  ~ 0) 


strcat  (clangVersion,  " )"); 
lastToken  - R^PAREN; 

} 

/************************************* 

SET 

**********★**★*★**********************/ 
else  if  (strcmp (token, "set")  — 0) 

{ 

if (!  (lastToken  »-  THEN  M lastToken  — ELSE  I I lastToken  — END_IF)  it 
(numberOfSets  > 0 | I numberOfPrint s > 0) ) 
strcat (clangVersion, 
lastToken  - SET; 
whereAml  - CONSEQUENCE; 
equation  * LHS; 
numberOfSet s++; 

) 

/******************************* 

PRINT 

********************************/ 

else  if  (strncmp (token,  "print",  5)  — 0) 

{ 

/*********************************************** 

Put  a semi-colon  after  the  last  line  if  need  be 
************************************************/ 

if ((! (lastToken  --  THEN  ||  lastToken  — ELSE  ||  lastToken  — END_IF) ) it 
(numberOfSets  > 0 I I numberOfPrint s > 0)  ) 
strcat (clangVersion, 

/************************************ 

Pull  the  fault  class  number 
******************************★******/ 
tmpl [0] -token [5] ; 
tmpl [1] -0; 

fltColor  - atoi (tmpl) ; 

comp!ndex++;  /*  Dispose  of  a space  */ 
tokenlndex  - 0;  /*  Start  again  for  the  message  */ 
endstring [0]  - 0; 
varString[0]  - 0; 

/************************************ 

Get  the  first  double  quote  then  loop 
until  we  find  the  second. 

♦a***********************************/ 

token [tokenIndex++]  - comp [compIndex++] ; 
do 
’{ 

token [tokenIndex++]  - comp [compIndex++] ; 
/*★********************************************************** 

Break  off  here  to  process  variables.  Yes  its  true  that 
variables  should  be  preceded  by  a '%'  to  be  recognized  here. 
*************************************************************/ 
if  (comp [compindex-l]  — '%') 

( 

/*************************************** 

Get  the  whole  variable 
****************************************/ 
char Index  * 0; 

while  ( (comp [complndex]  >-  'a'  £4  comp [complndex]  <-  'z')  || 

(comp [complndex]  >-  ' A'  it  comp (complndex]  <»  'Z')  || 
(comp [complndex]  >-  #0'  £&  comp [complndex]  <-  '9')  M 
comp [complndex]  — '_') 

varString [charlndex++]  - comp [compIndex++] ; 
varString [charlndex]  - 0; 

upper  (varString) ; /*  Convert  to  upper  case  */ 
/*************************************************** 

Use  getVarlndex  to  find  out  the  class  and  index 
***************************************************★/ 
if  ( (varClass  - getVarlndex (varString, CompVars, 

numCompVars, £ varlndex, trellndex) ) !-  ERROR) 

{ 

/******************************* 

Determine  the  var.  type 
********************************/ 
if  (CompVars [varlndex] .type [0]  — 's') 
token [tokenIndex++]  « 'h'; 
else  if  (CompVars [varlndex] . type [0]  — 'c') 
token [tokenIndex++]  - 's'; 
else  if  (CompVars [varlndex] . type [0]  — ' f ' ) 
token [tokenIndex++]  - ' f ' ; 


translates 

else  if  (CompVars [varlndex] .type [0]  -»  'i') 
token [tokenIndex++]  * 'd'; 
else  if  (CompVars [varlndex] . type [0]  'd') 

{ 

token [tokenIndext+]  » '1'; 
token [tokenIndex++]  » 9 f ' ; 

} 

else  /*  Don't  know  this  type  */ 

sprint f (msgString,  "Translate:  '%s'  has  unknown  type  '%s';  aborting  translation... 

f varString,  CompVars [varlndex] . type) ; 

user_ack (msgSt r ing,  HELP_U_ACK) ; 
return  (ERROR) ; 

} 

/**************************************** 

MSIDs  require  an  array  call  with  index 
******#**********************************/ 
if  (varClass  — MSID) 

( 

sprint f (tmpl , " value [%d]",  rellndex) ; 
strcat  (endString,  tmpl); 

/a************************************* 

Add  a comma  expecting  another  variable 
***************************************/ 
strcat  (endstring, 

} 

/*************************************** 

SIGNALS  £ locals  can  just  be  appended 
****************************************/ 
else  if  (varClass  -■  SIGNAL  i | varClass  LOCAL) 

{ 

strcat  (endstring,  varString) ; 

/************************************** 

Add  a comma  expecting  another  variable 
***************************************/ 
strcat  (endstring, 

) 

else 

{ 

sprintf  (msgString,  "%s  is  an  unknown  variable  to  comp  %s.n,  varString,  compName)  ; 
user_ack (msgString,  HELP_U_ACK) ; 
strcat  (clangVersion,  varString); 


} 

) /*  end  of  variables  */ 

} while  (comp [complndex-l] ; 
token [tokenlndex]  - 0; 

/**************************************** 

Remove  the  last  comma  from  the  endstring 
*****************************************/ 
endString [strlen (endString) -1]  - 0; 

/★★★★★★★♦★★♦Hr************************ 

Let's  do  some  pretty  formatting 
*************************************/ 
strcat  (clangVersion,  "Nn") ; 

for  ( i-0; i< (numberOf If s - numberOfEndifs) +1;  i*-+) 
strcat  (clangVersion,  “\t") ; 

/************************************ 
sprintf  the  faultstring 
*************************************/ 
if  (endString [0}  — 0) 

sprintf (tmpl, "sprintf (faultstring, %s) ;\n",  token) ; 
else  /*  we  got  I's  in  the  print  string  to  add  */ 
sprintf (tmpl, "sprintf (fault St ring, %s, %s) ; \n",  token,  endstring) ; 
strcat  (clangVersion,  tmpl) ; 

/************************************* 

Let's  do  some  pretty  formatting  again 
**************************************/ 
for  ( i»0; i< (numberOf If s - numberOfEndif s) +1 ; i++) 
strcat  (clangVersion,  "\t")  ; 

/************************************* 

Now  issue  the  fault  message 
**************************************/ 

sprint f (tmpl, " fltmsg_issue_NF  (faultstring,  %d,  %d,  nf [nf_index] , faultSt ruct ) " , fltColor,  numberOfP 

ints)  ; 

strcat  (clangVersion,  tmpl) ; 

/**************************************************** 

Increment  the  number  of  fault  messages  for  this  comp 


■ translates 

*******  **********★***■********************************/ 

numberOfPrint s++; 

/A************************************* 

Set  the  last  token  to  PRINT 
***************************************/ 
lastToken  - PRINT; 

} 

/************************************************************ 

VARIABLES 

Right  away  we  make  a call  to  getVarlndex  to  determine  wheter 
the  token  is  a variable,  number  of  char  string.  If  it  is 
we  proceed,  otherwise  goodbye. 

♦a***********************************************************/ 

else  if { (varClass*getVar Index (token, CompVars, numCompVars, & varlndex, firellndex) ) !=ERROR) 

{ 

tmpl [ 0 ] - 0; tmp2 [0]  - 0;/*  empty  tmpl,tmp2  */ 

/* 

* If  the  previous  token  was  a set,  then  let's  indent 

V 

if  ( lastToken  — SET) 

( 

/* 

* If  the  type  is  char  then  we  will  be 

* sprintf'ing,  otherwise  not. 

*/ 

if (CompVars [var Index] .type [ 0 ] »«' c'  | I varClass»«STRING) 
amSprintfing  * TRUE; 
else  amSprintfing  - FALSE; 


/****************************************** 
If  we  are  setting  a SIGNAL,  then  increment 
the  size  of  the  array  of  structures  for 
signals  of  this  type. 

*******************************************/ 


if  (varClass  « SIGNAL) 

( 

if  (CompVars [varlndex] .type [0]  -■  's') 
sigShortArraySize++; 
else  if  (CompVars [varlndex] .type [0]  — 
sigIntArraySize++; 

else  if  (CompVars [varlndex] .type [0]  — 
sigFloatArraySize++; 
else  if  (CompVars [varlndex] .type [0]  « 
sigDoubl«ArraySize++; 
else  if  (CompVars [varlndex] . type [0]  ■■ 
sigLongArraySize++; 

else  if  (CompVars (varlndex] .type [0]  — 
sigUnsignedArraySize++; 
else  if  (CompVars [varlndex] .type [0]  « 
sigStringArraySize++; 

else 


/*  short  */ 


* i' ) 

/* 

int  */ 

'f') 

/* 

float  */ 

'd') 

/* 

double  V 

'1') 

/* 

long  V 

'u' ) 

/* 

unsigned  */ 

'c') 

/* 

string  */ 

( 

sprintf  (msgString,  "Translate:  %s  was  of  unknown  type 
CompVars [varlndex] .type) ; 

user_ack (msgString,  HELP_U_ACK) ; 
return  (ERROR) ; 

} 

) 

strcat  (clangVersion,  *\n") ; 

for  (i-0; i< (numberOflfs  - numberOfEndif s) +1; i++) 
strcat  (clangVersion,  "\t"); 

} 

else  strcat  (clangVersion,  * H) ; 


' %s' . . .Aborting  translation", token 


/* 

* STRINGS  (embedded  variables  handled  with  %) 

*/ 

if (varClass  -*  STRING  ££  token [strlen (token) -1]  !*  '*') 

{ 

do  /*  Grab  chars  until  the  double  quote  */ 

( 

token [tokenIndex++]  * comp [compIndex++] ; 
/************************************************************ 
Break  off  here  to  process  variables.  Yes  its  true  that 
variables  should  be  preceded  by  a to  be  recognized  here. 

*************************************************************/ 
if  (comp [complndex-l]  » '%') 

( 


translate.c 

/ *************************************** 

Get  the  whole  variable 
**★*********************★***************/ 
char Index  - 0; 

while { (comp [complndex]  >-' a' t&comp [complndex] <-' z' ) I I 

{comp [comp Index]  >*'  A' i & comp [complndex] <=' Z' ) II 
(comp [complndex]  > = ' 0 'i ficomp [complndex] <■' 9* ) I I 
comp [complndex]  ■« 

varSt ring [char Index++]  * comp [compIndex++] ; 
varString [charlndex]  * 0; 

upper  (varString);  /*  Convert  to  upper  case  */ 
/★*****♦***★******★********************************* 

Use  getVarlndex  to  find  out  the  class  and  index 

★ I***************************************************/ 

if  { (varClass  = getVarlndex (varSt ring, CompVars, 
numCompVars, fcvarlndex, fcrellndex) ) ! = ERROR) 

{ 

/******************************* 

Determine  the  var.  type 
***★******★★*★********■**********/ 


varString, 


if  (CompVars [varlndex] .type [0]  **  's') 
token [tokenIndex++]  * * d' ; 
else  if  (CompVars [varlndex] .type [0]  « ' cr ) 
token [tokenIndex++]  * ' s' ; 
else  if  (CompVars [varlndex] . type [0]  **  ' f ' ) 
token [tokenIndex++]  * * f ' ; 
else  if  (CompVars [varlndex] . type [0]  « ' i' ) 
token [tokenIndex++]  ■ 'd'; 
else  if  (CompVars [varlndex] .type [0]  ■-  #d') 
{ 

token [tokenIndex++]  - * 1' ; 
token [token!ndex++]  - ' f ' ; 


} 

else  /*  Don't  know  this  type  */ 

( 

sprint f (msgString,  "Translate:  '%s'  has  unknown  type 

CompVars [varlndex] .type) ; 

user_ack (msgString,  HELP_U_ACK) ; 
return  (ERROR) ; 


} ^ ■**«*****»* 

MSIDs  require  an  array  call  with  index 


' %s' 


aborting  translation 


if  (varClass  — MSID) 

( 

/* 

* comma  delimits 

V 

sprintf (tmpl,  * value [%d],w,  rellndex) ; 
strcat  (endstring,  tmpl); 

) 

/******★******************************** 

SIGNALS  & locals  can  just  be  appended 
**★*★*******★**★**★******★**************/ 
else  if  (varClass  **  SIGNAL! I varClass  **  LOCAL) 
i 

strcat  (endstring,  varString); 

/* 

* Comma  delimits 
*/ 

strcat  {endstring,  ","); 

) 

else 

{ 

sprintf  (msgString,  "%s  is  an  unknown  variable  to  comp  %s.",  varString,  compName) 


user_ack (msgString,  HELP_U_ACK) ; 
strcat  (clangVersion,  varString); 

} 

) 

) 

} while  (comp [complndex-l ] !»'"') ; /*  STRINGS,  char  variables 
token [tokenlndex]  « 0; 


V 


/* 

* Remove  the  last  comma  from  the  endstring 
*/ 

endstring [strlen (endSt ring) -1]  - 0; 


/* 

* sprintf  the  faultstring 
*/ 

if  (endString [ 0]  — 0) 

sprintf (tmpl, "Is) ;\n",  token) ; 
else  /*  we  got  %'s  in  the  print  string  to  add  */ 
sprintf (tmpl, "Is, %s) ;\n",  token,  endstring); 
strcat  (clangVersion,  tmpl) ; 


/* 

* Set  the  last  token  to  STRING 

V 

lastToken  * STRING; 

amSprintfing  = FALSE;  /*  re-init  the  bugger  */ 

) /+  STRINGS  */ 

else  /*  STRINGS  with  embed  space  and  all  other  variables  */ 

{ 

/* 

* Set  the  lastVarType  in  order  to  flag  comparitors  (e.g.  EQEQ) 
*/ 

if  (varClass  — NUMBER) 
strcpy  (lastVarType, 

else  strcpy  ( lastVarType,  CompVars [varlndex] .type); 


/* 

* If  the  variable  is  not  a char  string  then  cat  it. 

*/ 

if (CompVars [var Index] .type[0] !«' c' & & varClass ! -STRING** ! amSprintfing) 

{ 

if  (varClass  »=  MSID) 

sprintf  {tmpl,"  value [Id]",  rellndex) ; 
else  sprintf  (tmpl,  "Is",  token); 

else  /*  It  must  be  of  type  char  or  STRING  w/embed  space (s)  */ 

{ 

if  (whereAml  — PREMISE) 

\ / { 

if  (equat ion  -»  LHS) 


if  (varClass  — MSID) 

sprintf  (tmpl,  "strcmp (value [ %d] , rellndex); 
else  /*  SIGNAL  or  LOCAL  */ 

sprintf  (tmpl,  "strcmp  (Is,",  token); 

} 

else  /*  RHS  */ 

{ 

if  (varClass  — MSID) 

sprintf (tmpl, "value [%d] ) %s  0", rellndex, strOperator) ; 
else  /*  SIGNAL,  LOCAL  */ 
sprintf  (tmpl,  "%s)%s  0",  token,  strOperator); 

} 

} 

else  /*  If  CONSEQUENCE  it  must  be  a strcpy  */ 

( 

if  (equation  — LHS) 
if (varClass  -*  MSID) 

sprintf  (tmpl,  "sprint f (value [Id] , rellndex); 
else  sprintf  (tmpl,  "sprintf  (Is,",  token); 
else  /*  RHS  V 
{ 

amSprintfing  - FALSE;  /*  re-init  the  bugger  */ 
if (CompVars [varlndex] .type [0]-*' c' | | varClass-»STRING) 
strcpy(tmpl, "\042ls\042" ) ; 
else  if (CompVars [varlndex] .type [0]  »■  ' i'  II 
CompVars [varlndex] .type [0]  -■  's'  II 
varClass  — NUMBER) 
strcpy (tmpl, "\042%d\042")  ; 
else  if (CompVars [varlndex] .type [0]  — 'd') 
strcpy (tmpl, « \042%lf \042") ; 

else  sprintf (tmpl, "\042%%lc\Q42", CompVars [varlndex] .type [0 ] ) ; 
if  (varClass  *-  MSID) 

sprintf (tmp2, ",  value [Id] ) ", rellndex) ; 
else 

sprintf  (tmp2,  ",%s)",  token); 

) 

strcat (tmpl,tmp2) ; 


translates 


i 

strcat  (clangVersion,  tmpl) ; 

tmpl [0]  - 0; tmp2 [0]  - 0;/*  empty  tmpl,tmp2  */ 

lastToken  * MSID;  /*  HSID  - SIGNAL  - LOCAL  - NUMBER  in  this  case  */ 


} /*  end  of  variable  */  *********** 


UNRECOGNIZED  TOKENS 

If  we  have  not  recognized  the  token  at  this  point  we  just  drop 
it  in  as  is  without  any  processing. 
***************************************************** **********/ 


else 

( 

strcat  (clangVersion,  " /*  Unkown  token  */  "); 
strcat  (clangVersion,  token) ; 

) 

numToken++; 

} while  (comp [complndex]  !-  0);  /*  Until  we  reach  the  end  of  the  string  */ 


if  ( lastToken  !-  END_IF) 

strcat  (clangVersion,  ";”); 

/★Ik***************************************************** 

Now  that  we  have  completed  our  token  level  translation 
let's  take  care  of  putting  the  signals  back  into  shared 
memory  where  its  necessary. 

***★********★*******************************************/ 

for  (i*0; i<numCompVars ; i + + ) 

( 

if  {( strcmp (CompVars [ i] . class,  "signal") -«0) 

(CompVars [i] . put_or_get  — PUT  ||  CompVars { i] .put _or_get  »*  PET)) 

{ 

^*********************************** 

Let's  take  care  of  indentation  now! 

************************************/ 
strcat  (clangVersion,  "\n\tn); 

sprint f ( tmp2 , " (\042%s\042,  %s,  %d,  nf [nf_index] ) ; " , CompVars [i] .name, CompVars [ i]  .name) ; 
switch  (CompVars [i] .type [0] ) 

( 

case  'c':  sprint f (tmpl,  "putsig_str_NF  (\042%s\042, Is, Id, nf [nf_index] , sigString) ; ", 
CompVars [i] .name,  CompVars [ i ]. name,  sigStringArraySize++) ; 
break; 

case  's';  spr intf (tmpl,  "puts  ig_s__NF  ( \042ls\042, Is, Id, nf [nf_index] , sigShort) ; " , 
CompVars [i] .name,  CompVars [ i] .name,  sigShortArraySize++) ; 
break; 

case  ' i' : sprintf (tmpl,  "putsig_i_NF  (\042ls\042, Is, Id, nf [nf_index] , siglnt ) ; ", 
CompVars [ i] .name,  CompVars [i] .name,  sigIntArraySize++) ; 
break; 

case  ' f 9 : sprint f (tmpl,  "putsig_f_NF  (\042ls\042, Is, Id, nf [nf_index] , sigFloat) ; 
CompVars [ i] .name,  CompVars [ i 3 . name,  sigFloatArraySize++) ; 
break; 

case  'd':  sprintf (tmpl,  "putsig_d_NF  (\042ls\G42, Is, Id, nf [nf_index] , sigDouble) ; " , 
CompVars [ i] . name,  CompVars [ i ]. name,  sigDoubleArraySize++) ; 
break; 

case  '1':  sprintf (tmpl,  "putsig_l_NF  (\G42ls\042, Is, Id, nf [nf_index] , sigLong) ; 

CompVars [i] . name,  CompVars [ i] . name,  sigLongArraySize++) ; 
break; 

case  'u':  sprint f (tmpl,  "putsig_u_NF  (\042ls\042, Is, Id, nf [nf_index] , sigUnsigned) ; ", 
CompVars [i] .name, CompVars [i] .name,  sigUnsignedArraySize++) ; 
break; 


default  : break; 

} 

strcat  (clangVersion,  tmpl); 

) 

} 

/********************************************************* 
Let's  clean  up  by  adding  a few  correctly  indented  '}' 

a*********************************************************/ 

if  ( (numberOflfs  - numberOfEndifs)  > 0) 

{ 


strcat  (clangVersion,  "\n") ; 


for  (i-0 ; i< (numberOf Ifs  - 
strcat  (clangVersion, 
strcat  (clangVersion,  "}“) 


translate.c 

numberOfEndif 3) ; i++) 

"\t")  ; 


) 

strcat  (clangVersion,  "\n}\n");  /*  end  of  the  comp!  */ 


/***★******•***■****★*************************************** 

Now  that  we  know  what  how  many  of  each  of  the  types  of 
SIGNALS  or  faultMsg  we  can  declare  their  data  stuctures. 

♦ I*********************************************************/ 

strcat  (compHeader,  M\n\tchar  faultstring [ 120 ];") ; 
if  (numberOfPrint s) 

{ 

sprintf  (tmpl,  "\n\tstatic  struct  faultMsgSt ruct  faultStruct [%d] ; ",  numberOfPrint 3) ; 
strcat  (compHeader,  tmpl) ; 

} 

if  (sigStringArraySize) 

{ 

sprintf  (tmpl,  "\n\tstatic  struct  sigStringSt ruct  sigString [%d] ;",  sigStringArraySize) ; 
strcat  (compHeader,  tmpl) ; 

} 

if  (sigShortArraySize) 

{ 

sprintf  (tmpl,  "\n\tstatic  struct  sigShortStruct  sigShort [%d] ; " , sigShort ArraySize) ; 
strcat  (compHeader,  tmpl); 

) 

if  (sigOf fShortArraySize) 

{ 

sprintf (tmpl, "\n\tstatic  struct  sigOf fShortStruct  sigOf fShort [%d] sigOf fShortArraySize) ; 
strcat  (compHeader,  tmpl) ; 
i 

if  (siglntArraySize) 

{ 

sprintf  (tmpl,  "\n\tstatic  struct  siglntStruct  siglnt [%d] siglntArraySize) ; 
strcat  (compHeader,  tmpl) ; 

} 

if  (sigOf flntArraySize) 

{ 

sprintf (tmpl, "\n\tstat ic  struct  sigOf flntSt ruct  sigOf flnt [%d] sigOf flntArraySize) ; 
strcat  (compHeader,  tmpl) ; 

) 

if  (sigFloatArraySize) 

( 

sprintf  (tmpl,  "\n\tstatic  struct  sigFloatStruct  sigFloat [%d] ; nr sigFloatArraySize) ; 
strcat  (compHeader,  tmpl) ; 

> 

if  (sigOffFloatArraySize) 

{ 

sprint f (tmpl, "\n\tstatic  struct  sigOf fFloatStruct  sigOffFloat [%d] sigOf fFlgat Arrays ize) ; 
strcat  (compHeader,  tmpl); 

} 

if  (sigDoubleArraySize) 

{ 

sprintf  (tmpl,  "\n\tstatic  struct  sigDoubleStruct  sigDouble [%d] sigDoubleArraySize) ; 
strcat  (compHeader,  tmpl) ; 

} 

if  (sigOf fDoubleArraySize) 

{ 

sprintf (tmpl, "\n\tstatic  struct  sigOf fDoubleStruct  sigOf fDouble [%d] ;", sigOf fDoubleArraySize) 
strcat  (compHeader,  tmpl); 

} 

if  (sigLongArraySize) 

( 

sprintf  (tmpl,  "\n\tstatic  struct  sigLongStruct  sigLong[%d] sigLongArraySize) ; 
strcat  (compHeader,  tmpl) ; 

) 

if  (sigOffLongArraySize) 

( 

sprint f (tmpl, "\n\tstatic  struct  sigOf fLongStruct  sigOf fLong [%d] ;", sigOf fLongArraySize) ; 
strcat  (compHeader,  tmpl) ; 

) 

if  (sigUnsignedArraySize) 

( 

sprintf  (tmpl,  "\n\tstatic  struct  sigUnsignedStruct  sigUnsigned [%d] sigUnsignedArraySize) ; 
strcat  (compHeader,  tmpl) ; 

) 

if  (sigOffUnsignedArraySize) 


translated 


sprintf (tmpl, "\n\tstatic  struct  sigOf fUnsignedStruct  sigOf fUnsigned [%d] ; sigOf fUnsignedArraySize) ; 
strcat  (compHeader,  tmpl); 

} 

/a************************************************* 

Loop  through  the  entire  variable  list  for  the  comp 
***************************************************/ 
for  ( i*0;  KnumCompVars;  i++) 

< 

/********************★***************************** 

If  we  find  a local  put  its  type  declaration  into 
the  c string  with  appropriate  indentation. 

***************************************************/ 
if  (strcmp  {CompVars [ i] . class,  "local")  — 0) 

{ 

/★******************************************** 

Char  strings  are  handled  a little  differently 
**********************************************/ 
if  (CompVars [i] .type [0]  --  'c' ) 

{ 

sprintf (tmpl, "\n\tstatic  char  %s[120];",  CompVars [i] .name) ; 

} 

else  sprintf  (tmpl,  "\n\tstatic  %s  %s;",  CompVars [ i] . type,  CompVars [ i) .name) ; 
strcat  (compHeader,  tmpl) ; 

} 

} 


Add  a carriage  return  to  lift  and  seperate  (pronounce  with  a long  'a') 
strcat  (compHeader,  "\n") ; 


Let  up  now  retrieve  the  signals  necessary  to  run  this  comp 


for  (i»0;  KnumCompVars;  i+  + ) 

{ 

/***********************************************★*** 

If  we  find  a signal  look  at  its  type  and  cat  the 
appropriate  get_sig  call  into  the  header  definition 
******************************************* *********/ 
if  (strcmp  (CompVars [ i] . class,  "signal")  0) 

( 

if  (CompVars [i] .put_or_get  — GET  |j  CompVars [i] .put_or_get  — PET) 

< 

if  (CompVars [ i] .type [0]  =—  'c') 

sprintf  (tmpl,  "\n\tgetsig  (\042%s\042,  %s);",  CompVars [i] .name,  CompVars [ i] . name) ; 
else  sprintf  (tmpl,  "\n\tgetsig  (\042%s\042,  *%s);",  CompVars [i] .name,  CompVars ( i] .name) ; 


} 


strcat  (compHeader,  tmpl) ; 


/***** ****************************************************  ************* 

Add  a carriage  return  to  lift  and  seperate  (pronounce  with  a long  'a') 
***********************************************************************/ 
strcat  (compHeader,  "\n"); 

/********************************************************* 

FILE  I/O 

Now  that  we  have  completed  the  clangVersion  we  need  to 
write  it  to  its  file  so  it  can  be  used  by  install. 
**********************************************************/ 
sprintf  (compName_c,  "%s/%s/%s .c",  CodeGroups,  GroupName,  compName) ; 
if  ( ! (ptr  » openFile  (compName_c,  "w", "translate") ) ) 

( 

sprintf (msgString,  "Translate:  CODE  could  not  open  %s  for  writing,  aborting  translation...",  compName_c) 
user_ack (msgString,  HELP_U_ACK) ; 
return  (ERROR) ; 

} 

/********************************************************** 

Write  the  clangVersion  into  its  C file  for  install  to  use. 
***********************************************************/ 
fprintf  (ptr,  "%s%s",  compHeader,  clangVersion); 
fclose  (ptr) ; 


mmsm 

mgMMmm  : . -v-  V-:  -, : '• 

) /♦  end  of  translate ()  ♦/ 


translates 


/ *****  ************************************************ 
yankBlank  £ yankToken  functions 
**++ ********** ****************************************/ 

yankBlank  (comp,  complndex) 
char  *comp; 
int  ♦complndex; 

( 

/***************************♦******** 

Yank  non-chars  until  you  hit  a char 
*******************************♦*****/ 

while  ( (comp [♦complndex]  — ' ' II  comp [ *compIndex]  — ' \t' 
comp [ *comp!ndex]  =-  '\n')  &&  comp [ ♦complndex]  !-  0) 

{ 

(♦complndex) ++; 

) 

} 


yankToken  (comp,  complndex,  token,  tokenlndex) 
char  ♦comp; 
int  * comp Index; 
char  *token; 
int  *tokenIndex; 

{ 

/************************************ 

Init  the  token  to  null 
**************************♦*♦♦♦*♦***♦/ 

♦tokenlndex  * 0; 

/★********************************♦♦* 

Yank  char  until  you  hit  a non  char 
*************************************/ 

while  (comp [*compIndex]  !-  ' 9 &£  comp [ ♦complndex]  l*  '\t' 
comp [♦ comp Index]  !»  '\n'  £ 4 comp [♦complndex]  I-  0) 

{ 

token [ (*tokenIndex) ++]  * comp [ (*compIndex) ++]  ; 

} 

token [ *tokenIndex]  * 0; 

} 
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♦include  <stdio.h> 

♦include  <X11/Intrinsic .h> 
♦ include  <Xm/Xm.h> 

♦include  "code.h" 


* MODULE  NAME:  type_check ( type  ) 

* 

* 

* MODULE  FUNCTION: 

* 

* Checks  if  the  specified  data  type  is  valid  at  the  current  location  in 

* the  comp . 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


* Terri  Murphy  £ Troy  Heindel 

* NASA/JSC/MOD 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

****************************************< 


type_check{  type  ) 
char  type; 

{ 

int  Illegal  * FALSE; 

switch (CompareType [NumberOfCompares-1] [0] ) 

{ 

case  's':  if(WhereAmI  — CONSEQUENCE  &&  type  !-  's'  |j 

WhereAmI  — PREMISE  &&  type  — 'c') 
illegal  - TRUE; 
break; 

case  ' f ' : if ((WhereAmI  *-  CONSEQUENCE  ii 

{type  ■■  ' c'  ||  type  *-  ' d'  ||  type  ““  'h'))  II 
(WhereAmI  — PREMISE  &£  type  « ' c' ) ) 
illegal  - TRUE; 
break; 

case  'i':  if {(WhereAmI  — CONSEQUENCE  && 

(type  — ' c'  |j  type  — 'd'  II  type  --  ' f ' II  type  — 'h'))  || 

(WhereAmI  — PREMISE  £&  type  — ' c' ) ) 
illegal  - TRUE; 
break; 

case  'c':  if (WhereAmI  — PREMISE  £&  type  !-  'c') 

illegal  - TRUE; 
break; 

case  'd' ; if (type  -»  9 c' ) 
illegal  - TRUE; 
break; 

case  'h' : /*  Need  to  know  how  translate  defines  hex  types  */ 

break; 


default:  break; 


} 

if  (illegal) 

{ 

return (ERROR) ; 

} 


if  (CompareType [NumberOf Compares -1][0]  !■  type) 
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user_ack  ("Warning:  Operand  types  are  inconsistent  in  this  expression.-,  HELP_U_ACK) , 


) 

return (OK) ; 


utilities. c 


*******  W*  ******★★*★**************<- 


->* 


* 

* FILE  NAME:  utilities. c 


* 

* 


* FILE  FUNCTION: 

* This  file  contains  the  routines  which  initialize  the  X Windows  connections  and 

* define  the  X Windows  widgets. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* FILE  MODULES: 


* cleanExit  ( ) 

* cleanSlateO 

* get_type() 

* get_type_gc 0 

* getVar Index {) 

* hardcopy  () 

* indent  () 

* load_font() 

* openFile  () 

* readCODEFileO 

* readCompName  s < ) 

* readGroupName* ( ) 

* set_size  () 

* str_isalnumO 

* writeGroupNames 0 


- kills  the  X Window  connection  and  exits  the  Comp  Builder 

- initializes  the  variables  used  by  a Comp 

- determines  the  data  type  of  currently  selected  Comp  var 

- determines  if  user  wants  to  del/create  a comp  or  group 

- determines  the  data  type  of  the  variable 

- prints  the  group  files 

- maintains  the  indentation  and  spacing  in  the  comp  string 

- loads  a logical  font 

- opens  the  specified  file  and  performs  error  processing 

- reads  in  the  CODE  file  Into  a given  string 

- extracts  the  names  of  the  comps  for  the  current  group 

- extracts  the  names  of  the  available  groups 

- sets  the  Work  Area  font 

- determines  if  a string  is  alphanumeric 

- writes  the  group  names  back  to  the  group  name  file 


* 


♦include  <stdio.h> 

♦include  <ctype.h> 

^ ♦include  <Xll/Intrinsic .h> 
♦include  <Xm/Xm.h> 

♦include  <Xm/MessageB .h> 
♦include  "code.h" 

♦include  "widgets. h" 


************************************* 
MODULE  NAME:  cleanExit  ( void  ) 


* 


**< 


* 


utilities. c ; ■ 


* MODULE  FUNCTION: 

* 

* Routine  kills  the  X Window  connection  and  exits  the  Comp  Builder. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 


* Motif  Release  1.0  - 90/03/16 

* 

****************************************<-- 


void  cleanExit {) 
{ 


/ * 

* Destroy  the  root  application  shell  widget  and  thereby,  all  subordinate  widgets  which 

* make  up  the  window  and  any  popup  windows  used  for  menus. 

*/ 

XtDestroyWidget  ( top  ) ; 
exit { ERROR  ) ; 

) 
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* 

* MODULE  FUNCTION: 

* 

* Function  is  used  by  retrieve {) 

* used  by  a Comp. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


and  get__header  {)  to  initialize  the  global  variables 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel/NASA/ JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

****************************************< 


void  cleanSlateO 

{ 


ChoiceCounter  * 0; 

ParenCount  » 0; 

Equation  » LHS; 

WhereAml  » CONSEQUENCE; 
NumberOflfs  * NumberOfEndif s * 0; 
NumberOf Compares  - 0; 

NumCompVars  - 0; 

FuncParenCount  - 0; 

Comp[0]  - 0; 


: ; utilities.c 


* MODULE  NAME:  get_type  ( whose_type,  thejnessage  ) 

* 


* MODULE  FUNCTION: 

* Processes  the  popup  that  determines  the  data  type  for  the  currently  selected 

* Comp  variable. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

*******'************'*********************^ 


int  get_type ( whosejiype,  the_message  ) 

char  *the_message, 

*whose_ type; 

( 

Arg  args[l]; 

XtSetArg ( args[0],  XmN label St ring,  XmStr ingLtoRCreate (thejnessage, XmSTRING_DEFAULT_CHARSET)  ) 
XtSetValues ( lbl_type,  args,  1 ); 

/* 

* Popup  the  widget 
*/ 

process_popup { dlg_type,  WAIT  ); 

if  { Get_Type_Stat  — ABORT  ) 
return  ( ABORT  ) ; 

else 

strcpy ( whose_type,  tokens [ Get_Type_Stat  ].name  ); 


utilities.c 


* 

* MODULE  NAME:  get_type_gc{  prompt  ) 


* 

* 


* MODULE  FUNCTION: 

* Processes  the  popup  that  determines  if  the  user  wants  to  create/delete  a group 

* or  a comp. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code /specs /code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 


* Motif  Release  1.0  - 90/03/16 

* 

*«*******★******************************< 


int  get_type_gc{  prompt  ) 
char  *prompt; 

{ 

Arg  args [1] ; 

XtSetArg ( args[0],  XmNlabelString,  XmStringLtoRCreate (prompt , XmSTRING_DEFAULT_CHARSET)  ) 
XtSet Values { lbl_gc,  args,  1 ); 

process_popup { dlg_gc,  WAIT  ); 

return  ( ,Get_GC_Stat  ); 

} 


getVarlndex 


Returns : 

0 - The  given  name  is  of  class  local  or  signal. 

-1  - The  given  name  was  not  found  in  either  the 
local  or  group  variable  lists, 
index#  - 

If  name  was  found  as  an  msid  In  the  group  list 
then  an  index  is  returned. 

♦★a************************************************/ 

getVarlndex ( name,  CompVars,  numCompVars,  varlndex,  rellndex  ) 
char  *name; 

struct  var  struct  CompVars [];  /*  Structure  containing  the  comp  variable  defs  / 

int  numCompVars;  /*  The  number  of  comp  variable  in  the  structure  */ 

int  *varlndex;  /*  The  index  of  the  variable;  MSID,  SIGNAL,  LOCAL  */ 

int  *rellndex;  /*  The  relative  index  of  the  MSID  */ 

{ 

int  i,  msid_cnt; 

* rellndex  * 0; 

♦varlndex  * 0; 

/*******★*#***★**★***********★*************** 

If  the  first  char  is  a double  quote  we  know 
right  away  that  this  is  a literal  string, 
a********************************************/ 

if  (name [0]  — 

{ 
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return  (STRING) ; 


} 

/******»************* ************************ 

See  if  the  variable  is  in  the  variable  passed 

to  translate!)  from  install. 
*********************************************/ 

for  (i«0;  KnumCompVars;  i + + ) 

* /******* **********************  ***** *********** 

Try  to  match  the  name,  then  the  class 
*★***************★****************************/ 
if  (strcmp  (CompVar s ( i] . name,  name)  =**  0) 

^ if  (strcmp  (CompVars [i] .class,  "signal")  — 0) 

{ 

*var Index  * i; 
return (SIGNAL) ; 

else  if  (strcmp  (CompVars [ i] . class,  "local")  — 0) 

( 

*varlndex  - i; 
return (LOCAL) ; 

else  if  (strcmp  (CompVars [i] .class,  "msid")  — 0) 

< 

*varlndex  * i; 
break; 

) 

) 

} 

/*******★************************♦****************** 

If  we  did  not  find  it  as  a SIGNAL  or  LOCAL  then  see 

if  it  is  an  MSID  in  the  Complnfo  structure 
****************************************************/ 
msid_cnt  *0; 

for  (i-0; i<NumGroupVars; i++) 

y********************************************* 

We  need  to  keep  track  of  a relative  index  for 

the  msids. 

♦a********************************************/ 
if  (strcmp  (GroupVars[i] .class,  "msid")  — 0) 

/★★★***********■****•********************** 

Try  to  match  the  name,  return  if  so 
***************  ****************** ********/ 
if  (strcmp  (GroupVars [ i] .name,  name)  — 0) 

* re 1 Index  - msid_cnt;  /*  the  relative  msid  index  */ 
return  (MSID) ; 

) 

msid_cnt++; 

) 

} 

/*************************************************** 

Now  we  know  that  it  was  not  an  MSID,  signal,  or 
local,  but  now  see  if  it  was  a number,  or  a string 
*****************★**********************************/ 
if  (str_isalnum  (name)  !«  ERROR) 

{ 


return  (NUMBER) ; 

) 

return (ERROR) ; 


HARDCOPY 


Purpose:  Hardcopy  sends  the  following  files  to  the  printing 
device:  comp_file,  variable  file,  the  "C"  version. 


Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 


utilities.c 


Date:  5/7/87 

- Version:  1 .0 

Project:  CODE  {Comp  Development  Environment) 

Revised  by:  Terri  Murphy 

Reasons  for  Revision:  IGP  vs  Sony  print  routines. 

************«********************♦******************************/ 


hardcopy  {) 

{ 

char  hard_copy [400] , 

CODELanguage [PATH_LEN] , /*  Path  of  high  level  language  file  */ 
compVariables [PATH_LEN] , /*  Path  of  comp  variable  file  */ 
compCLanguage [PATH_LEN] , / * Path  of  comp  C language  file  V 
groupC Language [PATH_LEN] ; /*  Path  of  group  C language  file  */ 


} 


Prepare  the  paths 


sprintf  (CODELanguage, 
sprintf  {compVariables, 
sprintf  {compCLanguage, 
sprintf  (groupCLanguage, 


rt%s/ls/%s.h«, 

■%s/%s/%s.v», 

"%s/%s/*3.c", 

"%3/%3/%3.C", 


V 

CodeGroups, 

CodeGroups, 

CodeGroups, 

CodeGroups, 


GroupName,  CompName) ; 
GroupName,  CompName) ; 
GroupName,  CompName) ; 
GroupName,  GroupName) 


/*************************************** 

Prepare  the  string 

****************************************/ 

sprintf  (hard  copy,  "Ipr  %s  %s  %s  %s  >>/tmp/code .err  CODELanguage, 

compCLanguage,  groupCLanguage); 

/ft************************************** 

Ask  UNIX  for  a little  help 

-t***************************************/ 

user_ack  ("Printing.  . . HELF_U__ACK)  ; 
system  (hard_copy) ; 


compVariables, 


/************★***★***********************< 

★ 

— * MODULE  NAME:  indent { theArea  ) 

* 


utilities.c 


* 


* MODULE  FUNCTION: 

* 

* Maintains  the  indentation  within  the  Comp  string. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/ specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel/NASA/ JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 


********* 


indent ( theArea  ) 
int  theArea; 


{ 


int 


i; 


* Put  the  correct  number  of  spaces  for  the  area  we  are  in 
*/ 


if  (theArea  — PREMISE) 

{ 


/* 

* If  we  are  following  some  logic  we  need  a carriage 

* return  and  spaces,  otherwise  just  a single  space 

V 


if  ( PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 
PrevChoice [ChoiceCounter-1] 


AND  I I 

OR  I i 

BITOR  I I 

BITAND  I } 

BITXOR  ) 


{ 

streat ( Comp,  "\n * ) ; 
updateWA ( "\n"  ); 

for  (i-0  ; i < ( (NumberOf Ifs-NumberOfEndifs) -1) *SIZE_ INDENT+3; 

{ 

streat  ( Comp,  " " ); 
updateWA ( ■ H ); 

} 

} 

else 


{ 

streat  ( Comp,  " " ) ; 
updateWA ( " * ) ; 

) 

} 

else  /*  CONSEQUENCE  */ 

{ 


i++  ) 


/* 

* If  we  are  following  a THEN  or  an  ELSE  then 

* we  need  a return  and  spaces,  otherwise  just  a 


* single  space 
*/ 


utilities.c 


if  { PrevChotce [ChoiceCounter-1]  THEN  fit 

PrevChoice [ChoiceCounter-1]  ! * ELSE) 

{ 

strcat  (Comp,  "\n") / 

for  ( i=*0;  i < (NumberOf Ifs-NumberOfEndif s)  *SIZE_INDENT;  i++  ) 

{ 

strcat  { Comp,  " " ); 
updateWA(  ” " ); 

} 


else 

{ 

strcat ( Comp,  " " ); 
updateWA{  " " ) ; 

} 

} 

} 


* 

* MODULE  NAME:  load_font { font,  font  structure  ) 


* 


* MODULE  FUNCTION: 


* 

* 

* 

* 

* 


Routine  loads  an  XmFontList 
of  the  specified  font. 


structure  based  on  the  logical  character  name 


* SPECIFICATION  DOCUMENTS: 


* 

* /code/specs/code 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 


int  load_font ( font,  fnt_list  ) 

char  *font; 

XmFontList  *fnt_list; 


{ 

XFontStruct  *font_struct  - NULL; 

font_struct  - XLoadQueryFont ( XtDisplay (top) , font  ); 
if  ( ! font  struct) 

{ 

select_cursor { Shutt le^Cursor  ); 

user_ack  ( "Couldn't  XLoad  font",  HELP_U__ACK  ); 

return ( ERROR  ) ; 

) 

*fnt  list  - XmFontListCreate ( font_struct,  XmSTRING_DEFAULT_CHARSET  ); 
return { OK  ) ; 

} 


utilities.c 


MODULE  NAME 


• openFile ( file,  option,  call ingRout ine  ) 


MODULE  FUNCTION: 

Function  opens  the  specified  file  with  the  specified  options  and  performs 
error  processing. 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel/NASA/ JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

**********************♦♦***♦****♦*♦*****< >’ 

FILE  *openFile ( file,  option,  callingRout ine  ) 

char  *callingRout ine, 

♦file, 

♦option; 


FILE  ♦filePtr; 

char  explain (250] , 

tmpString [22] ; 


if  ( ! (filePtr  - f open { file,  option))) 

< 

switch  { option [0]  ) 


case  'a' 


default 


strcpy ( tmpString,  "reading"  ); 
break; 

strcpy ( tmpString,  "appending"  ); 
break; 

strcpy { tmpString,  "writing"  ); 
break; 

strcpy(  tmpString,  "bad  open  file  option"  ); 


sprint f ( explain,  "Can  not  open  %s  for  %s",  file,  tmpString  ), 
select_cursor ( Shuttle_Cursor  ); 
user  ack ( explain,  HELP_U_ACK  ); 
return ( NULL  ); 


return ( filePtr  ); 


/★★********■*******************♦***♦♦♦♦♦♦♦♦♦♦♦♦♦*************** 

readCODEFile 

Purpose:  readCODEFile  reads  In  the  CODE  high  level  file  into 

the  string  which  is  passed  to  it. 

Designer:  Troy  Heindel/NASA/ JSC/MOD 

Programmer:  Troy  Heindel/NASA/ JSC/MOD 


Date:  1/24/89 


utilities.c 


Version:  2.0 

Project:  CODE  {Comp  Development  Environment) 

aw*****'*******************************'**'***********'*************/ 


readCODEFile { compName,  compStr  ) 

char  compName [] ; /*  The  name  of  the  comp  to  get  */ 

char  *compStr;  /*  The  string  to  put  the  comp  into  */ 

{ 

FILE  *filePtr;  /*  You  guessed  it!  */ 
int  i ; 

char  theCODEFile [PATH_LEN] ; /*  The  path  to  the  CODE  file  */ 

/★a****************************************************************** 

Create  the  path  to  open  the  high  level  file 
***********★******★**************************************************/ 
sprintf  (theCODEFile,  "%s/%s/%s  .h",  CodeGroups,  GroupName,  compName); 

/+★******#****★************************* 

Open  the  Grouplnfo  file  with  the  option 
***************★************************/ 

if  ( ! (f ilePtr  - openFile  (theCODEFile,  "r",  "readCODEFile"))) 
return  (ERROR) ; 

/**********★****★*★•***’■******************** 

Read  the  entire  comp  into  the  comp  string. 

******************************************/ 

i-0; 

while  ({ (compStr [i++]  - fgetc  (filePtr))  J-  EOF)  «&  i<MAX_COMP_LEN) ; 
fclose  (filePtr) ; 
compStr [i-1]  * ' \ 0 ' ; 

/★a*************************************** 

Make  sure  we're  not  too  big. 

it*****************************'************/ 

if ( i - «MAX_COMP_LEN ) 

{ 

user_ack ("This  comp  exceeds  the  maximum  comp  length.  Please  notify  developers.",  HELP_U 
return  (ERROR) ; 

) 


) 


return  (OK) ; 


* 


v__x  * MODULE  NAME:  readCompNames ( ) 

* 


* 

* MODULE  FUNCTION: 

* 

* Extracts  the  names  of  the  comp  files  for  the  current  group. 

* 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

w 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel/NASA/ JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

********•*******************************< 


>****************************************/ 


int  readCompNames {) 

FILE  *filePtr;  /*  You  guessed  it!  */ 
char  f ile_str  [PATH__LEN] ; 
int  i,j; 


NumOf Comps  - 0; 

/* 

* Let's  open  the  [GroupName] .dat  file  to  find  out 

* which  comps  exist  for  this  group. 

*/ 

sprintf  (f ile_str,  "Is/ls .dat" , AMSupport,  GroupName); 
if  {’{filePtr”-  openFile  {file_str,  "r",  "readCompNames"))) 
return  (NumOfComps) ; 

/* 

* ...  and  read  the  CompName,  noise_f liter,  rate, 

* on_of f and  disposition  into  an  array  of  group 

* information  structures. 

*/ 

else 

{ 

/* 

* Throw  out  the  header  comment. 

V 

fscanf {filePtr,  "%*[A\n]"); 

/* 

* Read  in  what's  left. 

*/ 

while  {(fscanf  (filePtr, "Is  Id  Id  Id  Id  Id  l[A\n]", 

Complnfo [NumOfComps] .name, 
iCompInfo [NumOfComps] . noise_f ilter, 
iCompInfo [NumOfComps] .rate, 
g Complnfo [NumOfComps] .on_off, 
iCompInfo [NumOfComps] .disposition, 
SCompInfo [NumOfComps] . cycle_mode, 
Complnfo [NumOfComps] .purpose) ) !»  EOF) 

{ 

NumOfComps++; 

) 

fclose  (filePtr) ; 

/★a***************************************************** 
Sort  the  little  buggers  so  they're  nice  to  look  at. 


; utilities.c 

★★a*****************************************************/ 

for  (i-0; KNumOf Comps- 1;  i + + ) 

{ 

for  ( j*i+l; j<NumOfComps; j++) 

^ if  (strcmp  {Complnfo [ i] . name,  Complnf o [ j ] . name)  > 0) 

Complnfo [MAX_COMPS]  - Complnf o [ i ] ; 

Complnfo [ i]  - CompInfo[j]; 

Complnf o ( j ] - Complnfo [MAX_COMPS] ; 

) 

) 


} 

) 

return  (NumOfComps) ; 


♦ 

* MODULE  NAME:  readGroupNames { ) 

* 


* 

* MODULE  FUNCTION: 

* 

* Extracts  the  names  of  the  available  groups. 

* 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

★ 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Troy  Heindel/NASA/ JSC/MOD 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

********* *******************************<-- >****************************************/ 


int  readGroupNames () 


FILE  *filePtr;  /*  You  guessed  it!  */ 
char  message [120] ; 

struct  group_inf obstruct  tempGroupInfo; 
int  i,j;  /*  counters  */ 

NumOf Groups  ■ 0; 

/* 

* Open  the  GroupNames  file  for  reading 

*/ 

if  (filePtr  ■ openFile  (GroupNamesFile,  "r",  "readGroupNames") ) 

{ 

/* 

* Strip  the  header. 

V 

fscanf (filePtr,  "%*[A\n]"); 

while  (fscanf  (filePtr, "%s  %d",  Grouplnfo [NumOfGroups] .name, 

iGroupInfo [NumOfGroups] .disposition)  !-  EOF) 

++NumOf Groups; 
fclose  (filePtr) ; 

/* 

* Sort  the  little  buggers  so  they're  nice  to  look  at. 

*/ 

for  (i-0; i<NumOfGroups-l; i++) 

{ 

for  ( j*i+l; j<NumOf Groups ; j++) 

{ 

if  {strcmp  (Grouplnfo [ i] . name,  Grouplnfo [ j ] .name)  > 0) 

( 

tempGroupInfo  - Grouplnfo [i] ; 

Grouplnfo [1]  - Grouplnfo [ j ] ; 

Grouplnfo [j]  - tempGroupInfo; 

} 

) 

) 


} 


return  (NumOfGroups) ; 


utilities.c 

/* 

* Maybe  this  is  a new  system  and  the  file  does  not  exist  yet. 

* Try  creating  the  file  by  opening  it  for  writing. 

*/ 

else  if  (MfilePtr  - openFile  (GroupNamesFile,  "w",  "readGroupNames" ) ) ) 

sprint f ( message,  "Unable  to  access  the  %s  file  in  order  to  obtain" 
strcat  ( message,  ” a listing  of  the  groups.  " ); 
user_acfc ( message,  HELP_U_ACX  ); 
return  (ERROR) ; 

) 

else 

user  ack("No  algorithms  were  found  on  this  machine",  HELP_U_ACK) ; 
fclose  ( f ilePt r) ; 

return  (0);  /*  The  number  of  Groups  on  this  system  */ 

) 


GroupNamesFile  ) ; 


* 


* MODULE  NAME:  set  size () 


utilities.c 


* MODULE  FUNCTION: 

* 

* Sets  the  Work.  Area  font  based  on  the  user's  selection. 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

****************************************< >****************************************/ 

void  set_size() 

{ 

Arg  args [2] ; 

XmFontList  font; 


select^ cursor { Clock_Cursor  ); 
set_font_tgl  ()  ; 

/* 

* Set  Work  Area  attributes. 

*/ 

switch { WorkA  ) 

< 

case  DEFAULT  : 

if  { load— font (Font_Default , Sfont)  — ERROR  ) 
return; 
break; 

case  OPTIONl_FONT  : 

if  ( load— font (Font_Opt ionl,  fifont)  « ERROR  ) 
return; 
break; 

case  ,OPTION2_FONT  : 

if  { load_font  (FontjDpt ion2,  fifont)  ■-  ERROR  ) 
return; 
break; 

) 

XtSetArg{  args[0],  XmNfontList,  (XtArgVal)  font  ); 
XtSetValues{  txt_worka,  args,  1 ); 

select  cursor { Shuttle  Cursor  ); 


/*************★**★**★*****★*********************************■** 

STR_ISALNUM 

Purpose:  Determines  whether  a given  string  is  alpanumeric. 

A single  decimal  point  is  allowed. 

Returns:  0 - It  was  alphanumeric. 

1 - It  was  not! 


Designer:  Troy  Heindel/NASA/MOD 

Programmer:  Troy  Heindel/NASA/MOD 

Date:  11/14/88 

Version:  2.0 

Project:  CODE  (Comp  Development  Environment 

******************************************** 


) 


*/ 


str  isalnum  { theString  ) 

char  *theSt ring;  /*  The  string  to  look  at  */ 

int  i,  /*  Can't  live  without  an  i */ 

decimalFlag  - FALSE;  /*  TRUE  if  we've  seen  a decimal  point  */ 


/************************ ****************  ********* 

Leading  zero's  are  a no-no  as  they  conote  octal 
**#★*#★*******************************************/ 
if  (theString [0]  — '0'  fi£  strlen (theString)  > 1) 

user_ack ("Leading  zeros  are  not  allowed",  HELP_U_ACK) ; 
return  (ERROR) ; 

/a************************************************ 

Loop  through  the  whole  bloody  string,  checking  to 
see  that  each  char  is  an  alphanumeric 
****«*******★*************************************/ 
for  (i-0;  i<strlen (theString) ; i++) 

/***+****************************************** 

Check  to  see  if  the  char  is  an  alphanumeric 
***********************************************/ 

If  (!( (theString  [i]  >-  'A'  44  theString[i]  <-  'F')  II 
(theStringdJ  >-  '0'  46  theStringd]  <»  '9'))) 

/★********************************************* 
No.  Then  check  to  see  if  it  is  a decmial  point. 
Only  let  them  use  one  decmial  point  per  number 
***********************************************/ 
if  (theString [ i ] — decimalFlag  — FALSE) 

decimalFlag  - TRUE; 
else  return  (ERROR) ; 

) 

) 

if  (decimalFlag) 

return  (FLOAT);  /*  All's  well  that  ends  well  */ 
return  (INTEGER);  /*  All's  well  that  ends  well  */ 


) 


utilities.c 


* - 

★ MODULE  NAME:  writeGroupNames ( ) 


* 

* 


* MODULE  FUNCTION: 

* 

* Writes  the  group  names  back  to  the  group  name  file. 


* 

* 

* 

* 

* 

* 

★ 

* 

* 


SPECIFICATION  DOCUMENTS: 
/code/specs/code 

ORIGINAL  AUTHOR  AND  IDENTIFICATION: 
Troy  Heindel/NASA/ JSC/MOD 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

**************************♦*************< 


int  writeGroupNames {) 

FILE  *filePtr;  /*  You  guessed  it!  */ 
int  i; 

/*************************************** 

Open  the  Grouplnfo  file  with  the  option 

a****************************** *********/ 

if  ( ! (f ilePtr  - openFile  (GroupNamesFile,  "w",  "writeGroupNames")}) 
return  {ERROR) ; 

/*******♦******************************* 

On  successful  open,  write  the  file 
****************************************/ 
fprintf  (f ilePtr,  "#GroupNames  Disposit ion\n" ) ; 

for  (i-0; i<NumOfGroups; i++) 

fprintf  (filePtr,  "%s  %d\n",  Grouplnfo [i] . name,  Grouplnfo [ i) .disposition) ; 
fclose  (filePtr) ; 

return  (OK) ; 

) 


/*************** 


VAR  CHECK 


Purpose : Var  check  checks  the  variable  list  to  determine 

whether” the  variable  just  input  has  been  previously 
defined. 


Designer:  Troy  A.  Heindel/NASA/ JSC/MOD 

Programmer:  Troy  A.  Heindel/NASA/ JSC/MOD 

Date:  12/11/86 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 
None . 

************************************************************** 
Global  Variables 

NumCompVars  The  number  of  variables  in  this  comp. 

************************************************************** 
Include  files 

*************************************************************/ 
♦Include  <stdio.h> 

♦include  <X11/Intrinsic .h> 

♦include  <Xm/Xm.h> 

♦include  "code.h" 


var  check  (name,  local_index,  global_index,  class) 

"char  named;  /*  The  name  of  the  passed  variable  V 

int  * local  Index;  /*  The  index  into  the  CompVars  struct  V 
int  *global_index;  /*  The  index  into  the  MSIDTable  struct  */ 
char  c 1 a s s [ ] ; /*  Either  msid,  signal,  or  local  */ 


int  i;  /*  Counter  */ 
int  def ined_globally; 
int  def ined_locally; 


/A**************************************** 

Assume  the  worst — undefined  variable 
******************************************/ 
def ined_globally  * FALSE; 
def ined_locally  - FALSE; 

*local_index  * -1; 

*global_index  * -1; 

/***************************************** 

Look  for  the  msid  in  the  struct  MSIDTable 
****** ********************  ****************/ 
if  (strcmp  (class,  "msid")  ■*  0) 

^ /***********  ********  ****************************** 

If  there  is  not  MSIDTable  then  we  can't  look  it  up 
*★************************************************/ 
if  (! (MSIDTable [0] .name) ) 

user  ack ( "\n\tMSID' s will  not  be  verified;  the  msid  table  was  not  found",  HELPJ 

else 

/★*************************************** 

Try  to  find  the  msid  in  the  tag_MSIDTable 
******************************  ***"********/ 
for  ( i-0 ; i < MSIDCount ; i + + ) 

{ 

if  (strcmp  (name,  MSIDTable [ i ]. name)  --  0) 

{ 

def ined_globally  - TRUE; 

*global_index  • i; 
break; 

) 

) 

/★★♦★♦A*************************************** 

If  we  did  not  find  the  msid  in  the  msid  list 
it  is  undefined  and  not  usable. 

******•***************************************/ 
if  ( ! (def ined_globally) ) 

{ 

*global_index  * ERROR; 

) 

} 

} 

/******************************************* 

Look  for  signals  in  the  struct  SignalTable 
********************************************/ 
else  if  (strcmp  (class,  "signal")  --  0) 

{ 

/******************************************** 

Look  for  the  signal  in  the  SignalTable  list 
*********************************************/ 
for  (i-0;i  < SignalCount; i++) 

{ 

if  (strcmp  (name,  SignalTable [ i] .name)  — 0) 

{ 

def ined_globally  * TRUE; 

*global_index  - i; 
break; 

} 

} 

} 

/***************************************** 

Always  check  to  see  whether  the  variable 
is  defined  locally  to  this  comp. 

*****************************************/ 
for  (i-0 ; i<NumCompVars; i++) 

{ 

if  (strcmp  (name,  CompVars [ i] . name)  — 0) 


ACK)  ; 


} 


j liftf  var_check.c  |{ 

/★a***#'******************'**'*********************** 

Return  an  ERROR  if  they  are  trying  to  use  an  msid 
as  a local,  signal  or  something  of  the  sort 

■a*************************************************/ 

if  ( (strcmp  (class,  CompVars [i] .class)  —0)  ||  (strcmp (class, "null") 

{ 

* loca l_index  ■ i; 

def ined_local ly  - TRUE; 

break; 

else  /*  It  Is  a miss-classing  e.g.  a local  as  a signal  */ 

( 

return  (ERROR) ; 

} 


return  (OK) ; /*  The  variable  is  ok  ♦/ 


} 


— 0)) 


var„check.c 

. ■ **.**..***************** 
^. ******************** 
funcCheck  en  unknown  token  !• 

ncCh.ck  check, ^ £t“  if  ttU6' 
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Effaces 



EuncNatne)  j1t  ihe  name  oi 

ncNameUf 

-^'ined  fun^**°  *******  ********** 

'XZZZ**^***''  _ 0) 

E <«- 

return  to*1  ' 

,.*.*.*****************. t a f^f.i*";.*******/ 



rn  (ERROR); 


OR.GIMAL  PAGE  IS 
OF  POOR  QUALITY 


widgets. ll  ||| 

scrjjname, 

sep  ack,  sep_actn,  sep_arch,  sep_ask,  sep_devl,  sep__dev2,  sep_file, 

sep“fnt,  sep_fnt2,  sep_gc,  sep_gname,  sep_gstr,  sep_hello,  sep_help, 

sep]]help_txt f sep_logic,  sepjnath,  sep_oper,  sep_type,  sep_var,  separator  1, 

tgl_lshot,  tgl_cycle,  tgl_devl,  tgl_dev2,  tgl_dev3,  tgl_wa_de,  tgl_wa_ol,  tgl_wa_ 

txt  gstr  reply,  txt_file,  txt__status,  txt^worka; 


window_io.c 


* FILE  NAME:  window_io.c 

v_y  * 


* FILE  FUNCTION: 

* contains  the  functions  which  prompt  the  user  and  display  data  to  the  user 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* 


* FILE  MODULES: 


* 

# 

* 


* 

* 

# 

* 


* 


ask  0 
clear_inform  0 
display_file  {) 
display_str  0 
displayWA  0 
get_string  () 
inform  <) 
set_device_tgl  0 
set_font_tgl  {) 
updateWA  () 
user  ack  0 


- processes  the  popup  which  asks  a yes/no  question 

- takes  down  the  inform ()  popup 

- opens  a disk  file  and  displays  it  to  the  user  in  a popup 

- displays  a large  string  to  the  user  via  a popup 

- display  a string  to  the  user  in  the  Work  Area 

- prompts  the  user  to  enter  a string,  processes  the  popup 

- displays  a message  to  the  user 

- sets  the  state  of  the  backup  device  toggles 

- sets  the  state  of  the  Work  Area  font  selection  toggles 

- adds  a token  to  the  Comp  currently  in  the  Work  Area 

- displays  a message  to  the  user  in  a popup 


♦include  <stdio.h> 

♦include  <X11/Intrinsic .h> 

♦include  <Xll/MwmUtil .h> 

♦include  <Xm/MessageB ,h> 

♦include  <Xm/Text.h> 

♦include  "code.h* 

, ♦include  "widgets .h" 

extern  XtCallbackRec  clear_popup [ ] / 


Arg  args { 4 ] ; 


\ y * MODULE  NAME:  ask(  prompt  ) 

* 


* MODULE  FUNCTION: 


* 

* Processes  the  popup  which  asks  the  user  a specified  yes/no  question. 

* 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


* 

* 

* 

* 

* 


Timothy  J.  Barton  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* 


* REVISION  HISTORY: 


* Motif  Release  1.0  - 90/03/16 

* 

*************************************"***< >******* 


int  ask(  prompt  ) 
char  *prompt; 

{ 

/* 

* Setup  the  prompt  string. 

*/ 

XtSetArg ( args{0],  XmN labelstring,  XmStr ingLtoRCreate {prompt , XmSTRING_DEFAULT_CHARSET)  ); 
XtSetValues ( lbl_ask,  args,  1 ); 

/* 

* Set  the  size  (width)  of  the  prompt. 

*/ 

if  { SetNum  -■  1 ) 

XtSetArg { args[0],  XmNwidth,  (150+ <5*strlen (prompt) ) ) ); 

else 

XtSetArg ( args[0],  XmNwidth,  (200+ (10*strlen (prompt) ) ) ); 

XtSetValues ( frm_ask,  args,  1 ); 

process_popup ( dlg_ask,  WAIT  ); 
return ( Ask_Resp  ); 

) 


/★**** ********************  ****#★*********< 
* 

* MODULE  NAME:  clear_inform () 

* 


window Jo.c  : • ^ _ 


* 

* MODULE  FUNCTION: 

* 

* Function  when  working  (which  it's  not),  will  clear  the  inform{)  popup. 

* 


* 

* SPECIFICATION  DOCUMENTS: 


* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


REVISION  HISTORY: 

Motif  Release  1.0  - 90/03/16 

********★***********★*************★****< >************★***************************/ 


void  clear_inform  {) 

{ 

/♦DEBUG 

XtUnmanageChild ( dlg_inform  ); 


V 

} 


window^io.c 


* MODULE  NAME: 

* 


★ 


display_file(  display_type,  f ileToDisplay  ) 


* MODULE  FUNCTION: 

* 

* Reads  a file  and  places  a scrolled  window  popup  to  display  the  file  to  the 

* user. 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

Hr 

A***********************  ***************  **<---■ 


void  display_file{  display_type,  f ileToDisplay  ) 

int  display_type; 

char  *fileToDisplay; 

{ 

FILE  *fp; 

register  int  i - 0, 
ptr  - 0; 

char  c, 

string [101] ; 


select_cursor ( Clock_Cursor  ); 

/* 

* Open  the  file. 

*/ 

if  ( (fp  - openFile { f ileToDisplay,  "r",  "display_f ile"  })  « NULL  ) 
return; 

/* 

* Read  data  from  the  file.  Read  100  bytes  at  a time  and  add  to  the  text  widget's 

* string. 

*/ 


XmTextSetStr ing ( txt_file,  NULLS  ); 
while  ( ptr  I*  EOF  ) 

while  ( i < 100  it  { string [ i ] - c - getc  ( fp  } ) !-  EOF  ) 

i++; 

string [ i ] - NULL; 

XmTextReplace  { txt_file,  ptr,  ptr,  string  ); 
if  { c -=  EOF  ) 
ptr  * EOF; 

else 

{ 

ptr  +-  i; 
i - 0; 

} 

) 


/* 

* Close  the  file  and  setup  the  help  string. 


C b 


window Jo.c 


fclose(  fp  ); 


switch  { display^ 

{ 

case  HELP  : 


type  ) 

XtSetArg(  args[l],  XmNlabelString, 

XmStringLtoRC reate (Help_Txt_Str,  XmSTRING_DEFAULT_CHARSET) ) 


case  LIST 


break; 

XtSet Arg ( args(l],  XmNlabelString, 

XmSt  r IngLtoRCreate (List _Txt_Str, XmSTRING_DEFAULT _CHARSET) } 

break; 


) 


/* 

* Set  the  font  of  the  label  and  text  widgets. 

*/ 


XtSet Arg ( args[0],  XmNfontList , Fnt_List_Btn  ); 
XtSetValues ( lbl_help_txt , args,  2 ); 
XtSetValues ( txt_file,  args,  1 >; 

select_cursor { Shutt le_Cursor  ); 
process_popup { dlg_file,  WAIT  ); 


* 


* MODULE  NAME:  display_str(  displayj:ype,  st ringToDisplay  } 


* 


* 

* MODULE  FUNCTION: 

★ 

* Displays  a large  string  to  the  use  via  a scrolled  window  popup. 

* 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 


* Motif  Release  1.0  - 90/03/16 


/ 


void  display_str(  display_type,  strToDisplay  ) 

int  display_type; 

char  *strToDisplay; 


XmTextPosition  ptr  - XmTextGetLastPosit ion { txt_file  ); 

/* 

* Insert  the  new  string. 

*/ 

XmText Rep lace ( txt_file,  0,  ptr,  strToDisplay  ); 

switch  { display_type  ) 

{ ' 

case  HELP  : XtSetArg(  args[l],  XmNlabelString, 

XmStringLtoRCreate (HelpJTxt_St r, XmSTRING_DEFAULT_CHARSET) ) ; 

break; 

case  LIST  : XtSetArg(  args[l],  XmNlabelString, 

XmStringLtoRCreate (List _Txt_Str, XmSTRING_DEFAULT_CHARSET) ) ; 

break; 

) 


/* 

* Set  the  font  of  the  label  and  text  widgets. 
*/ 

XtSetArg ( args[0],  XmNfontList,  Fnt_List_Btn  ); 
XtSetValues ( lbl_help_txt , args,  2 ); 

XtSet Values ( txt_file,  args,  1 ); 

select_cursor ( Shutt le_Cursor  ); 
process_popup ( dlg_file,  WAIT  ); 


) 


* 


* MODULE  NAME:  displayWA{  stringToDisplay  ) 

* 

* 

* MODULE  FUNCTION: 

* 

* Routine  inserts  the  specified  text  string  into  the  Work  Area  text  widget  for 

* display  to  the  user. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

# 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

************★***************************< >****************************************/ 


void  displayWA { strToDisplay  ) 
char  *strToDisplay; 


{ 

select_cursor { Clock_Cursor  ); 
XmTextSetString ( txt_worka,  strToDisplay  ); 
select_cursor { Shuttle_Cursor  ); 

) 


window J.O.C 


* MODULE  NAME:  get_string<  prompt,  answer,  answe_size,  mult  inline 


* MODULE  FUNCTION: 

* 

* Processes  the  popup  which  prompts  the  user  to  enter  a string.  The  string  can 

* be  either  a single  line  string  (filename,  variable  name)  or  it  can  be  multi- 

* line  (Comp  Purpose) . 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 


int  get_string ( prompt,  answer,  answer_size,  multi_line  ) 

char  *answer, 

•prompt ; 

int  answer_size, 

multi  line; 


* If  the  response  from  the  user  can  be  multi-line,  then  setup  the 

* text  widget  and  button  defaults. 


if  { multi_line  ) 

{ 

XtSetArg{  args[0],  XmNshowAsDefault , FALSE  ); 
XtSetValues  ( btn_gok,  args,  1 ); 

XtSetArg(  args[0],  XmNact ivateCallback,  NULL  ); 
XtSetArg{  args[l],  XmNeditMode,  XmMULTI_LINE_EDIT  ); 
XtSetArg { args [23,  XmNrows,  5 ); 

XtSetArg ( args [3],  XmNcolumns,  80  ); 


• The  user's  response  can  only  be  a single  line,  setup  the  text 

* widget  and  button  defaults. 


XtSetArg ( args[0],  XmNshowAsDefault,  TRUE  ); 
XtSetValues  ( btn_go)c,  args,  1 ); 

XtSetArg ( args[0],  XmNdefaultButton,  btn_gok  ); 
XtSetValues { dlg_gstr,  args,  1 ); 

clear_popup [ 0 ] .closure  * (caddr_t)  G_OK; 

XtSetArg ( args[0],  XmNact ivateCallback,  clear_popup  ); 
XtSetArg(  args[l],  XmNeditMode,  XmSINGLE_LINE_EDIT  ); 
XtSetArg ( args [2],  XmNrows,  1 ); 

XtSetArg ( args [3],  XmNcolumns,  80  ); 


XtSetValues  ( txt_gst r_reply,  args,  4 ); 

XmTextSetMaxLength < txt_gstr_reply,  answer_size  ); 
XmTextSetString  { txt_gstr_reply,  NULLS  >; 


/* 

* Set  the  size  of  the  get_string  popup. 

V 

XtSetArg { args[0],  XmNheight,  250  ); 

XtSetArg { argsfl],  XmNwidth,  500  ); 

XtSetValues ( frm_gstr,  argsr  2 ); 

XtSetArg ( argsfO],  XmNlabelStr ing,  XmStringLtoRCreate (prompt, XmSTRING_DEFAULT_CHARSET)  ); 

XtSetValues ( lbl_gstr,  args,  1 ); 
process_popup { dlg_gstr,  WAIT  ); 

/* 

* Check  to  ensure  the  user  didn't  chose  to  abort,  get  the 

* string  entered  by  the  user  from  the  widget  • 

V 

if  { Get_Str_Stat  — ACCEPT  ) 

tmp  - XmTextGetSt ring { txt_gst r_reply  ); 
strcpy<  answer,  tmp  ); 

XtFree  ( tmp  ) ; 
rc  - ACCEPT; 

J 

else 

rc  - ABORT; 

XtUnmanageChi Id { dlg_gstr  ); 
return ( rc  ); 


* MODULE  NAME:  inform ( message  ) 


* 


* MODULE  FUNCTION: 

* 

* Displays  a message  to  the  user. 

* 

* 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

******★*********************************< 


void  inform ( message  ) 
char  *message; 


/* 

int  count  ■ 0; 

XmString  tcs; 

XEvent  event; 

tcs  » XmStr ingLtoRCreate  ( message,  XmSTRING_DEFAULT_CHARSET  ); 
XtSetArg ( args[0],  XmNmessageString,  tcs  ); 

XtSetArg(  args[l],  XmNdialogStyle,  XmDIALOG_APPLICATION_MODAL  ); 
XtSetValues  ( dlg_inform,  args,  2 ) ; 

XtManageChild ( dlg_inform  ); 

XmStringFree  ( tcs  ) ; 

while  { count++  < 5 ) 

{ 

XtNextEvent ( fievent  ) ; 

XtDispatchEvent { &event  ) ; 

) 


*/ 

) 


* 

* MODULE  NAME:  set_device_tgl { ) 

* 


windowjo.c 


* MODULE  FUNCTION: 


* Sets  the  state  of  the  backup  device  toggle  buttons, 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


Timothy  J.  Barton  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


REVISION  HISTORY: 

Motif  Release  1,0  - 90/03/16 

******* ********************************< >****************************************/ 


void  set_device_tgl () 

( 

disarm_toggle  { tgl__devl  ); 
disarm_toggle ( tgl_dev2  ); 
disarm_togg!e { tgl_dev3  ) ; 


switch  ( Device  ) 

{ 

case  DEVI:  arm_toggle{ 
break; 

case  DEV2 : arm_^toggle( 
break; 

case  DEV3:  arm_toggle ( 
break; 


} 


tgl_devl 

tgl_dev2 

tgl_dev3 


) ; 
) ; 
) ; 


window_io.c 


* 

★ MODULE  NAME:  set_f ont_tgl O 


* MODULE  FUNCTION: 

* 

* Sets  the  state  of  the  Work  Area  font  selection  toggle  buttons. 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

« Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


★ 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 


void  set_font_ tgl  () 

{ 

disarm_toggle  < tgl_wa_de 
disarm_toggle ( tgl_wa_ol 
disarm_toggle ( tgl_wa_o2 

switch  ( WorkA  ) 

{ 

case  DEFAULT 
case  OPTION l_FONT 
case  OPTION2  FONT 


) ; 
) ; 
) ; 


: arm_toggle ( tgl_wa_de  ) ; 
break; 

: arm_toggle{  tgl_wa_ol  ); 
break; 

: arm_toggle(  tgl_wa_o2  ); 
break; 


} 


} 


window Jo.c 

sippi 

* MODULE  NAME:  updateWA{  strToAppend  ) 

★ 

* 

* MODULE  FUNCTION: 

* 

* Adds  a new  token  to  the  Comp  currently  displayed  in  the  Work  Area. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

****************************************< >******** *******************************V 

void  updateWA{  strToAppend  ) 
char  * strToAppend; 

{ 

XmTextPosition  ptr; 

ptr  * XmTextGetLastPosit ion { txt_worka  ); 

XmTextReplace { txt_worka,  ptr,  ptr,  strToAppend  ); 
ptr  » XmTextGetLastPosit ion ( txt_worka  ); 

XmTextShowPosit ion ( txt_worka,  ptr  ); 


/★a**************************** ********♦♦<— 
* 

* MODULE  NAME:  user_ack ( message,  help_num 


* 

* 


window^io.c  • 


* MODULE  FUNCTION: 

* Displays  a message  to  the  user  and  waits  for  an  acknowledgement  from  the  user 

* that  the  message  was  read. 


* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* 

* 


* REVISION  HISTORY: 


* Motif  Release  1.0 


90/03/16 


void  user_ack(  message,  help_num  ) 

char  *message; 

int  help_num; 

{ 

/* 

* Set  the  context-sensitive  help  selection. 

V 

PopupHelp  - help_num; 

/* 

* Setup  up  the  message  to  display  to  the  user. 

*/ 

XtSetArg ( args[0],  XmN labelstring,  XmStringLtoRC reate (message, XmSTRING_DEFAULT_CHARSET)  ); 
XtSetValues ( lbl_ack,  args,  1 ); 

/* 

* Set  the  size  (width)  of  the  user_ack()  popup.  This  is  a pretty  ugly 

* method,  but  it  works. 

V 

if  ( SetNum  — 1 ) 

XtSetArg { args[0],  XmNwidth,  (150+ (5 *strlen (message) ) ) ); 

else 

XtSetArg ( args[0],  XmNwidth,  (200+ <8*strlen (message) ) ) ); 

XtSetValues ( frm_ack,  args,  1 ); 

select_cursor ( Shutt le_Cursor  ); 
process_popup ( dlg_ack,  WAIT  ); 

) 


fSfil 

III 

in 

* 

* FILE  NAME:  init_gp.c 

* 


* FILE  FUNCTION: 

* 

* This  file  contains  the  routines  which  initialize  the  X Windows  connections  and 

* define  the  X Windows  widgets. 


* 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* FILE  MODULES: 


* build_get_name () 

* get_defaults ( ) 

* init_graphics {) 

* name_to_pixel () 

* select_cursor ( ) 

* se t_btn_de faults () 

* set  defaults  () 


- builds  the  get_name{)  popup 

- gets  the  defaults  for  sizes,  fonts,  colors,  etc. 

- builds  all  the  widgets  and  popups,  opens  connection  to  X 

- converts  a textual  name  to  an  X pixel  value 

- selects  the  specified  cursor  shape 

- sets  the  defaults 

- sets  defaults  for  the  popups  and  main  screen  forms 


/ 


♦include 

♦include 

♦include 

♦Include 

♦include 

♦include 

♦Include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


otdio  .h> 

<X11/ Intrinsic ,h> 
<Xll/cursorfont ,h> 
<X11/Shell.h> 
<Xm/Xm .h> 
<Xm/mwm.h> 
<Xm/Form.h> 
<Xm/MainW.h> 
<Xm/DialogS .h> 
<Xm/MessageB ,h> 
<Xm/RowColumn ,h> 
"code .h" 

"create .h" 

"widgets .h" 
"pixmapa .h" 
"cbr__popups  .h" 


/* 

* File  globals. 
*/ 


Arg  args[10]; 

char  Comp^Str  [200], 

Group_Str  [200], 

*hello_str, 

*name_atr, 
devl_str [40] , 
dev2_str [40] , 
dev3_str [40] , 
de_str  [20], 
ol_str  [20], 
o2_str  [20] , 

f ont__dsp_st r [ ] - "abcdef  ABCDEF  1234567890", 

help_str[]  * "Select  the  button  to  display  HELP  for", 
tmp_strl []  - " Name  Disposition", 

tmp_str2[]  ■ " 


* Function  prototypes. 
*/ 


Pixel  name_tojpixel  {) 


/★***************************************< 

* 

* MODULE  NAME:  build_get_name ( ) 

* 

* 


* MODULE  FUNCTION: 


* This  routine  builds  the  get  comp/group  name  popup. 

* 


* 

* SPECIFICATION  DOCUMENTS: 

* 


* /code/specs/code 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


Timothy  J.  Barton  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

************************★***************< >*★**************************************/ 


void  build_get_name ( ) 

{ 

/* 

* Build  the  two  strings,  one  for  groups  and  one  for  comps. 
*/ 


strcpy{  Group_5tr, 
street  ( Group_Str, 
streat ( Group_Str, 
streat { Group_Str, 


"List ing 
tmp_strl 
tmp_strl 
tmp_strl 


of  Available 
) ; streat ( 
) ; streat ( 
) ; 


Groups\n\n\n"  ) ; 
Group_Str,  tmp_str2  ) ; 
Group_Str,  tmp_str2  ) ; 


strcpy{  Comp_Str, 
streat  ( Comp_Str, 
streat ( Comp_Str, 
streat ( Comp_Str, 


"Listing  of 
tmp_strl  ) ; 
tmp_strl  ) ; 
tmp_strl  ) ; 


Available  Comps\n\n\n"  ); 

streat { Comp_Str,  tmp_str2  ); 
streat ( Comp_Str,  tmp_str2  ); 


/* 

* Build  the  popup  dialog  and  related  form  and  label  widgets. 
*/ 


dlg_ gname  * cr_popup(  NULLS,  top  ); 

frm_gname  » cr_form  ("frm_gname",  dlg_gname,  NULL,  NULL  ); 

lbl_gname  - cr_label ( " lbl_gname",  frm_gname,  Group_Str,  0,  0,  18,  0,  100  ); 

/* 

* Build  the  scrolled  window  widget  and  row  column  widget  which  will  contain 

* a button  for  each  of  the  comp/group  names. 

V 


XtSetArg ( 
XtSetArg ( 
XtSetArg ( 
XtSetArg ( 
XtSetArg ( 
XtSetArg ( 
XtSetArg ( 
XtSetArg { 
XtSetArg { 
scr_gname 


args  [0] , 
args [1] , 
args [2] , 
args  [3] , 
args  [4] , 
args [5] , 
args [6] , 
args [7] , 
args [8] , 


XmNtopAttachment , XmATTACH_POSITION 

XmNtopPosit ion,  20  ); 

XmNscrollBarDisplayPolicy,  XmAS_NEEDED) ; 


XmNscrollingPolicy, 
XmNright Attachment, 
XmNle ft Attachment, 
XmNbottomAttachment, 
XmNbottomPosition, 
XmNvisualPolicy, 


XmAUTOMATIC) ; 
XmATTACH_FORM  ) ; 
XmATTACH_FORM  ) ; 
XmATTACH_POSITION 
02  ) ; 

XmCONSTANT  ); 


) ; 


) ; 


XtManageChild < scr_gname  ), 


XmCreateScrolledWindow ( frm_gname,  "scr_gname",  args. 


9 ) ; 


rcl_gname  * cr_rowcol { NULLS, scr_gname,  3,  XmVERTICAL  ); 
XtSetArg  ( args[0],  XmNworkWindow,  rcl_gname  ); 
XtSetValues(  scr_gname,  args,  1 ); 


/* 


Build  the  separator  and  control  buttons. 


init_gp.c 


sep— gname 
btn_ gname_c 
btn_gname_h 


cr  separator  (NULLS,  frm_gname , 87,  89,  0,  100  ); 

cr~rel_cmd  (NULLS, frm  gname,  "Cancel",  clear_get_name,  ABORT,  92,  15); 
cr~rel~cmd  (NULLS, frm_gname, "Help",  clear_get_name,  GN_HELP,  93,  70); 


set _btn_de faults ( btn_gname_c,  DEFAULT  ); 
set  btn  defaults ( btn_gname_h,  FALSE  ); 


XtSet  Arg  ( args[0],  XmNde  faultButton,  btn_gnarr\e_c  ); 

XtSetValues ( dlg_gname,  args,  1 ); 

XtSetArg (args [0] , XmN labelstring, XmStringLtoRC reate (Group_Str, XmSTRING_DEFAULT_CHARSET) ) 
XtSetValues ( lbl_gname,  args,  1 ); 


XtSetArg ( args[0],  XmNtitle,  " " ) ; 

XtSetValues ( XtParent (dlg_gname) , args,  1 ); 


/***********★★***************************< 


init__gp.C 

>**************************************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


MODULE  NAME:  getjdef ault s ( ) 

MODULE  FUNCTION: 

Determines  the  defaults  for  the  fonts,  sizes,  and  colors  of  the  X Windows 
widgets . 

SPECIFICATION  DOCUMENTS: 

/code/specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 


* 

* 

* 

* 


REVISION  HISTORY: 
Motif  Release  1,0 


90/03/16 


void  get_defaults () 

{ 

char  *set_name; 

/* 

* Get  the  insensitive  token  color,  if  not  found,  set  the  default  anyway. 
*/ 

EL_IColor  - XGet Default (display, name_str , "EL_IColor") ; 
if  ( EL_IColor  « NULL  ) 

{ 

EL_IColor  » (char  *)  malloc (sizeof (char)  * 20  ); 
strcpy ( EL_IColor,  "lightgray"  ); 

) 


/* 

* Get  the  default  fonts,  if  not  found,  set  them  anyway. 

V 

strcpy(  Font_Default , "fixed"  ); 

Font_Opt ionl  - XGetDefault (display, name_str, "OptFontl") ; 
if  ( Font_Optionl  --  NULL  ) 

{ 

Font^Opt ionl  - (char  *)  malloc (sizeof (char)  * 10  }; 
strcpy ( Font_Opt ionl,  "6x10"  ); 

) 

Font_Option2  - XGetDefault  (display,  name_str,  "OptFont2")  ; 
if  ( Font_Option2  — NULL  ) 

{ 

FontJDption2  - (char  *)  malloc (sizeof (char)  * 10  ); 
strcpy(  Font_Opt ion2,  "9x15"  ); 

} 

/* 

* Get/set  the  button,  status  area,  and  work  area  sizes  and  fonts  for 

* Set 1 . 

V 


set_name  - XGetDefault  ( display,  name_str,  "SetName"  ); 
if  ((set_name  »-  NULL)  i|  { ! strncmp (set_name, "Set  1", 4) ) ) 
{ 

SetNum  * 1; 

BT_Width  - 50; 

EL  Width  - 250; 


FM  Width 


init_gp.c 

atoi (XGetDefault (display, name_str, MFM_Width_Setl" ) ) , 


BT  Height  = 20; 

EL_Height  - atoi (XGetDefault (display, name_str, "EL_Height_Set 1") ) ; 
ST_Height  - atoi (XGetDefault (display, name_str, "ST_Height_Set 1") ) ; 
WAJieight  - atoi (XGetDefault (display, name_str, ”WA_Height_Setl") ) ; 

strcpy(  BT_Font , "fixed”  ); 
strcpy ( EL_Font,  "fixed”  ); 

ST_Font  = XGetDefault (display, name_str, "ST_Font_Setl") ; 

WA_Font  - XGetDefault  (display,  name_str,  "WA_Font_Set 1")  ; 

} 


/* 

* Get/set  the  button,  status  area,  and  work  area  sizes  and  fonts  for 

* Set2 . 

*/ 


else 

{ 

SetNum  • 2; 


B?_Width  ■ 75; 

EL_Width  - 350; 

FM_Width  - atoi (XGetDefault (display,  name_str, "FM_Width_Set2") ) ; 
BT_Height  =30; 

EL_Height  - atoi (XGetDefault (display, name^str, "EL_Height_Set2"} ) ; 
ST^Height  - atoi (XGetDefault (display, name_str, "ST_Height_Set2") ) ; 
WA_H eight  - atoi (XGetDefault (display, name_str, "WA_Height_Set2") ) ; 

strcpy(  BT_Font,  "9x15"  ); 
strcpy ( EL_Font,  "9x15"  ); 

5T_Font  - XGetDefault (display, name_str, "ST_Font_Set2") ; 

WA_Font  - XGetDefault (display, name_str, "WA_Font_Set2") ; 

) 


/* 

* Setup  font  of  push  buttons. 

V 

load  font  ( BT_Font,  *Fnt_List_Btn  ); 


* MODULE  FUNCTION: 


* 

* This  function  initializes  the  connection  to  the  X server  and  builds 

* screen  widgets.  This  functions  calls  functions  to  set  the  defaults 

* and  then  makes  a call  to  X to  Realize  the  main  screen. 


all  of  the  main 
for  the  widgets 
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void  init_graphics ( argc,  argv  ) 


int 

argc; 

char 

**argv; 

Pixel 

background, 

foreground; 

Pixmap 

pixmap; 

X Image 

* image ; 

Widget 

f rm_elmnt ; 

XtToolkitlnit ialize  () ; 

display  - XtOpenDisplay { NULL,  NULL,  argv[0],  "CODE",  NULL,  0,  targe,  argv  ); 
if  ( ! display  ) 

{ 

XtWarning { "CODE : Can't  open  display."); 
exit  (0) ; 

) 


name_str  » argv[0]; 

/* 

* Create  top  level  shell. 

*/ 

top  - XtAppC re ate Shell)  argv[0],  "CODE",  applicationShellWldgetClass,  display,  NULL,  0) ; 
XtManageChild ( top  ); 

win_main  - XmCreateMainWindow ( top,  "win_main",  NULL,  0 ); 

XtManageChild ( win_main  ); 

/* 

* Determine  defaults. 

*/ 

get_de faults  ()  ; 

/* 

* Create  the  main  window  menu  bar. 

*/ 


mnb  main  - XmCreateMenuBar ( win_main, 
XtManageChild { mnb_main  ); 


init_gp.c  ; 

"mnb  main",  NULL,  0 j ; 


/* 

* Create  the  main  window  pull  down  menu. 

*/ 


mnu_f lie 
mnu_edit 
mnu_list 
mnu_ opt 
mnu_help 


XmCreatePulldownMenu  { mnb__main, 
XmCreatePulldownMenu ( mnb_main, 
XmCreatePulldownMenu ( mnb_main, 
XmCreatePulldownMenu ( mnb_main, 
XmCreatePulldownMenu ( mnb_main, 


"mnu_f ile" , 
"mnu^edit" , 
"mnu_list " , 
"mnu_opt ", 
"mnu_help" , 


NULL,  0 ) ; 
NULL,  0 ) ; 
NULL,  0 ) ; 
NULL,  0 ) ; 
NULL,  0 ) ; 


btn_file 

m 

cr 

^cascade  { 

NULLS, 

mnb_main. 

mnu_ 

_f ile. 

f Ff  , 

"File" 

btn_edit 

m 

cr_ 

_cascade  ( 

NULLS, 

mnb_main. 

mnu_ 

edit , 

'E', 

"Edit" 

btn_listf 

* 

cr- 

_cascade ( 

NULLS, 

mnb_main. 

mnu_ 

‘list. 

' L'  , 

"List" 

btn_opt 

m 

cr_ 

_cascade { 

NULLS, 

mnb^main. 

mnu_ 

_opt. 

'O', 

"Options 

btn_help 

m 

cr_ 

cascade ( 

NULLS, 

mnb_main, 

mnu_ 

_help. 

' H' , 

"Help" 

w[ CREATE] 
w [SAVE] 
w [COPY] 
w (PRINT] 
w [BACKUP] 
w [REMOVE] 
w[ INSTALL] 
w [RETRIEVE] 
separatorl 
w [QUIT] 


cr_command{  NULLS,  mnu_file, 
cr  command ( NULLS,  mnu_file, 
cr_command{  NULLS,  mnu_file, 
cr_command{  NULLS,  mnu_file, 
cr  command ( NULLS,  mnu_file, 
cr_ command ( NULLS,  mnu_file, 
cr^command ( NULLS,  mnu_file, 
cr_command ( NULLS,  mnu_file, 
cr_ separator (NULLS , mnu^file, 
cr  command { NULLS,  mnu_file. 


"Create",  code_menu,  CREATE  ) ; 

"Save",  code_menu,  SAVE  ) ; 

"Copy",  code_menu,  COPY  ); 

"Print",  code_menu,  HARDCOPY  ) ; 

"Backup",  code_menu,  BACKUP  ); 

"Remove",  code_menu,  REMOVE  ) ; 

"Install",  code_menu,  INSTALL  ); 
"Retrieve",  code_menu,  RETRIEVE  ); 

IGNORE,  IGNORE,  IGNORE,  IGNORE  ); 
"Quit",  code_menu,  QUIT  ); 


/* 

* Initialize  mnemonics  for  selected  action  buttons. 

*/ 


XtSetArg ( args[0],  XmNmnemonic,  'S'); 

XtSetArg ( args[l],  XmNacceleratorText , XmStringCreateLtoR ("F6",  XmSTRING_DEFAULT_CHARSET) ) 
XtSetArg ( args [2],  XmNaccelerator,  "<Key>F6:"); 

XtSetValues ( w[SAVE],  args,  3 ); 

XtSetArg ( args[0],  XmNmnemonic,  'I'); 

XtSetArg ( args[l],  XmNacceleratorText,  XmStringCreateLtoR ("F5",  XmSTRING_DEFAULT_CHARSET) ) 
XtSetArg ( args [2],  XmNaccelerator,  "<Key>F5:"); 

XtSetValues ( w[ INSTALL],  args,  3 ); 

XtSetArg ( args[0],  XmNmnemonic,  'R'); 

XtSetArg ( args [1] , XmNacceleratorText,  XmStringCreateLtoR <"F2",  XmSTRING_DEFAULT_CHARSET) ) 
XtSetArg ( args [2],  XmNaccelerator,  "<Key>F2:"); 

XtSetValues { w [RETRIEVE],  args,  3 ); 


XtSetArg ( args[G],  XmNmnemonic,  ' Qf ) ; 

XtSetArg{  argsfl],  XmNacceleratorText,  XmStringCreateLtoR ("Fl",  XmSTRlNG_DEFAULT_CHARSET) ) 
XtSetArg ( args [2],  XmNaccelerator,  "<Key>Fl:"); 

XtSetValues { w[QUIT],  args,  3 ); 


/* 

* Build  remaining  action  buttons. 
*/ 


btn_cycle 
btn_MSID 
btn_signl 
btn  funct 


cr_command ( NULLS,  mnu_list, 
cr_ command ( NULLS,  mnu_list, 
cr_ command ( NULLS,  mnu_list, 
cr  coiwnand ( NULLS,  mnu_list, 


"Comp  Cycle  Modes", 
"MSIDs", 

"Signals", 

"User  Functions", 


code_menu, 

code_menu, 

code_menu, 

code_menu. 


LISTJ3YCLE)  ; 
LIST__MSID  ) ; 
LIST_SIGNAL  ) ; 
LIST  FUNCT  ) ; 


btn_font 

* 

cr_ 

command ( 

NULLS, 

mnu_opt. 

"Set  Fonts", 

code_menu,  FONTS  ) ; 

btn_device 

m 

cr_ 

command ( 

NULLS, 

mnu_opt , 

"Set  Backup  Device",  code_menu,  DEVICE  ); 

w[ DELETE] 

m 

cr_ 

_command ( 

NULLS, 

mnu_edit , 

"Delete", 

code_menu, 

DELETE  ) ; 

btn_vi 

m 

cr_ 

command ( 

NULLS, 

mnu_edit , 

"Vi", 

code_menu. 

EDIT  ) ; 

btn_tokens 

m 

cr_ 

command ( 

NULLS, 

mnu_help. 

"Token  Help", 

code_menu , 

HELP  TOKENS  ) ; 

btn_manual 

m 

cr_ 

_command ( 

NULLS, 

mnu_help, 

"Browse  Manual", 

code  menu. 

HELP  MANUAL) ; 

/* 

* Initialize  mnemonics  for  remaining  action  buttons. 

V 


XtSetArg ( args[0],  XmNmnemonic,  'D'); 

XtSetArg ( args[l],  XmNacceleratorText,  XmStringCreateLtoR { "F3" , XmSTRING_DEFAULT_CHARSET) ) 
XtSetArg ( args [2],  XmNaccelerator,  "<Key>F3:"); 


init^gp.c 


XtSetValu es<  w [DELETE],  args,  3 ); 


XtSetArg ( args(0],  XmNmnemonic,  'v'),‘ 

XtSetArg  ( args[l] , XmNacceleratorText , XmStringCreateLtoR ("F4'\  XmSTRING_DEFAULT_CHARSET)  ) ; 
XtSetArg  { args  [2],  XmNaccelerator,  "<Key>F4  : ") ; 

XtSetValues ( btn_vi,  args,  3 ); 

/* 

* Build  Comp  Tokens. 


form 

frame 

frm_elmnt 

frm_funct 

frm_opt 

lbl_funct 

lbl_logic 

lbl_var 

1 blooper 

lbl_actn 

lbl_math 

lbl_opt 

tgl_cycle 

tgl_lshot 

sep^logic 
rcl_logic 
w ( IF] 
w [THEN] 
w [ELSE] 
w[END_IF] 
w [ AND] 
w [OR] 
w [NOT] 
w[BITAND] 
w[BITOR] 
w EBITXOR] 

aep_var 
rcl_var 
w[MSID] 
w [SIGNAL] 
w [LOCAL] 
w [NUMBER] 
wESTRING] 

sep_oper 

rcl_oper 


. 

cr_form  ( 

"form",  win_ 

main,  NULL 

, NULL  ) ; 

- 

cr_frame ( 

"frame",  form 

I,  NULL 

, NULL  ) ; 

cr_form  ( 

NULLS, 

frame. 

NULL,  NULL  ) 

9 

. 

cr_form  ( 

" f rm_funct ", 

frm_elmnt , 

NULL,  NULL  ) 

9 

« 

cr_form  ( 

"f rm_opt". 

f rm_elmnt , 

NULL,  NULL  ) 

9 

a 

cr_label ( 

"lbl  funct", 

frm_funct , 

"COMP  Elements", 

1, 

i, 

7, 

1, 

97  ) 

. 

cr_label ( 

"lbl_logic", 

f rm_funct , 

"Logic" , 

0, 

9, 

12, 

1, 

99  ) 

m 

cr_label < 

" lbl_varn , 

f rm_funct , 

"Variable", 

o. 

28, 

31, 

1, 

99  ) 

« 

cr_label ( 

M lbl_oper". 

f rm_funct , 

"Relational", 

0, 

41, 

44, 

1, 

99  ) 

m 

c relabel { 

" lbl_actn". 

f rm_funct, 

"Action", 

0, 

54, 

57, 

1, 

99  ) 

- 

cr_label { 

" lbl_math", 

frm_funct, 

"Math", 

0, 

72, 

75, 

1, 

99  ) 

m 

cr_label  ( 

"lbI_opt", 

f rm_ opt , 

"COMP  Options", 

1, 

1, 

40, 

1, 

97  ); 

m 

cr_toggle  { 

Mtgl_cycle", 

f rm_opt , 

"Cyclic", 

code_menu. 

TGL 

CYCLE, 

- 

cr_toggle { 

"tgl_lshot", 

frm_opt , 

"One-Shot", 

code_menu. 

TGL 

J.SHOT, 

. 

cr_separator { NULLS, 

frm_funct,  13,  14,  1, 

97 

>; 

cr  rowcol  {"rcl_logic",  frm__funct,  2,  XmHORIZONTAL  ); 
cr_command ( 
cr_command { 
cr_command ( 
cr_command ( 
cr_command ( 
cr_command ( 
cr_command ( 
cr_command ( 
cr_command ( 
cr  command ( 


cr_separator { NULLS, 
cr_rowcol  { "rcl_var",  frm_funct,  1, 
cr__command{  NULLS,  rcl_var,  "MSID", 
cr_command ( NULLS,  rcl_var,  "signal", 
cr_command(  NULLS,  rcl_var,  "local", 
cr_command[  NULLS,  rcl_var,  "number", 
cr  command { NULLS,  rcl  var,  "string". 


rcl_logic. 

"if". 

code^ 

jnenu. 

IF  ) ; 

rcl_logic. 

"then", 

code_ 

_menu, 

THEN  ) ; 

rcl_logic, 

"else". 

code_ 

jnenu, 

ELSE  ) ; 

rcl_logic, 

"endif ", 

code_ 

jnenu, 

END  IF 

) ; 

rcl_logic, 

"and". 

code_ 

jnenu , 

AND  ) ; 

rcl_logic, 

"or". 

code_ 

jnenu, 

OR  ) ; 

rcl_logic. 

"not". 

code_ 

_menu, 

NOT  ) ; 

rcl_logic, 

"bitAnd", 

code_ 

_menu , 

BITAND 

); 

rcl_logic, 

"bitOr", 

code 

jnenu, 

BITOR  ) 

9 

rcl_logic, 

"bitXor", 

code 

jnenu, 

BITXOR 

) ; 

1,  f rm_ 

funct,  32, 

33,  : 

1,  97 

); 

XmHORIZONTAL  ) ; 
code_menu,  MS ID  > ; 
code_menu,  SIGNAL  ) ; 
code_menu,  LOCAL  ) ; 
code_menu,  NUMBER  ) ; 
code  menu,  STRING  ) ; 


cr__separator  { NULLS, 
cr  rowcol  { "rcl_oper" 


frm_funct,  45,  46,  1,  97  ); 
frm  funct,  1,  XmHORIZONTAL  ); 


w [EQ] 

- 

cr_ 

^command ( 

NULLS,' 

rcl_oper, 

it  _ n 

r 

code_ 

jnenu, 

EQ 

) 

w [NE] 

a* 

cr_ 

^command ( 

NULLS, 

rcl_oper. 

It 

A 

V 

c 

code_ 

jnenu, 

NE 

) 

w[LE] 

- 

cr_ 

jrommand ( 

NULLS, 

rcl_oper, 

code_ 

jnenu, 

LE 

) 

w [GE] 

m 

cr 

command { 

NULLS, 

rcl_oper. 

* 

1 

A 

K 

code_ 

jnenu, 

GE 

) 

w [LT] 

- 

cr  command { 

NULLS, 

rcl_oper, 

*» , n 

N , 

code^ 

jnenu. 

LT 

) 

w [GT] 

- 

cr_ 

_command ( 

NULLS, 

rcl_oper. 

">  ", 

code_ 

jnenu. 

GT 

) 

sep_actri 
rcl_actn 
w [SET] 
w [PRINT] 
w [FUNCTION] 
w [COMMENT] 
w[ START ] 
w [STOP] 

sep_math 
rcl  math 


cr_separator ( NULLS, 


frm  funct,  58,  59,  1,  97  ); 


cr^rowcol 
c r_command ( NULLS , 
cr_command { NULLS, 
cr_command ( NULLS, 
cr_command(  NULLS, 
cr_command{  NULLS, 
cr  command { NULLS, 


( "rcl_actn",  frm^funct,  2, 


rcl_actn, 
rcl_actn, 
rcl_actn, 
rcl_actn, 
rcl_actn, 
rcl  actn. 


'set' 
"print", 
"function" 
"comment", 
"start", 
"stop". 


XmHORIZONTAL  >; 
code_menu,  SET) ; 
code_menu, 
code_menu, 
code_menu, 
code_menu, 
code  menu. 


PRINT  ) ; 
FUNCTION  ); 
COMMENT  ) ; 
START  ) ; 
STOP  ) ; 


cr_separator ( NULLS, 
cr  rowcol  { "rcl  math". 


frm_funct,  76, 
frm  funct,  4, 


77,  1,  97  ) ; 
XmHORIZONTAL  ) ; 


w [ADD] 

■ 

cr_command ( 

NULLS,' 

rcl_ 

jnath. 

code_menu. 

ADD  ) ; 

w [SUBTRACT] 

m 

cr^command ( 

NULLS, 

rcl 

jnath. 

■ 

t 

code^menu. 

SUBTRACT  ) ; 

w [MULTIPLY] 

m 

cr_command ( 

NULLS, 

rcl 

jnath. 

* *« 

* 

code_menu. 

MULTIPLY  ) ; 

w [DIVIDE] 

- 

cr_command ( 

NULLS, 

rcl 

jnath. 

code_menu. 

DIVIDE  ) ; 

^ w [ L_P AREN  ] 

cr_command ( 

NULLS, 

rcl 

jnath, 

code_menu, 

L PAREN  ) ; 

w[R  PAREN] 

- 

cr_command ( 

NULLS, 

rcl 

jnath. 

code_ menu. 

R~PAREN  ) ; 

w [COMMA] 

- 

cr_command ( 

NULLS, 

rcl 

jnath. 

■ w 

f , 

code^menu. 

COMMA  ) ; 

W[PI] 

m 

cr_command ( 

NULLS, 

rcl^ 

jnath, 

"PI", 

code^menu, 

Pi  ); 

w[SQRT] 
w [POWER] 
w [EXP] 
w [SHIFTL] 
w [SHIFTR] 
w [ LOG  ] 
w [COS] 
w [SIN] 


w [TAN] 
w [ACOS ] 
w [ AS IN ] 
w [ATAN] 


m cr— command ( NULLS, 
» cr_command { NULLS, 
« cr_command(  NULLS, 

- cr_command ( NULLS, 

- cr_command(  NULLS, 
m cr  command ( NULLS, 
» cr_command{  NULLS, 

- cr_command{  NULLS, 

- cr_command(  NULLS, 

- cr_command ( NULLS, 

- cr_command(  NULLS, 
* cr  command { NULLS, 


rcljnath, 

rcl_math, 

rcl__math, 

rcl_math, 

rcl_math, 

rcl_math, 

rcl_math, 

rcl_math, 

rcl_math, 

rcl_math, 

rcl_math, 

rcl_math, 


iopi 


” sqrt 11 , 

"power”, 

"exp", 

"shiftL", 

"shiftR", 

"log”, 

"cos" , 

"sin", 

"tan", 

"acos", 

"asin", 

"atan". 


code_menu, 

code_menu, 

code_menu, 

code_menu, 

code_menu, 

code_menu, 

code_menu, 

code_menu, 

code^menu, 

code_menu, 

code_menu, 

code_menu. 


SQRT) ; 
POWER)  ; 
EXP)  ; 
SHIFTL) ; 
SHIFTR) ; 
LOG) ; 
COS)  ; 
SIN)  ; 
TAN)  ; 
ACOS)  ; 
ASIN)  ; 
ATAN) ; 


txt_status 
txt  worka 


cr  text ("txt_status", form,  frame,  NULL,  NULLS,  NO_SCROLL,  1, 

cr~text ("txt_worka" , form,  frame,  txt_status,  NULLS,  SCROLL_BARS,  25, 


/* 

* Build  ask()  popup  dialog. 
*/ 


dig  ask  - cr_popup ( NULLS,  top  ); 

frirTask  - cr_form  { "frm^ask",  dlg_ask,  NULL,  NULL  ); 

image  - CreateDefault Image  (questionBit s,  22,  22); 

Xmlnstalllmage  (image,  "quest ion_img" ) ; 

XtSetArg ( args[Q],  XmNf oreground,  £ foreground  ); 

XtSetArg ( args[l],  XmNbackground,  ^background  ); 

XtGetValues ( dlg_ask,  args,  2 ); 

pixmap  - XmGetPixmap ( XtScreen (dlg_ask) , "quest ion_img",  foreground,  background  ) 

pix  ask  - cr  pixmap  ("pix_ask",  frm_ask,  tpixmap,  0,  IGNORE,  1,  IGNORE  ) ; 

lbl_ask  » cr^label  ("lbl_ask",  frm_ask,  NULLS,  0,  0,  IGNORE,  0,  100  ); 

sep- ask  ■ cr_separator ( NULLS,  frm_ask,  40,  45,  0,  100  ); 

btn  ask  y - cr_rel_cmd ( "btn_ask_y",  f rm_ask, " YES",  clear_popup, ASK^YES, 
btn  ask  n * cr  rel  cmd  ( "btn__ask_n",  f rm_ask,  "NO" , clear_popup, ASK_NO, 

btn^ask~h  » cr^rel^cmd ("btn_ask_h",  frm_ask, "Help”,  show_help,  ASK_HELP, 

/* 

* Build  user_ack()  popup  dialog. 

*/ 

dig  ack  * cr_popup(  NULLS,  top  ); 

frm  ack  * cr  form  { "frm_ack",  dlg_ack,  NULL,  NULL  ); 


61, 

15); 

65, 

45)  ; 

65, 

70)  ; 

image  - CreateDefaultlmage (infoBits,  11,  24); 

Xmlnstalllmage (image,  "info_img") ; 

XtSetArg ( args[0],  XmNforeground,  & foreground  ); 

XtSetArg ( args[l],  XmNbackground,  ^background  ); 

XtGetValues ( dlg_ack,  args,  2 ); 

pixmap  - XmGetPixmap ( XtScreen (dlg_ack) , "info_img",  foreground,  background  ); 

pix  ack  - cr  pixmap  ("pix_ack",  frm_ack,  spixmap,  0,  IGNORE,  1,  IGNORE  ); 

lbl”ack  - cr_label  ("lbl_ack”,  frm_ack,  NULLS,  0,  0,  IGNORE,  0,  100  ); 

sep“ack  - cr_separator ( NULLS,  frm_ack,  40,  45,  0,  100  ); 

btn  ack  y - cr  rel_cmd ("btn_ack_y”,  f rm_ack, "OK" , clearjpopup, USER_ACK,  61,  15) 
btn  ack  h - cr_rel_cmd { "btn_ack_h",  f rm_ack, "Help” , show_help,  USER_HELP,  63,  70) 


/* 

* Build  group/comp  selection  popup  dialog. 

*/ 


dig  gc  - cr_popup ( NULLS,  top  ); 

frm  gc  * cr^form  ( ”frm_gc",  dlg_gc,  NULL,  NULL  ); 


XtSetArg(  args[0],  XmNforeground,  ^foreground  ); 
XtSetArg { args[l],  XmNbackground,  ^background  ); 
XtGetValues ( dlg_gc,  args,  2 ); 


pixmap  - XmGetPixmap ( XtScreen (dlg_gc) , "quest ion_img",  foreground,  background  ); 

pix  gc  “ cr_pixmap  ("pix_gc”,  frm_gc,  spixmap,  5,  IGNORE,  1,  IGNORE  ); 

lbl~gc  - c relabel  ("lbl_gcM,  frm_gc,  NULLS,  0,  0,  40,  5,  100  ); 

aep_gc  * cr_separator ( NULLS,  frm_gc,  45,  50,  0,  100  ); 


80  ) 
80  ) 


btn_group 

btn_comp 

btn_gcc 

btn_gch 


init_gp.c 


cr  rel_cmd ("btn_group" , 
cr_rel_cmd ("btn_comp", 
cr_rel_cmd ( "btn_gcc" , 
cr  rel  cmd ( "btn^gch" , 


frm_gc, "Group", 

clear_popup,GC_ 

GROUP, 

71, 

10  ) ; 

frmjgc, "Comp", 

clear_popup,GC_ 

'COMP, 

73, 

30  ) ; 

frm_gc, "Cancel" , 

clear_popup, GC_ 

"cancel, 

73, 

50  } ; 

frm_gc, "Help", 

show_help,  GC_ 

'help, 

73, 

70  ); 

* Build  archive  function  popup  dialog. 

*/ 


dlg_arch  * cr_popup ( NULLS,  top  ); 

frm  arch  - cr_form  ( "frm_arcb",  dlg_arch,  NULL,  NULL  ); 


XtSetArg ( args[0],  XmNf oreground,  ^foreground  ); 
XtSetArg ( args[l],  XmNbackground,  ^background  ); 
XtGetValues ( dlg_arch,  args,  2 ); 


pixmap  * XmGetPixmap(  XtScreen (dlg_arch) , "quest ion_img" , foreground,  background  ); 


pix_arch  ■ 
lbl_arch  - 
sep_arch  ■ 
btn_read  - 
btn_list  - 
btn_write  • 
btn_cancel* 
btn_ahelp  - 


("pix_arch",  frm_arch,  fipixmap,  5, 


cr_pixmap 

cr  label  ("lbl_arch",  rrm_arcn 
cr  separator (NULLS,  frm_arch,  55, 
cr~rel  cmd (NULLS,  frm_arch, "Read" 
cr~rel~cmd (NULLS, 
cr_rel_cmd (NULLS, 
cr_rel_cmd (NULLS, 
cr  rel  cmd (NULLS, 


IGNORE,  I,  IGNORE  ); 
. IGNORE,  5,  100  ) ; 


frm_arch, "List", 
frm_arch, "Write" 
f rm_arch, "Cancel 
frm  arch, "Help", 


',  0,  100  ) ; 

clear_popup,  ARCH_READ, 

71, 

12) 

clear_popup,  ARCH_LIST, 

74, 

30) 

clear_popup,  ARCH_WRITE, 

74, 

45) 

clear  popup,  ARCH  CANCEL, 

74, 

60 ) 

showjielp,  ARCH_HELP, 

74, 

75) 

/* 

* Build  the  get_name()  popup  dialog. 

*/ 


build_get_name  {) ; 

/* 

* Build  the  display_f ile {)  popup  dialog. 

*/ 

dig  file  - cr_popup(  NULLS,  top  ); 

frm  file  » cr  form  ( "frm_file",  dlg__file,  NULL,  NULL  ); 

txt“file  - cr~text  (NULLS,  frm_file,  NULL,  NULL,"",  SCROLL_BARS,  20,  80  ); 

sep  file  - cr  separator (NULLS,  frm_file,  87,  89,  0,  100  ); 

btn  ok  - cr"rel  cmd  (NULLS,  frm_file,  "Close",  clear_popup, FILE_OK,  92,  15); 

btn'fhelp  - cr^reTcmd  (NULLS,  frm_file,  "Help",  show_help,  FILE_HELP,  93,  70); 

/* 

* Build  the  get_string()  popup  dialog. 

*/ 


dlg_gstr  - cr_popup ( NULLS,  top  ); 

frm  gstr  ™ cr_form  ( "frm^gstr",  dlg_gstr,  NULL,  NULL  ); 

lbl~gstr  - cr_label ("lbl_gstr" , frm_gstr,  NULLS,  0,  0,  IGNORE,  0,  100  ); 

txt  gstr  reply  * cr_frm_txt ("txt_gstr_reply",  frm_gstr,  NULL, NULL,  NO_SCROLL,  5 

sep_gstr  - cr_separator ( NULLS,  frm_gstr,  70,  75,  0,  100  ); 

btn  gok  - cr_rel  cmd ("btn_gok",  f rm_gstr, "Ok",  clear_popup,  G_OK,  81,  15); 

btn_gcancl  - cr^rel^cmd ("btn_gcancl" , frm_gstr, "Cancel" , clear_popup,  G_CANCL,  83,  45); 

btn_ghelp  - cr^rel^cmd ("btn_ghelp",  f rm_gstr, "Help",  show_help,  G_HELP , 83,  70); 


/* 

* Build  the  get_type()  popup  dialog. 
*/ 


dlg_type  * cr_popup(  NULLS,  top  ); 

frm_type  * cr_form  { "frm_type",  dlg_type,  NULL,  NULL  ); 

XtSetArg ( args[0],  XmNforeground,  ^foreground  ); 

XtSetArg ( args[l],  XmNbackground,  fibackground  ); 

XtGetValues ( dlg_type,  args,  2 ); 

pixmap  - XmGetPixmap ( XtScreen (dlg_type) , "quest ion_img" , foreground,  background  ); 

pix_type  - cr_pixmap  ("pix_type",  frm_type,  fipixmap,  5,  IGNORE,  1,  IGNORE  ); 

lbl_type  - cr_label  ("lbl_type",  frm_type,  NULLS,  0,  0,  IGNORE,  5,  100  ); 

sep_type  - cr_separator ( NULLS,  frm_type,  55,  60,  0,  100  ); 

btn  tcancl  - cr_rel_cmd(  NULLS, frm_type, "Cancel", clear_popup,  T_CANCL,  71,  3); 


80  ) ; 


btn_int 

btn_f loat 

btn_double 

btn_char 

btn_short 

btn_thelp 


: : :i:.-  ini  t_gp  .0.. ; ; • x 

cr '' ' reT'cmd  ( NULLS  ‘ f rm_type , " Int " , ciear_popup, 
* cr_rel_cmd(  NULLS,  frm__type,  "Float",  clear_popup, 

- cr_rel_cmd ( NULLS, f rm_type, "Double" , clear_popup, 

- cr_rel  cmd(  NULLS, frm_type, "Char",  clear_popup, 

- cr~rel~cmd(  NULLS, frm_type, "Short " , clear_popup, 

- cr  rel  cmd ( NULLS, frm_type, "Help",  show_help. 


INTEGER, 

747^0) ; 

FLOAT, 

74,  34); 

DOUBLE, 

00 

CHAR, 

74,  62); 

SHORT, 

74,  76); 

T HELP, 

74,  90); 

/* 

* Build  helpO  popup  dialog. 

*/ 

dlg_help  - cr_popup(  NULLS,  top  ); 

frm_help  =»  cr_form  ( "frm_help",  dlg_help,  NULL,  NULL  ); 


XtSetArg ( args[0],  XmNforeground,  ^foreground  ); 

XtSetArg { args[l],  XmNbackground,  ^background  ); 

XtGetValues ( dlg_help,  arga,  2 ); 

pixmap  - XmGetPixmap ( XtScreen (dlg_help) , "quest ion_img",  foreground,  background  ); 

pix  help  m cr  pixmap  ( Mpix_help“,  frm__help,  fipixmap,  5,  IGNORE,  1,  IGNORE  ); 

lbl_help  - cr”label  (" lbl_help",  frinjielp,  help_str,  0,  10,  IGNORE,  5,  100  ); 

sep  help  * cr_separator (NULLS,  frm_help,  55,  60,  0,  100  ); 

btn  hip  c - cr  rel_cmd ( "btn_help_y",  frmjielp,  "Cancel",  clear_popup,  HELP_CANCEL,  71,  15); 
btn” hip  h - cr_rel_cmd { "btn_help_n” , f rm_help, "Help" , show_help,  HELP_HELP,  75,  70); 


/* 

* Build  help  text  popup  dialog. 
*/ 


dlg_help_txt  - cr_popup  ( NULLS,  top  ) ; 

frm  help  txt  - cr  form  ("frm_help_txt",  dlg_help_txt , NULL,  NULL  ); 

lbl  help_txt  - cr_label  ( " lbl_help_txt" , frm_help_txt , NULLS,  0,  0,  IGNORE,  0,  100  ); 

sep  help  txt  * cr separator (NULLS,  frm_help txt,  70,  75,  0,  100  ) , 

btn”help”txt  - cr“rel_cmd  (NULLS,  f rm_help_txt , "Close",  clear_popup,  HELP_CLOSE,  81,  39); 

/* 

* Build  the  font  selection  popup. 

*/ 


strcpy(  de_str, 
strcpy(  ol_str, 
strcpy(  o2_str, 

strcat { de_str, 
strcat ( ol_str, 
strcat ( o2_str. 


"Default:  " ); 

"Option  la  " ); 
"Option  2:  " ); 

Font_Default  ) ; 
Font_Optionl  ) ; 
Font_Option2  ) ; 


dlg_font 

frm_font 

lbl_fonts 

sep_fnt 


- cr_popup 

- cr_form 

* cr__label 

* cr_separator 


( NULLS,  top  ) ; 
("frm_font",  dlg_font, 
("lbl_fonts", frm_font, 
( NULLS,  frm_font. 


NULL,  NULL  ) ; 

"Set  Work  Area  Font", 
22,  25,  5,  95  ); 


0,  0,  20,  0,  100  ) ; 


tgl  wa_de  - cr_toggle ("tgl_wa_de", frm_font , de_str,  clear_popup, TGL_WA_DE,  TGL_WA_DE) ; 
tgl'wa^ol  - cr_toggle ("tgl_wa_ol", frm_font,  ol_str,  clear_popup, TGL_WA_Ol,  TGL_WA_Ol) ; 
tgl  wa_o2  - cr_toggle ("tgl_wa_o2", frm_font,  o2_str,  clear_popup, TGL_WA_02,  TGLJfA_02); 


lbl_fnt_de 

lbl_fnt_ol 

lbl_fnt_o2 

sep_fnt2 


cr_label  ("lbl_fnt_de",  frm_font,  font_dsp_str,  0,  29,  38,  31,  95  ); 
cr_ label  ("lbl_fnt_ol" , frm_font,  font_dsp_str,  0,  43,  52,  31,  95  ); 
cr_label  ("lbl_fnt_o2",  frm_font,  font_dsp_str,  0,  57,  67,  31,  95  ); 
cr  separator ( NULLS,  frm_font,  71,  74,  0,  100  ); 


btn_fn_ok 

btn_fn_cnl 

btn_fn_hlp 


cr_rel_cmd ("btn_fn_ok",  frm_font, "Apply", 
cr_rel~cmd ("btn_fn_cnl",  frm_font, "Cancel", 
cr_rel_cmd("btn_fn_hlp",  frm_font, "Help", 


clear_popup, 

clear_popup, 

show_help. 


FONT_ 

OK, 

83, 

15) 

font" 

"cancel. 

84, 

45) 

font" 

"help. 

84, 

71) 

/* 

* Build  the  backup  device  selection  popup. 

*/ 

strcpy(  devl_str,  "/dev/rflp  - MASSCOMP  floppy  " ); 

strcpy(  dev2_str,  "/dev/rctp  - MASSCOMP  1/4  inch  tape"  ); 

strcpy(  dev3_str,  "/dev/rst8  - SUN  1/4  inch  tape"  ); 

dlg__device  - cr_popup  ( NULLS,  top  ); 

frm_device  - cr_form  ( " f rm_device",  dlg_device,  NULL,  NULL  ); 


lbl_device 

sep_devl 


init_gp.c 

- cr  label ("lbl_dev ice",  frm  device,  "Set  Backup  Device",  6,  0,  20,  0,  100  ); 

- cr“separator{  NULLS,  frm_device,  22,  25,  5,  95  ); 


tgl_devl 

tgl_dev2 

tgl_dev3 

sep_dev2 


- cr_toggle (Htgl_devl", frm_device, 

- cr_toggle ("tgl_dev2", frm_device, 
« cr_toggle (”tgl_dev3n,  frm_device, 
* cr_separator ( NULLS,  frm_device. 


devl_str,  clear_popup,  TGL_DEV1,  TGL_DEV1) ; 
dev2_str,  clear_popup,  TGL_DEV2,  TGL_DEV2) ; 
dev3_str,  clear_popup,  TGL_DEV3,  TGL_DEV3) ; 
71,  74,  0,  100  ) ; 


btn_dev_ok  - cr_rel_cmd (NULLS, 
btn_dev_cnl  * cr_rel_cmd (NULLS, 
btn_dev_hlp  * cr_rel_cmd (NULLS, 


frm_ 

device. 

"Apply", 

clear_popup,  DEVICE_ 

OK, 

83, 

15) 

frm_ 

_device. 

"Cancel”, 

clear  popup,  DEVICE 

CANCEL, 

84, 

45) 

frm_ 

_device. 

"Help”, 

show_help,  DEVICE] 

‘help. 

84, 

71) 

/* 

* Build  "hello"  popup. 

V 


dlg_hello  * cr_popup(  NULLS,  top  ); 

frm_hello  * cr_form  ("frm^hello",  dlg_hello,  NULL,  NULL  ); 

image  - CreateDefault Image (shutt le_bits,  64,  64); 

Xmlnstall Image { image,  "shutt le_img") ; 

image  - CreateDefaultlmage (nasa_bits,  64,  64); 

Xmlnstall Image (image,  "nasa_img") ; 

XtSet Arg ( args[0],  XmNforeground,  ^foreground  ); 

XtSet Arg ( args[l],  XmNback ground,  ibackground  ); 

XtGetValues ( dlg_hello,  args,  2 ); 

pixmap  * XmGetPixmap { XtScreen (dlg_hello) , " shutt le_img",  foreground,  background  ); 
pix_shuttle  - cr_pixmap ("pix_shutt le",  frm_hello,  Spixmap,  10,  IGNORE,  4,  IGNORE  ); 

pixmap  * XmGetPixmap{  XtScreen (dlg_hello) , "nasa_img",  foreground,  background  ); 
pix_nasa  - cr_pixmap  (’'pix_nasaH,  frm__hello,  fipixmap,  10,  IGNORE,  IGNORE,  96  ); 

lbl_hello_t  - cr_label  (n  lbljielloj:", 
lbl_hello  * cr_label  (" lbl_hello", 
sep_hello  » cr_separator (NULLS, 
btn_hello  - cr_rel_cmd  (NULLS, 

/* 

* Set  defaults. 

*/ 

set_de faults  ()  ; 

/* 

* Setup  the  valid  choices. 

*/ 

color_valid{  PrevChoice [ChoiceCounter-1] , 99  ); 

/* 

* Assign  members  of  main  window.  Realize  screen. 

*/ 


frm  hello,  NULLS,  0,  5,  IGNORE,  15,  85  ); 
frm  hello,  NULLS,  0,  20,  IGNORE,  10,  90  ); 
frm~hello,  77,  82,  0,  100  >; 

frm_hello, "Begin",  clear_popup,  HELLO,  88,  45); 


XmMainWindowSetAreas { win_main,  mnb_main,  NULL,  NULL,  NULL,  form  ); 


XtRealizeWidget ( 
XtRealizeWidget ( 
XtRealizeWidget ( 
XtRealizeWidget ( 
XtRealizeWidget ( 
XtRealizeWidget ( 
XtRealizeWidget ( 
XtRealizeWidget ( 
XtRealizeWidget ( 
XtRealizeWidget ( 
XtRealizeWidget ( 


dlg_gc 

dlg_ack 

dlg_ask 

dlg_arch 

dlg_file 

dlg_font 

dlg_gstr 

dlg_help 

dlg_type 

dlg^gname 

dlg_device 


XtRealizeWidget { top  ); 


) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 


/* 

* Setup  sizes  and  fonts. 
*/ 


select_cursor ( Shutt le_Cursor  ); 


/* 

* Setup  toggles. 

*/ 

WorkA  * DEFAULT; 
set_font_tgl ( ) ; 

Device  * DEVI; 
set_device_tgl {)  ; 

/* 

* Display  welcome  popup. 
*/ 


init_gp.c 


XFlush{  display  ); 
process_popup ( dlg_hello,  WAIT  ); 


iniLgp.c 

>t**»***********»t*********************tt 

* 

* MODULE  NAME:  name_to_pixel { color  string  ) 

* 

* 

* MODULE  FUNCTION: 

* 

* Converts  a textual  name  of  a color  to  a Pixel  value. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 


* Motif  Release  1.0  - 90/03/16 


Pixel  name_to_pixel { name  ) 


char  *name; 


Colormap  colormap; 

XColor  color; 


colormap  - XDef aultColormap ( display,  DefaultScreen (display)  ); 

XParseColor ( display,  colormap,  name,  ficolor  ); 

XAllocColor { display,  colormap,  icolor  ); 


return { color. pixel  ); 


* 

* MODULE  NAME:  select_cursor { cursor  ) 


* MODULE  FUNCTION: 

# 

* Changes  the  cursor  to  the  specified  shape. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 


* Motif  Release  1.0  - 90/03/16 


void  select  cursor { cursor 


Cursor  cursor; 


XDefineCursor ( 
XDef ineCursor ( 
XDef ineCursor ( 
XDef ineCursor ( 
XDef ineCursor ( 
XDef ineCursor ( 
XDef ineCursor ( 
XDef ineCursor ( 
XDef ineCursor ( 
XDefineCursor ( 
XDef ineCursor ( 
XDefineCursor ( 


display, 

display, 

display, 

display, 

display, 

display, 

display, 

display, 

display, 

display, 

display, 

display, 


XtWindow (top) 
XtWindow (dlg_ 
XtWindow (dlg_ 
XtWindow (dlg_ 
XtWindow (dlg_ 
XtWindow <dig_ 
XtWindow (dlg_ 
XtWindow (dlg_ 
XtWindow (dlg_ 
XtWindow (dlg_ 
XtWindow (dlg_ 
XtWindow (dlg_ 


.gc) , 
ack)  , 
ask)  , 
arch)  , 
file)  , 
font) , 
gstr) , 
help) , 
type) , 
gname) , 
device) , 


cursor  ) 
cursor  ) 
cursor  ) 
cursor  ) 
cursor  ) 
cursor  ) 
cursor  ) 
cursor  ) 
cursor  ) 
cursor  ) 


XFlush { display  ); 


/********* **************** ****** **#*****★<, 
* 

* MODULE  NAME:  set_btn_def ault s {) 

* 


init__gp.c 


* MODULE  FUNCTION: 

* 

* Sets  the  defaults  for  the  popup  buttons. 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* 


* ORIGINAL  AUTHOR  AND 

* 

* Timothy  J.  Barton 

* 

* 

* 


IDENTIFICATION: 

- Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* 


* 


* REVISION  HISTORY: 


* Motif  Release  1.0  - 90/03/16 

* 


void  set_btn_de faults { widget,  def_widget  ) 

Widget  widget; 
int  def^widget; 


XtSet Arg ( args[0],  XmNwidth,  BTJtfidth  ); 

XtSetArg ( argsfl],  XmNheight,  BT_Height  ); 

\ y XtSetArg ( args [2],  XmNfontList,  Fnt_List_Btn  ); 

/* 

* If  the  widget  Is  the  default  for  the  popup,  highlight  it  with  a wider 

* boarder. 

*/ 


if  < def_widget  ) 

{ 

XtSetArg ( args[3],  XmNshowAsDefault , TRUE  ); 
XtSetValues(  widget,  args,  4 ); 

} 

else 

XtSetValues { widget,  args,  3 ); 


init_gp.c 


* MODULE  NAME:  set_def aults ( ) 


* MODULE  FUNCTION: 

* This  function  sets  the  defaults  for  the  main  screen  widgets  and  popup  widgets. 

* Defaults  such  as  size  and  position  are  set  in  this  routine  before  the  the 

* widgets  are  realized. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

**************************************** <- 


void  set  defaults () 


* Setup  cursors. 


Shuttle  Cursor  * XCreateFontCursor ( display,  XC_shuttle  ); 
Clock~Cursor  - XCreateFontCursor { display,  XC_watch  ); 
Help_Cursor  - XCreateFontCursor ( display,  XC_quest ion_arrow  ); 

XmSetMenuCursor  < display,  Shutt le_Cursor  ); 


* Setup  fonts  of  font  selection  popup. 


load_f ont ( Font_Default , &Fnt_List  ); 
XtSetArg ( args[0],  XmNfontList,  Fnt_List  ); 
XtSetValues { lbl_fnt_de,  args,  1 ); 

load_font ( Font_Opt ionl,  sFnt_List  ); 
XtSetArg ( args[0J,  XmNfontList,  Fnt_List  ); 
XtSetValues < lbl_fnt_ol,  args,  1 ); 

load_font(  Font_Option2,  tFnt_List  ); 
XtSetArg { args{0],  XmNfontList,  Fnt_List  ); 
XtSetValues ( lbl  fnt  o2,  args,  1 ); 


* Setup  defaults  of  the  Status  Area. 


load_font(  ST_Font,  fiFnt_List  ); 

XtSetArg { args[0],  XmNeditable,  False  ); 

XtSetArg ( args[l],  XmNsensit ive.  False  ); 

XtSetArg ( args [2],  XmN right Attachment,  XmATTACH_POSITION  ); 
XtSetArg ( args [3],  XmNrightPosit ion,  99  ) ; 

XtSetArg(  args [4],  XmNtopAttachment , XmATTACH_POSITION  ); 
XtSetArg ( args [5],  XmNtopPosit ion,  1 ); 

XtSetArg ( args [6],  XmNheight,  ST_Height  ); 

XtSetArg ( args [7],  XmNleftOf f set,  5 ); 

XtSetArg(  args [8],  XmNfontList,  Fnt_List  ); 

XtSetValues ( txt  status,  args,  9 ); 


* Setup  defaults  of 
*/ 


init_gp.c 

the  token  selection  frame. 


XtSetArg ( args[0],  XmN top Attachment, 
XtSetArg ( args[l],  XmNtopPosit ion, 
XtSetArg(  args [2],  XmN left Attachment, 
XtSetArg(  args[33/  XmNleftPosit ion, 
XtSetArg!  args  [4],  XmNbottomOf fset , 
XtSetArg!  args[5],  XmNwidth, 

XtSetArg!  args[6],  XmNheight, 
XtSetValues ( frame,  args,  7 ); 


XmATTACH_POSITION  ) ; 

i ) ; 

XmATTACH_POS IT ION  ) ; 

1 ) ; 

5 ); 

EL_Width  ) ; 
EL_Height  ); 


XtSetArg!  args[0],  XmNwidth,  FM_Width  ); 
XtSetValues!  form,  args,  1 ); 


/* 

* Setup  defaults  of  the  Work  Area. 
*/ 


XtSetArg!  args[0],  XmNeditable, 
XtSetArg!  args[l],  XmNsensit ive, 
XtSetArg!  args [2],  XmNrightAttachment , 
XtSetArg!  args [3],  XmNrightPosition, 
XtSetArg!  args [4],  XmNbottomAttachment , 
XtSetArg!  args [5],  XmNbottomPosit ion, 
XtSetArg!  args [6],  XmNheight, 

XtSetArg!  args [7],  XmNlef tOf f set , 
XtSetArg!  args [8],  XmNtopOf f set , 
XtSetValues!  XtParent !txt_worka) , args. 


False  ) ; 

False  ) ; 

XmATTACH_POS IT ION  ); 
99  ) ; 

XmATTACH  POSITION  ); 
99  ) ; 

WA_He ight  ); 

5 ) ; 

5 ) ; 

9 ) ; 


load_font{  WA_Font,  tFnt_List  ); 

XtSetArg!  args[0],  XmNfontList,  Fnt^List  ); 
XtSetValues!  txt_worka,  args,  1 ); 

XtSetArg!  args(0],  XmNmenuHelpWidget , btn_help  >; 
XtSetValues!  mnb_main,  args,  1 ); 


/* 

* Setup  defaults  for  Font  selection  popup. 

*/ 

set_btn_de fault s ! btn_fn_ok,  DEFAULT  ); 
set_btn_defaults ! btn_fn_cnl,  FALSE  ); 
set_btn_de fault s ! btn_fn_hlp,  FALSE  ); 

XtSetArg!  args[0],  XmN default But ton,  btn_fn_ok  ); 
XtSetValues!  dlg_font,  args,  1 ); 

XtSetArg!  args[0],  XmNtitle,  " " ); 

XtSetValues!  XtParent {dlg_font ) , args,  1 ); 

/* 

* Setup  defaults  for  Group/Comp  selection  popup. 
*/ 


set_btn_de faults ( btn_group,  DEFAULT  ) ; 
set_btn_de faults ( btn_comp,  FALSE  ); 
set_btn_defaults < btn_gcc,  FALSE  ); 
set_btn_defaults ! btn_gch,  FALSE  ); 

XtSetArg!  args[0],  XmNdefaultButton,  btn_group  ); 
XtSetValues!  dlg_gc,  args,  1 ); 

XtSetArg!  args[0],  XmNtitle,  " " ); 

XtSetValues!  XtParent !dlg_gc) , args,  1 ); 

/* 

* Setup  defaults  for  get_string  popup. 

*/ 

set_btn_defaults { btn_gok,  DEFAULT  ); 
set_btn_de faults ( btn_gcancl,  FALSE  ); 
set_btn_de faults { btn_ghelp,  FALSE  ); 


XtSetArg!  args[0],  XmNautoShowCursorPosit ion,  TRUE  ); 

XtSetArg!  args[l],  XmNcursorPositionVisible,  TRUE  ); 

XtSetArg!  args [2],  XmNcursorPosit ion,  1 ); 

XtSetArg!  args [3],  XmNblinkRate,  0 ); 


XtSetValues ( 


txt_gstr_reply. 


args, 


XtSetArg ( args[0],  XmNtitle,  " " 

XtSetValues!  XtParent (dlg_gstr) , args,  1 
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/* 

* Setup  defaults  for  ask()  popup. 

*/ 

$et_btn_de fault s ( btn_ask_y,  DEFAULT  ); 
set_btn_de fault s ( btn_ask_n,  FALSE  )? 
set_btn_defaults ( btn_ask_h,  FALSE  ); 

XtSetArg ( args(0],  XmNdef aultButton,  btn_ask_y  ); 
XtSetValues ( dlg_ask,  args,  1 ); 

XtSetArg ( args[0],  XmNtitle,  n M ) ; 

XtSetValues ( XtParent (dlg_ask) , args,  1 }; 


/* 

* Setup  defaults  for  user_ack()  popup. 

*/ 

set_btn_de fault s ( btn_ack_y/  DEFAULT  ); 
set_btn_defaults { btn_ack_h,  FALSE  ); 

XtSetArg ( args[0],  XmNde fault But ton,  btn_ack_y  ); 
XtSetValues ( dlg_ack,  args,  1 ); 

XtSetArg ( args[0],  XmNtitle,  * " ) ; 

XtSetValues { XtParent (dlg_ack) , args,  1 ); 


* Setup  defaults  for  display_f lie ()  popup. 

V 

set_btn_de fault s ( btn_ok,  DEFAULT  ); 

set_btn_<Je  faults  { btn_fhelp,  FALSE  ); 

XtSetArg ( args[0],  XmNdefaultButton,  btn_ok  ); 
XtSetValues ( dlg_file,  args,  1 ); 

XtSetArg { argsfO],  XmNeditable,  False  ); 

XtSetArg { args[l],  XmNsensit ive.  False  ); 
XtSetValues ( txt_file,  args,  2 ); 

XtSetArg ( args[0],  XmNtitle,  " " ); 

XtSetValues ( XtParent (dlg_file) , args,  1 ); 

/* 

* Setup  defaults  for  archive ()  popup. 

*/ 

set_btn_de fault s ( btn_read,  DEFAULT  ); 
set_btn_def ault s ( btn_list,  FALSE  ); 
set”btn_de faults ( btn_write,  FALSE  ); 
set_bt n_de fault s { btn_cancel,  FALSE  ); 
set”btn_defaults ( btn_ahelp,  FALSE  ); 

XtSetArg ( args(0],  XmNdefaultButton,  btn_read  ); 
XtSetValues ( dlg_arch,  args,  1 ); 

XtSetArg ( args {01,  XmNtitle,  " * ); 

XtSetValues ( XtParent (dlg_arch)  , args,  1 ); 

/* 

* Setup  defaults  for  helpO  popup. 

*/ 

set  btn_defaults { btn_hlp_c,  DEFAULT  ) ; 
set~btn_de faults ( btn_hlp_h,  FALSE  ); 

XtSetArg ( args[0],  XmNdefaultButton,  btn_hlp_c  ); 
XtSetValues ( dlgjielp,  args,  1 ); 

XtSetArg ( args[0],  XmNtitle,  " " ); 

XtSetValues ( XtParent (dlg_help) , args,  1 ); 


init_gp.c 


XtSetArg(  args[0]*  XmNmwmlnputMode,  MWM_INPUT_MODELESS 
XtSetValues ( XtParent (dlg_help) , args,  1 ); 


># 


/* 

* Setup  defaults  for  get_type()  popup. 
*/ 


set_btn_def ault s ( btn_short, 
set_btn_de fault s ( btn_int, 
set_btn_def aults ( btn_float, 
set_btn_de fault s ( btn_double, 
set_btn_def ault s < btn_char, 
set__btn_def ault s ( btn_tcancl, 
set  btn  defaults ( btn_thelp, 


FALSE  ) ; 
FALSE  ) ; 
FALSE  ) ; 
FALSE  ) ; 
FALSE  ) ; 
DEFAULT  ) ; 
FALSE  ); 


XtSetArg(  args(0],  XmNdefaultButton,  btn_tcancl  ); 
XtSetValues  { dlg_type,  args,  1 ); 


XtSetArg ( args[Q],  XmNtitle,  " " ); 

XtSetValues { XtParent (dlg_type) , args,  1 ); 


/* 

* Setup  defaults  for  the  help  text  popup. 

V 


set_bt n_de fault s ( btn_help_txt,  DEFAULT  ); 

XtSetArg { args[0],  XmNdefaultButton,  btn_help__txt  ); 
XtSetValues ( dlg_help_txt , args,  1 ); 


XtSetArg ( args[0],  XmNtitle,  " " ); 

XtSetValues ( XtParent (dlg_help_txt) , args,  1 ); 


strcpy  < 
strcat ( 
strcat ( 
strcat ( 


Help_Txt_Str, 

Help_Txt_Str, 

HelpJTxt_Str, 

HelpJTxt_Str, 


"\nThis  popup  allows  the  user  to  view  the  help  text" 
"\nfor  the  Comp  Builder.  The  user  may  use  the  scroll" 
"\nbars  to  scroll  through  the  help  text.  Select  close" 
"\nto  close  this  window  and  return  to  the  help  textAn" 


) ; 
) ; 
) ; 
) ; 


strcpy(  List_Txt_Str, 
strcat  ( List_Txt_Str, 
strcat ( List_Txt_Str, 
strcat ( List_Txt_Str, 


"\nThis  popup  allows  the  user  to  view  listings  of"  ) ; 
"\nvarious  types  of  Comp  Builder  information.  The"  ); 
"\nuser  may  use  the  scroll  bars  to  scroll  though"  ); 
"\nthe  textAn"  ); 


/* 

* Setup  defaults  for  the  hello  popup. 
*/ 


set_btn_defaults ( btn_hello,  DEFAULT  ); 

XtSetArg ( args[0],  XmNdefaultButton,  btn_hello  ); 
XtSetValues { dlg_hello,  args,  1 ); 

XtSetArg ( args[0],  XmNtitle,  " " ); 

XtSetValues ( XtParent (dlg_hello) , args,  1 ); 

hello  str  - (char  *)  malloc{  sizeof(char)  * 630  ); 


strcat (hello_str, "A  natural  language  tool  for\n"  ); 

strcat (hello_str, "building  real-time  algorithms An\n\n\n"  ); 

strcat (hello_str, "Designed  £ Built  by:  X Windows  Version  by:  \n") ; 

strcat  (hello_str,  " — — — \n")  ; 

strcat (hello_str, "Troy  Heindel,  Terri  Murphy  Timothy  Barton  \n") ; 


strcat (hello_str, "Mission  Operations  Directorate  Software  Engineering  Section\n"); 

strcat (hello_str, "Johnson  Space  Center  Automation  and  Data  Systems  \n") ; 

strcat (hello_str, "NASA  Southwest  Research  Inst itute\n") ; 

XtSetArg (args [0] , XmNlabelString, XmStringLtoRCreate (hello_str, XmSTRING_DEFAULT_CHARSET) ) ; 
XtSetValues ( lbl_hello,  args,  1 ); 

load_font { "9x15",  £Fnt_List  ); 

XtSetArg  (args  [0  ],  XmNfontList,  Fnt_List  ); 

XtSetArg (args [ 1 ] , XmNlabelString,  XmStringLtoRCreate ( 

"CODE  - Computation  Development  Environment",  XmSTRING_DEFAULT_CHARSET) ) ; 
XtSetValues(  lbl_hello_t,  args,  2 ); 

f ree ( hello_str  ); 

/* 
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♦'’"Setup  defaults  for  the  device  selection  popup. 


set_btn_de faults { btn_dev_ok,  DEFAULT  ); 
set_btn_defaults ( btn_dev_cnl,  FALSE  ); 
set_btn_def aults ( btn_dev_hlp,  FALSE  ); 

XtSetArg ( args[0],  XmNdef aultButton,  btn^dev^ok  ); 
XtSetValues ( dlg_device,  args,  1 ); 


XtSetArg ( args[0],  XmNtitle,  n " ); 
XtSetValues { XtParent (dlg^device) , args,  1 ); 


/* 

* Setup  color  defaults. 

V 

Insensit ive_color  - name_to_pixel { EL_IColor  ); 

XtSetArg ( args[0],  XmNbackground,  (XtArgVal)  NULL  ); 
XtGetValues ( txt_worka,  args,  1 ); 

sensit ive— color  ■ {Pixel)  args [0] .value; 

/* 

* Set  sizes  of  various  popups  and  forms. 

*/ 


if  { SetNum  — 1 ) 

XtSetArg ( args[0],  XmNwidth,  425  ); 
XtSetArg ( argsfl],  XmNheight,  250  ); 
XtSetValues { frmjievice,  args,  2 ); 

XtSetArg ( args[0],  XmNwidth,  625  ); 
XtSetArg ( argsfl],  XmNheight,  275  ); 
XtSetValues ( frm_hello,  args,  2 ); 

XtSetArg ( args[0],  XmNwidth,  425  ); 
XtSetArg { args[l],  XmNheight,  175  ); 
XtSetValues { f rm_help_txt , args,  2 ); 

XtSetArg { args[0],  XmNwidth,  525  ); 
XtSetArg ( argsfl],  XmNheight,  100  ); 
XtSetValues { frm_type,  args,  2 ); 

XtSetArg ( args[03,  XmNwidth,  325  ); 
XtSetArg { args[l],  XmNheight,  100  ); 
XtSetValues ( frm_help,  args,  2 ); 

XtSetArg ( args(0],  XmNheight,  125  ); 
XtSetValues ( frm_arch,  args,  1 ); 

XtSetArg ( args[0],  XmNheight,  350  ); 
XtSetValues ( frm_file,  args,  1 ); 

XtSetArg ( args[0],  XmNheight,  100  ); 
XtSetValues { frm_ask,  args,  1 ); 

XtSetArg ( args[0],  XmNwidth,  636  ); 
XtSetArg { argsfl],  XmNheight,  400  ); 
XtSetValues  { frm__gname,  args,  2 ); 

XtSetArg { args[0],  XmNwidth,  400  ); 

XtSetArg ( argsfl],  XmNheight,  100  ); 

XtSetValues ( frm_gc,  args,  2 ); 

XtSetArg ( args[0],  XmNwidth,  525  ); 

XtSetArg ( args[l],  XmNheight,  250  ); 

XtSetValues ( frm_font,  args,  2 ); 

) 

else 

{ 

XtSetArg ( args[0],  XmNwidth,  500  ); 
XtSetArg { argsfl],  XmNheight,  300  ); 
XtSetValues ( frm_device,  args,  2 ); 

XtSetArg ( args[0],  XmNwidth,  850  ); 
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XtSetValues ( frm_hello,  args,  2 ); 

XtSetArg ( args[0],  XmNwidth,  525  ); 

XtSetArg { argsfl],  XmNheight,  200  ); 

XtSetValues { frm_help_txt , args,  2 ); 

XtSetArg ( args(0],  XmNwidth,  525  ); 

XtSetArg ( argsjl],  XmNheight,  100  ); 

XtSetValues ( frm_type,  args,  2 ); 

XtSetArg ( args{0],  XmNwidth,  525  ); 

XtSetArg ( argsfl],  XmNheight,  150  ); 

XtSetValues { frm_help,  args,  2 ); 

XtSetArg ( args[0],  XmNheight,  125  ); 

XtSetValues ( frm_arch,  args,  1 ); 

XtSetArg ( args[0],  XmNheight,  500  ); 

XtSetValues ( frm_file,  args,  1 ); 

XtSetArg ( args[0],  XmNheight,  100  ); 

XtSetValues ( frm_ask,  args,  1 ); 

XtSetArg ( args [03,  XmNwidth,  936  ); 

XtSetArg ( argsjl],  XmNheight,  500  ); 

XtSetValues ( frm_gname,  args,  2 ); 

XtSetArg ( args[0],  XmNwidth,  650  ); 

XtSetArg { args[l],  XmNheight,  150  ); 

XtSetValues ( frm_gc,  args,  2 ); 

XtSetArg ( args[0],  XmNwidth,  625  ); 

XtSetArg ( argsfl],  XmNheight,  250  ); 

XtSetValues ( frm_font,  args,  2 ); 

} 
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Purpose:  This  routine  does  all  the  necessary  stuff  to  move  a 
comp  built  using  CODE  into  a group  of  comps  in  the 
INCO  Algorithm  Manager. 

Designer:  Terri  Murphy  & Troy  Heindel 

Programmer:  Terri  Murphy  £ Troy  Heindel 

Date:  6/1/87 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

Revised  by: 

Reasons  for  Revision: 


External  Interfaces 

openFileO  — generic  file  opening  routine. 
save_CompInfO ()  — save  new  comp  dispositions. 
informO  — display  text  in  the  message  window 
ask  {)  — informO,  then  prompt  for  reply 

read_varsO  — read  variables  for  a "complete"  comp 

variable_exist () — see  if  the  variable  is  already  in  the  group  vars  list 

write_comp()  — appends  "complete"  comps  .c  to  group. c 

conf ig_mgmt 0 — verify  proper  type  of  signals  and  msids 

compile  group  — Compiles  the  group. c file 

****** *7* **************************************************** / 

♦include  <stdio.h> 

♦include  <string.h> 

♦include  <sys/file.h> 

♦include  <X11/Intrinsic.h> 

♦include  <Xm/Xm.h> 

♦include  "hisde.h" 

♦include  "code.h" 


FILE  *group_file,  /* 

♦report;  /* 

int  num__group_msids, 

numSigsTBDef ; 

struct  sig_tbl_struct  sigsTBDef [MAX_NUM_SIGNALS] ; /*  The  array  of  signals  that  need  to  be  added 
to  the  signal  table  */ 


Pointer  to  the  file  that  the  <GroupName> . c code  will  go  in  */ 

Pointer  to  a file  for  standard  errors  */ 

/*  The  number  of  msids  that  belong  to  this  group  */ 

/*  the  number  of  signals  that  need  to  be  added  to  the  signal  table  */ 


installc 


install  () 

{ 

FILE 


*ptrl, 

*sig_tbl_ptr; 


/*  File  pointer  to  the  complete  group  report  */ 
/★  File  pointer  to  the  signal  table  */ 


int  i,  /*  Simple  index  */ 

status,  /*  return  code  for  function  calls  */ 

installed [MAX_GROUPS] , /*  Contains  the  index's  of  all  comps  that  we 

are  attempting  to  install  */ 

comps  installed,  /*  The  number  of  comps  we  are  attempting  to  install  */ 
group  file  name (P ATH_LEN] , /*  Full  path  name  of  the  group  file  V 

comp  var_count,  /*  The  number  of  variable  that  belong  to  the  comp  that  is  currently 

being  processed  (Passed  to  translate) . */ 
numCompsError,  /*  The  number  of  comps  with  disposition  --  ERROR  */ 
numCompsComplete,  /*  The  number  of  comps  with  disposition  — COMPLETE  V 

numComps Incomplete,  /*  The  number  of  comps  with  disposition  — INCOMPLETE  */ 

numCompsInstalled,  /*  The  number  of  comps  with  disposition  — INSTALLED  / 

compileStatus;  /*  The  status  returned  from  compile  */ 


char  message [180] , /*  Holds  messages,  used  with  ask (), inform {)  */ 

groupExe [80] , /*  The  name  of  the  group  executable  file  */ 

groupRpt [80] ; /*  The  name  of  the  group  report  */ 

struct  var  struct  this_comps_vars [MAX_COMP_VARS] ; /*  The  array  of  variables  for  the  comp  that 

is  currently  being  processed.  (Passed 
to  translate.  */ 


* If  there's  a group  executable  out  there,  remove  it  and 

* change  the  groups  disposition  to  complete. 

V 

sprint f (groupExe,  "Is/ls",  AMGroups,  GroupName) ; 
sprintf  (message,  "rm  -f  Is  2»/tmp/code . err" , groupExe); 
if (system  (message) ! -OK) 

user  ack("  Unable  to  remove  old  group  executable  ",  HELP_U_ACK) ; 
Grouplnfo [GroupNumber] .disposition  - COMPLETE; 

/* 

* Initially  there  are  no  group  msids,  installed  comps 

* or  signals  that  need  defining. 

V 

num  group_msids  - comps^inst ailed  - 0; 

numCompsInstalled  - numCompsComplete  - numCompsIncomplete  - numCompsError  - 0; 
numSigsTBDef  - 0; 

/* 

* Open  a file  for  Installation  report. 

sprintf  (group_file_name,  "%s/%s/ install .rpt",  CodeGroups,  GroupName); 
if  ('(report  - openFile (group_f ile_name,  "w", "install") ) ) 
return  (ERROR) ; 

fprintf (report,  "\nlnstallat ion  report  for  %s:\n\n,,,  GroupName); 


/* 

* We  always  have  at  least  one  group_var  "QUALITY". 

*/ 

NumGroupVars  ■ 1; 

st rcpy (GroupVars [0] .name,  "QUALITY") ; 
strcpy (GroupVars [0] .type,  "short"); 
st rcpy (GroupVars [0] .class,  "ms id") ; 

GroupVars [0] .occurrence  - 0; 

GroupVars [0] . put_or_get  - 0; 

GroupVars [0 ]. lol_limit  - 0; 

GroupVars [0 ]. lo2_limit  - 0; 

GroupVars [0] .hil_limit  - 0; 

GroupVars [ 0] .hi2_limit  - 0; 

strcpy (GroupVars [0] .nomenclature,  "/*  QUALITY  */"); 

for(i-0;  KNumOfComps;  I++) 

{ 

/* 

* Get  variables  for  comps  and  translate  comps  that 

* satisfy  either  of  the  following  conditions: 

* 1.  All  disposition  INSTALLED 

* 2.  All  disposition  COMPLETE. 

*/ 


lifdef  HISDE 
#endif 


install.c 

Tf  (Comp Info ( i]  . disposition  — INSTALLED  I I Compinfo [i] .disposition 
sprintf (message,  "Installing  comp  : %s",  Compinfo ( i] .name) ; 


COMPLETE) 


hjnessage  (MSG_APPLICATION,  message)  ; 


fprlntf (report,  "\n%s:\n",  Compinfo [i] .name) ; 

status  - read_vars (Compinfo [ i] .name, this_comps_vars,  Scomp_var_count) , 
if  (status  — ERROR) 

' fprlntf (report,  "\tVariable  File  Error  - Notify  DevelopersXn") ; 
Compinfo [i] .disposition  - ERROR; 

status  - translate (Compinfo [i] .name, this_comps_vars,  comp_var_count) ; 

if (status  **  ERROR) 

fprintf  (report,  "\tTranslat ion  Error  - Notify  DevelopersXn”); 
Compinfo [ i] .disposition  - ERROR; 

} 

else 

fprintf  (report,  ”\tTranslat ion  CompleteXn")  ; 
installed [comps_installed++]  - i; 

) 


* If  there  are  no  comps__installed  don't  bother  building  the 

* <group>.c 
*/ 

if (comps_installed  > 0) 

{ 

/* 

* Let's  open  a file  for  the  <GroupName> .c  code  and  put 

* the  header  information  in  it. 

*/ 

sprintf  (group_file_name,  ”%s/%s/%s .c”,  CodeGroups,  GroupName,  GroupName); 
if  ( ! (group_file  - openFile  (group_f ile_name,  "w", "install") ) ) 

{ fprintf (report,  "Install:  Unable  to  open  %s.\n",  group_f ile) ; 
fclose (report) ; 
return  (ERROR) ; 

> 


/* 

* Write  our  'tinclude's. 

*/ 

fprintf (group_f ile,  "#include 
fprintf (group_f ile,  "#include 
fprintf (group^f ile,  "#include 
fprintf (group_f ile,  "#include 
fprintf (group_f ile,  "linclude 


<rti .h>\n") ; 
<math .h>\n") ; 
<stdio .h>\n") ; 
<values .h>\n") ; 
<nf .h>\n\n" ) ; 


/* 

Write  our  '#define's. 

*/ 

fprintf (group_f ile,  "Idefine  MSID_CNT  »d\n",  num_group_mslds+l) ; 
fprintf (group  file,  "Idefine  COMP~CNT  *d\n",  comps_installed) ; 

fprintf (group_f ile,  "Idefine  GROUP_DAT  \042%s/%s .dat\042\n“,  AMSupport,  GroupName); 
fprintf (group  file,  "Idefine  MAX_SIGNAL_LENGTH  80\n") ; 
fprintf (group  file,  "Idefine  MAX  NAME  LEN  ll\n\n">; 


/* 

* Define  our  global  variables. 

* / 

fprintf (group  file,  "int  *ind_ptr; \nint  *rate_ptr; \nint  *nf_ptr;\nint  nf_index; \n" ) 
fprintf (group_f ile,  "int  iterat ion^ctr  - 0;\nint  nf [C0MP_CNTJ ; \n\n") ; 
fprintf (group_f ile,  "short  value [MSID_CNT] ; Xnchar  status [MSID_CNT] ;\n\n") ; 


/* 

* Loop  through  the  group  variable  list. 

*/ 

fprintf (group_f ile,  "/*  Signal  List  */\n") ; 
for  (i-0;  KNumGroupVars;  i++) 

( 

/* 

* If  we  find  a signal  then  define  it. 


install.c 

*/ 

if  {strcmp  (GroupVars  [ i]  . class,  "signal")  »*  0) 

( fprintf (group_file,  %s",  GroupVars [i] .type,  GroupVars [i] .name) ; 

/* 

• If  the  signal  is  a char  string,  define  the  string 

* length  to  be  MAX_SIGNAL_LENGTH  long. 

*/ 

if  (strcmp  (GroupVars [i] .type,  "char")  — 0) 

fprintf  (group_file,  " [MAX__SIGNAL_LENGTH]  ; \n  ); 
else  fprintf  (group_file,  M;\nrt); 


fprintf (group_file,  "/*  End  Signal  List  */\n\n"); 


/* 

* Define  the  main ! !!  ! 

*/ 

fprintf (group_f iler  "main (argc,  argv) \n 


int  a rgc ; \ n char  *argv [ ] ; \n { \n" ) ; 


* Loop  through  the  group  variable  list. 

★ / 

fprintf (group_f ile,  "\tstatlc  char  *msid_list(]  - {\nrt); 
for  (i-0;  KNumGroupVars;  i++) 

( 

/* 

♦ If  we  find  an  MSID  then  define  it. 


if (strcmp (GroupVars [i] .class,  "msid")  — 0) 

fprintf (group_f ile,  "\t\t\t \t\042%s\042, \n" , GroupVars [i] .name) ; 

fprintf (group_file,  *\t\t\t\t\042\042\n\t\t\t\t};\n\n") ; 


f 

* Declare  our  remaining  locals. 


fprintf (group_f ile, 
fprintf (group_f ile, 
fprintf (group_f ile, 
fprintf (group_f ile, 
fprintf (group_f ile, 


"UFILE  *in;\n\n") ; J J . 

"\t int  indx  array [MSID_CNT] ; \n\tint  i-0;\n\tint  disposition; \n  ) i 
"\t int  ind_array [COMP_CNT] ; \n\t int  rate_array [COMP_CNT] ; \n\nH ) ; 
"\tchar  purpose [80] ; \nN) ; 

"\tchar  CompName [MAX_NAME_LEN] ;\n\n") ; 


/* 

* Declare  external 

*/  ' 

fprintf (group_f ile, 


fault  message  routines. 

"\tvoid  fltmsg_init () ;\n\tint  f ltmsg_i3sue () ; \n\n")  ; 


* Open  the  .dat  file  and  read  in  the  CompName 

* noise  filter,  rate,  on/off,  disposition  and  purpose. 


V 

fprintf (group_file, 
fprintf (group_file, 
fprintf {group_f ile, 
fprintf (group_f ile, 
fprintf {group_file, 
fprintf (group_file, 
fprintf (group_file, 
fprintf (group_f ile, 
fprintf (group_f ile, 
fprintf (group_f ile, 
fprintf (group_file, 
fprintf  (group_f ile, 
fprintf (group_f ile, 
fprintf (group_f ile, 
fprintf (group_file, 
fprintf (group_file, 
fprintf (group_file. 


/****#****************************************** ) ; 
■\t  Open  <GroupName> .dat  file  and  read  in  the\n") ; 

"\t  comp  name  (which  isn't  used),  noise  filter,  \n") ; 

"\t  rate,  on/off,  disposition  and  purpose  \n") ; 

"\t  for  all  comps  in  the  group. \n"); 

h ************************** **********************/\n"); 
"\tif  ((in  - fopen (GROUP_DAT,  \042r\042) ) — NULL) \nH ) ; 

"\t ( \n\t\t f ltmsg^issue (\042Unable  to  open  %%s  file\\n\042. 


GROUP  DAT) 


\t\texit (-1) ;\n\t }\n\n")  ; 

\t fscanf (in,  \042%%* ( A\\n] \042) ; \n") ; 

\twhile (fscanf (in,\042%%s  %%d  %%d  l%d  %%d  %%  (■ A\\n] \042 , CompName, 


\t 
\t 
\t 
\t 
At 

At f close (in) ; \n\n")  ; 


\n« 


finf [i] , \n") ; 

4rate_array [i] , \n")  ; 
fiind_array [i] , \ n")  ; 
^disposition,  \n") ; 
purpose)  !-  EOF)  i++;\n") 


* Attach  to  shared  memory  for  telemetry  and  fault 

* messages,  initialize  fault  messsage,  and  get 

* the  array  of  maid  indexes. 

V 

fprintf (group_f  ile,  "\tattch_shmem (STD) ;\n") ; 
fprintf (group_f ile,  "\t f ltmsg_init () ; \n") ; 

fprintf (group_f ile,  "\tgetmsid_indx_lst (msid_list,  indx_array) ; \n\n  ); 


;\n") ; 


installs 


/* 

* Now  for  the  loop.  . . . 


*/ 

fprintf (group_f ile, 
fprintf (group_f lie, 
value [0]  — 0);\n\n"); 

fprintf (group_file, 
fprintf (group_ f ile, 
fprintf (group_f ile, 


"\t while (++iterat ion  ctr) \n\t (\n" ) ; v ..... 

"\t\tdo\n\t\t{ \n\t\t\tgetmsid_off_data_lst  (indx_array,  value,  status) , \n\t\t ) 


"\t\tind_ptr  - ind_array; \n" ) ; 
"\t\trate_ptr  - rate_array; \n" ) ; 
"\t\tnf_ index  - 0;\n\n"); 


whi 


for (i-0; i<comp3_in stalled; i++) 


{ 


} 


fprintf (group_f ile, 
fprintf (group_f ile, 
fprintf (group_f ile, 


"\t\tif ( (*ind_ptr++  --  1)  ( iterat ion_ctr  %%  *rate_ptr) 

"\t\t\t%s  () ; \n" , Complnfo [installed [i] ] .name) ; 
"\t\t++nf_index;\n\t\t++rate  _ptr;\n\n") ; 


0)\n«); 


fprintf (group_f ile,  "\t}\n}\n\n") ; 


/***** **************************** **************** 
Here's  where  we  write  the  comp's  C code  that's 

generated  by  translate.  .a.**  ***.,.  , 

************★*************************************/ 
for ( i-0; i<comps_installed; I++) 

if  (write_^comp  (Complnfo  [ installed  [ i ] 3 .name) 

< 


ERROR) 


fprintf (report,  "Install:  Unable  to  write  %s's  'C'  version. \n",  Complnfo [ installed [ i] ]. name) 
fprintf (group_f ile,  "%s () \n (\n\treturn; \n) ;\n\n",  Complnfo [installed [1] ] .name), 

Complnfo [ instal led [ 1] ] .disposition  - ERROR; 

else  Complnfo [ installed [ i] ] .disposit ion  - INSTALLED, 


) 


fclose (group_ f ile) ; 


/#***★***★* 


Compile  and  save  the  group  variables  and  the  updated  dispositions. 
***** ********************************************* ********** *******/ 
compileStatus  - compile_group 0 ; 


} 


if (compileStatus  — ERROR) 

{ 

/* 

* If  we  couldn't  compile  - then  we  need  to  change  the  comp  dispositions 

* back  to  COMPLETE,  and  the  group  disposition  to  ERROR. 

*f 

for  (i-0; i<NumOfComps; i++) 

if (Complnfo [ i] .disposition  — INSTALLED) 

Complnfo [i] .disposition  - COMPLETE; 

} 

> 


Report  on  the  new  disposition  of  the  comps.  ^ 


fprintf (report, 
fprintf (report, 


"\n\n\nComp  Name\tDisposit ion\n" ) ; 
■ \n")  ; 


for (i-0; i <NumOf Comps ; i++) 


{ 

switch (Complnfo [i] .disposition) 

case  ERROR:  fprintf (report , *%s\t\tERROR\n", 
numCompsError++; 
break; 


Complnfo [i] .name) ; 


case  COMPLETE:  fprintf (report, "%s\t \tCOMPLETE\n", Complnfo [i] .name) ; 

numCompsComplete++; 
break; 

case  INCOMPLETE : fprintf (report , "%s\t\t INCOMP LETE\n",  Complnfo [i] .name) ; 
numCompsIncomplete++; 
break; 


case  INSTALLED:  fprintf (report, "»s\t\tINSTALLED\n",  Complnfo [i] .name) ; 
numCompsInstalled++; 
break; 

default:  break; 

} 

fprintf  (report,  "\n\nTotal  Comps :\t\t\t*d\n",  NumOfComps)  ; 
fprintf (report,  "Installed  comps : \t\t%d\n",  numCompsInstalled) ; 
fprintf (report,  "Incomplete  comps : \t\t%d\n",  numCompsIncomplete) ; 
fprintf (report,  "Comps  containing  errors : \t%d\n\n" , numCompsError) ; 


if (comps_installed  > 0) 

( 

if (compileStatus  !-  ERROR) 

( 

/* 

* Since  the  group  was  successfully  installed,  we  need  to  add 

* the  signals  to  the  signal  table  and  report  what  signals  were 

* added.  But  before  we  do  that  let's  make  sure  the  signal 

* table  exists  and  don't  do  anything  if  it  does  not. 

V 

if (access (SignalTbl, F_OK) ! -ERROR) 

fprintf (report,  "Signals  defined  in  %s  as  a result  of  installing  group  %s:\n",  SignalTbl,  GroupName); 
if  ( ! (sig_tbl_ptr  - fopen  (SignalTbl,  "a") ) ) 

sprintf (message, " Warning:  Could  not  open  '%s'  for  writing.  ", SignalTbl) ; 
user_ack (message,  HELP_U_ACK) ; 

) 

else 

{ 

/* 

* If  we're  adding  signals  to  the  signal  table,  we  need 

* to  need  to  make  sure  that  we  start  on  a new  line. 


*/ 

if  (numSigsTBDef  > 0) 

fprintf (report,  "\n"); 

/* 

* Add  the  new  signals. 

*/ 

for  (1-0;  KnumSigsTBDef ; i + + ) 


nclature) ; 
ture)  ; 


/* 

* Since  we're  adding  it  to  the  file  - we  better  also  add  to 

* our  signal  table  structure  in  memory  in  case  we  install 

* again  without  retrieveing! ! ! 

*/ 

strcpy (SignalTable [SignalCount ] .name,  sigsTBDef [i] .name) ; 
strcpy (SignalTable [SignalCount ] .type,  sigsTBDef [i] .type) ; 
strcpy (SignalTable [SignalCount] .nomenclature, sigsTBDef [ i ] .nomenclature) ; 

SignalCount++; 

/* 

* If  the  type  is  'c'  the  signal  table  expects 

* the  type  to  be  'S' 

*/ 

if (sigsTBDef [i] .type[0j  ~ 'c') 
sigsTBDef [i] .type[0]  - 'S'; 

fprintf <sig_tbl_ptr,  "%s%c%s\n",  sigsTBDef [i] .name,  sigsTBDef [ i] . type [0] , sigsTBDef [i] .nome 
fprintf (report,  "\t%s  %c  %s\n", sigsTBDef [i] . name,  sigsTBDef [i] . type [0 ] , sigsTBDef [i] .nomencla 


) 


} 

fclose  (sig_tbl_ptr) ; 

} 

) 


fprintf (report, 
fprintf (report, 
fprintf (report. 


"\n\n") ; 

«************************************* ***************************** ****\n"); 
" \ t CONGRATULAT IONS  - %s  has  been  successfully  compiled . \n" , GroupName); 


else 


( 

fprintf (report , "\n\n"); 

fprintf (report,  ********************************************************************* **\n"); 
fprintf (report,  "NtUnable  to  compile  - Please  notify  developers\n") ; 

) 


f print  f { report " ^" **"**************************************************************** *Vn" 5 ; 
fprintf  (report’,  "NtCompilation  not  attempted  - No  comps  installed. \n") ; 

fprlntf  (report,  «.****************************************************************”*’*Nn") ; 
fclose (report) ; 
save_CompInfo () ; 

/********** **************************************  **************** 

Compbine  the  date,  install  report,  and  compile  report  into  one 

master  <group  name>.rpt 

***************★*************************************************/ 

system  (’date  ' +DATE : %h  %d,  19tytnTIME:  %H:%M:»S%n'  >/tmp/date  2»/tmp/code -err")  ; 

sprintf (message,  "cat  /tmp/date  %s/»s/install .rpt  %s/%s/compile.rpt  >%s/*s/%s . rpt  2»/tmp/code.err  , CodeGrou 
GroupName,  CodeGroups,  GroupName,  CodeGroups,  GroupName,  GroupName) ; 
if (system (message)  !-  0) 

user  ack{"  Install:  Unable  to  create  install/compile  report.  ",  HELP_U_ACK) ; 


/*+**+** ************************************************ 

Write  some  blank  lines  to  the  end  of  the  report, 
so  we  can  see  error  messages  when  we  "more"  the  report. 
*********************il,*,,f********************************/ 
sprintf (groupRpt,  "ls/%s/ls . rpt",  CodeGroups,  GroupName,  GroupName); 
if  ( ! (ptrl  - fopen  (groupRpt,  "a"))) 

{ user  ack {"  Install:  Unable  to  write  group  report.  ",  HELP_U_ACK) ; 

) 

else 

{ 

for (i*0; i<60; 1++) 

fprint f (ptrl,  "\n") ; 
fclose (ptrl) ; 

} 

chmod (666,  groupRpt ) ; 

/*************************************************** 

Show  the  "MORE"  prompt  and  select  the  work  area 
window  for  the  ouput  of  the  system  call. 

a***************************************************/ 

sprintf (message,  "cp  %s/»s/ts.rpt  /tmp/code . tmp  ",  CodeGroups,  GroupName,  GroupName  ); 
system ( message  ) ; 

display_f ile ( LIST,  "/tmp/code . tmp"  ); 

/it**************************** 

Print  the  report  if  desired. 

★★a***************************/ 
sprintf (message,  "Print  report?  (Y/N)"); 

if(  ask (message)  ) 

{ sprintf (message,  "lpr  %s/%s/%s.rpt  2»/tmp/code .err",  CodeGroups,  GroupName,  GroupName); 
if (system (message)  !-  0) 

user_ack ("Install:  Unable  to  create  install/compile  report.",  HELP_U_ACK) ; 

} 

) 


return ( OK  ) ; 


read_vars (compName,  this_comps_vars,  comp_var_count) 
char  compName [] ; 

struct  var_struct  this_ comps_vars [3 ; 
int  *comp_va recount ; 

{ 

FILE  *var  file; 


char  variable_f lie [PATH_LEN] ; 

int  index;  /*  The  index  returned  from  variable_exists  if  it  exists  */ 

sprint f (variable_f iler  "%s/ls/%s . v",  CodeGroups,  GroupName,  compName); 
if  { ! (var  file  — openFile  (variable_f ile,  " r", " install  ) ) ) 

* fprintf (report,  "Cannot  find  variables  for  %s.\n",  varlable_f ile) ; 
return  (ERROR) ; 


/*★*******♦********************************* 
First  we  will  discard  the  comment 
that  is  the  1st  line  of  all  variable  files. 
******+****★********************************/ 
f scanf (var  file,  ”%*[A\n]"); 

/**************★***************************** 
Now  let's  read  the  variable  info  for  this 
comp  until  we  reach  the  end  of  the  file. 

a*****************************"**************/ 


*comp_var_count  * 0; 
while (fscanf  (var_f ile, "Is  %s 
this_comps_vars [* 
this_comps_vars ( * 
this_comps_vars (* 
4thi3_comps_vars ( 
4this__comps_vars  ( 
4this_comps_vars [ 
4this_comps_vars [ 
4this_comps_vars [ 
4this_comps_vars ' 
thi s_comps_vars [ * 


%s  Id  Id  If  If 

comp_var_count ] . 
'comp_var_count] . 
comp_var_count ] . 
*comp_var_count ] 
*comp_var_count ] 
*comp_var_count ] 
*comp_va recount ] 
*comp__va  recount ] 
*comp_var_count ] 
comp_va recount ] . 


If  If  l[A\n]", 

name, 

type, 

class, 

.occurrence, 

.put_or_get, 

. lol_llmit, 

. lo2_limit , 
.hil  limit, 
.hi2~limit, 
nomenclature) 


/a******************************************** 

Let's  do  some  CM  if  it's  an  MSID  or  a signal. 

♦a********************************************/ 
if (strcmp (this_comps_vars [ *comp_var_count ] .class,  "msid") 
strcmp (this_comps_vars [ #comp_va recount ] .class,  "signal 

{ 

config_mgmt (this_comps_vars [ *comp_va recount ] .name, 
this  comps_vars [ *comp_va recount ] .class, 
this_comps_vars [*comp_var_count ] .type, 
this_comps_vars [ *comp_var_count ] .nomenclature) ; 


EOF) 


--on 

")  — 0) 


/******♦************************************** 

First  we  need  to  see  if  the  variable  already 
exists  in  the  group_var  structure.  If  it  doesn't 
exist  we  will  increment  the  NumGroupVars  and 
copy  the  *comp_var  into  the  GroupVars  list. 

If  it  existed  we  increment  the  occurrence 
field  of  the  group_var 

**********************************************/ 

if  ((index  - variable^exists (thi s_comps_vars [*comp_var_count] .name, 
this_comps_vars [*comp_var_count] .type, 
this  comps_vars [ *comp_var_count 3 .class) ) --  ERROR) 

^ GroupVars [NumGroupVars]  - this_comps_vars [ *comp_var_count] ; 
/★★★★★★♦a************************************ 

Let's  keep  track  of  how  many  msid' s we  have 
because  we  need  to  "#define  MSID_CNT"  in 
the  <group>.c  file. 

*★*****★*************************************/ 
if (strcmp (GroupVars [NumGroupVars] .class,  "msid")  --0) 
num_group_msids++; 

NumG r oup Va r s + + ; 

> 

else  GroupVars [index] .occurrence++; 


jn  installs 

(*comp_var_count) ++; 

} 

fclose  (var_f ile) ; 
return (0) ; 


variable_exists (name,  type,  class) 
char  name[]; 

^ char  typed; 
char  class  [] ; 

{ 

int  i; 

for {1*0;  KNumGroupVars; i++) 

if  (strcrop (GroupVars [ i] . name,  name)  — 0) 

{ 

return  ( i) ; 

) 

return (ERROR) ; 

) 


save_CompInfo  {) 

FILE  *CompInfo_f lie; 


char  Complnfo_name [PATH_LEN] ; 


int  1;  /*  Simple  index  */ 

sprint f (CompInfo_name,  "%s/%s.dat",  AMSupport,  GroupName); 

/******************************************* 

Open  group  info  file  and  write  variables 

***** ***************************** **********/ 

if  ( ! (Complnf o file  * openFile  (Complnf o_name, "w",  "install" )) ) 
return  (ERROR) ; 


/****♦ ******************************************** ****** 

Write  all  of  the  group  info  for  the  group  with  header. 

********************************************************/ 

fprintf  (Complnf o_f lie,  "#name_name  noise_filter  rate  on_off  disposition^") 
for  (i-0; i < NumOf Comps; i++) 

{ fprintf  (CompInfo_f ile, "%s  »d  »d  %d  %d  »s\n“,  Complnfo [i] .name, 

CompInfo[i] . noise_f liter, 

Complnfo [i]  . rate , 

Complnfo [i] ,on_off, 

CompInfo[i] .disposition, 

Complnfo [i] .purpose) ; 


} 


) 

fclose  (Complnf o__f  ile) ; 


write_comp  (name) 
char  named; 

< 

FILE  *ptr; 

char  the_file [PATH_LEN] , ch; 

sprint f(the_file,  "%s/%s/%s . c" , CodeGroups,  GroupName,  name); 

if  ( ! (ptr  - openFile (the_file,  "r", "install") ) ) 

fprintf (report,  "write_comp:  unable  to  open  %s.\n",  the_file) 

return  (ERROR) ; 

) 

while  ( (ch  - fgetc  (ptr))  !»  EOF) 

{ 

fputc  (ch,  group_file) ; 

> 

fputc  ('\n',  group_file) ; 
fputc  (' \n' , group_file); 
f close (ptr) ; 

return { OK  ) ; 

} 


instaU.c 


config_mgmt (name,  class,  type,  nomenclature) 

char  named; 

char  class d ; 

char  typed; 

char  nomenclature [ ] ; 


{ 


cha/comparejiype  [TYPE_LEN] ; /*  the  corrected  type  from  the  signal  table  'S'  ->  'c'  */ 

/**«..**«***. .t-****************************************** 

If  it's  a signal  make  sure  is  in  the  SignalTable  list 
★♦★a*****************************************************/ 
if  (strcmp (class,  "signal11)  — 0) 


{ 


for  (i-0;i  < SignalCount ; i++) 

if  (strcmp  (name,  SignalTable [ i ] .name)  — 0) 

{ if  (SignalTable [i] .type [0]  — 'S') 

strcpy (compare_type,  "c") ; 
else  strcpy  (compare_type,  SignalTable [ i] . type) ; 

/*****★****************************** 

It's  in  the  signal  table  - verify 
that  the  type  is  correct. 

******************♦******************/ 
if (type [0]  !-  compare_type [0 ] ) 

* fprintf (report,  "\t%s  type  is  not  consistent  with  signal  table. \n",  name); 
return (ERROR) ; 

) 


else  return (OK); 


} 


y************************************** 
It's  not  defined  in  the  signal  table. 

See  if  it's  already  in  our  array  of 
signals  that  need  to  be  defined. 
#***★**********************************/ 
for  (i-0;  i <numS igsTBDe f;  i++) 

if (strcmp (sigsTBDef [i] .name,  name)  — 


0) 


( 


/**************************************************** 
If  it's  alread  in  our  list  of  signals  to  be  defined 
make  sure  it  has  the  same  type  and  nomenclature. 
*************************************** **************/ 
if (strcmp (sigsTBDef [i] .type,  type)— 0 &£ 

s t rcmp ( s igsTBDe f [ i ] .nomenclature,  nomenclature) ”0) 


( 

) 

else 

( 


return (OK)  ; 


fprintf (report,  "\t%s  type  is  not  consistent  with  previous  definition . \n" , name); 
return (ERROR) ; 


} 


} 


/★**************************************************** 

It's  not  in  the  list  to  be  defined  so  put  it  there. 

*****************************************************V 

strcpy (sigsTBDef [numS igsTBDe f] .name,  name); 
strcpy (sigsTBDef [ numS igsTBDe f] .type,  type); 

strcpy (sigsTBDef [numS igsTBDe f] .nomenclature,  nomenclature); 
numSigsTBDef ++? 
return (OK) ; 


else  if  (strcmp (class,  "msid") 


0) 


0) 


for  (i-0; i < MSIDCount ; i++) 

( 

if  (strcmp  (name,  MSIDTable [i] .name) 

{ 

if (strcmp (type,  MSIDTable [i] .type)  !a 

fprintf (report,  "\t%s  type  is  not  consistent  with  tag_msid_table . \n" , name); 
return (ERROR) ; 


0) 


} 


installc 

} 

else  return (OK); 

fprintf (report,  -\t%s  is  not  defined  in  the  tag_msid_table.\n",  name) 
return (ERROR) ; 

) 

return ( OK  ) ; 


/I************************************************************ 

compile_group 

Purpose:  Compile_group  does  a system  call  on  cc,  compiling  the 
the  C file  In  order  to  create  an  executable.  It 
compiles  with  the  correct  libraries  and  include  files. 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  8/18/87 

Version:  1.0 

Project:  CODE  (Comp  Development  Environment) 

*****★**********************************************************/ 
compile_group  0 

^ char  sys  cmd[500],  /*  String  to  hold  system  command.  V 

compileRpt [PATH_LEN] , /*  String  to  hold  file  name  of  compile  report  */ 

libPath [PATH_LEN] ; /*  string  to  build  path  to  the  libraries  */ 

int  rc;  /*  Ret run  code  for  system  command.  */ 


/* 

* Compile  the  group  and  redirect  errors  to  the  installation  report 

* <GroupName> . rpt . 

*/ 

iifdef  HISDE 

h_message (MSG_APFLICATION, "Please  wait,  compiling..."); 
fendif 

sprintf (compileRpt,  "%s/%s/compile . rpt " , CodeGroups,  GroupName); 
sprintf (libPath, "%s/rtds/lib" , RTDS)  ; 

sprintf  (sys_cmd,  "cc  -o  %s/%s  ls/%s/%s.c  -iSRTDS/rtds/include  %s/libuserfuncs . a %s/libnf.a  %s/l ibf ltmsg . a 
/librti.a  %s/libiesput il . a 1>%s  2>%s",  AMGroups,  GroupName,  CodeGroups,  GroupName,  GroupName,  libPath,  libPath, 
ibPath,  libPath,  libPath,  compileRpt,  compileRpt); 
rc  * system  (sys_cmd) ; 

/* 

* If  there  were  compilation  errors  return  an  ERROR. 

V 

if (rc  !-  0) 

( 

Grouplnfo [GroupNumber] .disposition  * ERROR; 

/* 

* Put  the  group  names  into  the  Grouplnfo  file 

V 

writeGroupNames {) ; 
return (ERROR) ; 

) 

else 

( 

Grouplnfo [GroupNumber] .disposition  - INSTALLED; 

/* 

* Put  the  group  names  into  the  GroupNames  file 
*/ 

writeGroupNames () ; 
return (OK) ; 


) 


} 


* FILE  NAME:  menu.c 

* 

* 

* FILE  FUNCTION: 

* Contains  the  routines  which  set  the  state  of  the  Comp  element  (if,  then,  etc) 

* push  buttons. 


* SPECIFICATION  DOCUMENTS: 


* 

* /code/specs/code 


* 

* 

* FILE  MODULES: 

* 

* all_invalid() 

* all_valid() 

* color_valid  () 

* 

****************** 


- sets  all  Comp  element  push  buttons  to  invalid  state 

- sets  all  Comp  element  push  buttons  to  active  state 

- sets  the  currently  valid  Comp  element  push  buttons  to  active 


♦include  <stdio.h> 

♦include  <X11/Intrinsic.h> 
♦include  <X11/St ringDef s .h> 
♦include  <Xm/Xm.h> 

♦include  "code.h" 

♦include  "widgets. h" 


menu.c 


* 

* MODULE  NAME:  all_invalid{  void  ) 


* MODULE  FUNCTION: 

* 

* Sets  all  Comp  element 


{if,  then,  MSID,  etc)  tokens  to  an  invalid/ inactive  state. 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

« Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


* REVISION  HISTORY: 


* Motif  Release  1.0 

* 

********************* 


- 90/03/16 


void  all_invalid {) 

{ 

int  i; 

Arg  args [2] ; 

/* 

* Set  all  tokens  invalid  except  for  the  non-comp  element  tokens  which  are 

* always  valid. 

*/ 

XtSetArg(  args[0],  XmNsensit ive,  (XtArgVal)  FALSE  ); 

XtSetArg { argitl],  XmNbackground,  (XtArgVal)  insensit ive_color  ); 

for  ( i-IF;  i< -NUMBER;  i++  ) 

XtSetValues { w[i],  args,  2 ); 
for  ( i-EQ;  K-STOP;  i + + ) 

XtSetValues ( w[i],  args,  2 ); 
for  ( i-ADD;  K-ATAN;  i++  ) 

XtSetValues ( w[i],  args,  2 ); 


/Kti,************************************** 

* 

* MODULE  NAME:  all_valid(  void  ) 


* 

* 


menu.c 


* MODULE  FUNCTION: 

* 

* Sets  all  Comp  element 


(if,  then,  MS ID,  etc)  tokens  to  a valid/active  state 


* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 

* 

* REVISION  HISTORY: 


* 

* Motif  Release  1.0  - 90/03/16 


void  all_ valid () 


int  i; 

Arg  args [23; 

XtSetArg  ( args[0],  XmN sensitive,  (XtArgVal)  TRUE  ); 

XtSet Arg { args[l],  XmNbackground,  (XtArgVal)  sensit ive_color  ); 

for  ( i-IF;  K-NUMBER;  i++  ) 

XtSet Values ( w[i],  args,  2 ); 
for  i i-EQ;  K-STOP;  i++  ) 

XtSetValues ( w[i],  args,  2 ); 
for  ( i-ADD;  K-ATAN;  i++  ) 

XtSetValues ( w[i],  args,  2 ); 


) 


menu.c 


,>******★**★**★*************************** 


* MODULE  NAME:  color_valid{  previous,  other  ) 

* 

* 

* MODULE  FUNCTION: 

* 

* Based  on  the  currentl  location  in  the  Comp,  this  routine  sets  the  valid  Comp 

* element  push  buttons  to  active  and  invalid  Comp  element  push  buttons  to 

* inactive. 

* 

* 

* SPECIFICATION  DOCUMENTS: 

* 

* /code/specs/code 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Timothy  J.  Barton  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* 


* REVISION  HISTORY: 

* 

* Motif  Release  1.0  - 90/03/16 

* 

***+*******★****************************< 


void  color_valid{  previous,  other  ) 

int  other, 

previous; 


int  i; 

Arg  args[2j; 


next_inputs(  previous,  other  ); 

if  { previous  <0  (I  previous  > 50  ) 
previous  - 0; 

/* 

* Set  all  tokens  invalid. 

*/ 


all_invalid () ; 

/* 

* Set  the  COMMENT  to  full  intensity. 
*/ 


XtSetArg ( args[0],  XmNsensit ive,  (XtArgVal)  TRUE  ); 

Xt Set Arg { args[l],  XmNbackground,  (XtArgVal)  sensitive_color  ); 

XtSet Values ( w[  COMMENT  ] , args,  2 ); 


/* 

* Set  the  valid  tokens  to  full  Intensity. 
*/ 


XtSetArg ( args[0],  XmNsensitive,  (XtArgVal)  TRUE  ); 

XtSetArg ( args[l],  XmNbackground,  (XtArgVal)  sensit Ive_color  ); 


for  ( i-0;  i < TotValPts;  i++  ) 

XtSetValues(  w[  ValidPoints [ i]  3,  args,  2 ); 


) 


NEW 


Purpose : Prompts  the  user  for  the  name  of  a new  group  or  comp. 

Designer:  Troy  Heindel 

Programmer:  Troy  Heindel 

Date:  2/8/09 

Version:  2.0 

Project:  CODE  {Comp  Development  Environment) 

*********★********★*********************************************/ 
♦include  <stdio.h> 

#include  <string.h> 

# include  <X11/Intrinsic .h> 

♦include  <Xm/Xm.h> 

♦include  "code.h” 


new (theClass) 

char  theClass [];  /*  Either  "Comp"  or  "Group"  */ 


' < 


char  nameToGet [MAX_NAME_LEN] , group_dir [PATH_LEN] ; 


/* 

* Clean  Che  mean  screen  in  prep  for  the  new  comp. 
*/ 

cleanSlate  () ; 


* If  new  Group,  blank  out  the  group  name.  Otherwise,  if 

* new  Comp,  blank  out  the  comp  name. 

V 

if  { Istrcmp (theClass, "Group") ) 

{ 

GroupName[0]  * NULL; 

CompName[0]  ■ NULL; 

) 

else 

CompName[0]  - NULL; 
put_status  () ; 

/* 

* Get  the  new  name  from  the  user,  if  the  user  defaults 

* we  return  to  calling  routine  with  no  changes. 

V 

if  (get_new_name  (theClass,  nameToGet)  —DEFAULT) 
return (DEFAULT) ; 


/* 

* Need  to  get  a Comp 
*/ 


if  (! strcmp (theClass, "Comp" ) ) 

{ 

CompNumber  - NumOfComps++; 
strcpy  (CompName,  nameToGet); 

strcpy  (Complnfo [CompNumber ] .name, CompName)  ; 

Complnfo [CompNumber] .disposition  - INCOMPLETE; 

Complnfo [CompNumber] . cycle_mode  * CYCLIC; 

Complnfo [CompNumber ]. rate  - 1; 

Complnfo [CompNumber ]. on_off  * FALSE; 

Complnfo [CompNumber ]. noise^f liter  * 2; 
put_status  ()  ; 

) 

else  /*  It  was  a group  */ 

{ 

GroupNumber  - NumOf Groups; 
strcpy  (GroupName,  nameToGet) ; 

strcpy  (Grouplnfo [NumOfGroups] .name, GroupName) ; 

/* 

* This  is  the  only  place  where  NumOfGroups++ 

*/■ 

Grouplnfo [NumOfGroups++] . disposit ion  * INCOMPLETE; 

/*******************★***********•***************************** 
Create  the  necessary  directory  since  it  does  not  exist  yet. 

a*************************************************************/ 

sprintf  (group_dir,  "%s/%s",  CodeGroups,  GroupName); 
mkdir  (group_dir,  511) ; 

NumOfComps  - 0; 
put_status () ; 

} 


} 


return ( OK  ) ; 


get  new  name {theClass f nameToGet ) 

~char  theClass [],  /*  Whether  it  is  a 'Comp'  or  'Group' 
♦nameToGet;  /*  The  name  we  shall  set  within  */ 

{ 

char  tmpStr[200]; 
int  i,  status; 


*/ 


sprintf (tmpStr, "P lease  type  the  new  %s  name{<%d  char) ", theClass, MAX_NAME_LEN  2); 
status  * get  string (tmpStr,  nameToGet,  MAX_NAME_LEN—1, FALSE) , 
if {status  *-~ABORT  M nameToGet [ 0] — ' q'  li  nameToGet [ 0 ]-«' Q' ) 
return (DEFAULT) ; 


/* 

* File  names  may  not  have  a leading  zero 

V 

if  (nameToGet [0]  >«  '0'  it  nameToGet [0]  <-  '9') 

{ 

status  - ERROR; 

user  ack { "First  character  must  be  alphabet ic" , HELP_U_ACK  ); 


/* 

♦ Make  sure  that  it's  not  an  already  existing  name. 

V 


else 

{ 

/* 

* The  comp  name  is  called  as  a subroutine 

* and  therefore  can  not  have  the  name  main. 

V 

if  <! st rcmp ("main", nameToGet ) ) 

{ 

status  « ERROR; 

user  ack {"'main'  is  reserved;  do  not  use  it.",  HELP_U_ACK) ; 

> 

else  if  {! strcmp (theClass, "Group") ) 

( 

/* 

♦ Look  for  a duplicate  group  name 
*/ 

for  { i«0 ; i<NumOfGroups ; ++i) 

{ 

if  (fstrcmp  (Grouplnf o [ i] . name,  nameToGet)) 

{ 

status  - ERROR; 

sprintf (tmpStr,  "%s  already  exists.",  nameToGet); 

user_ack (tmpStr,  HELP_U_ACK) ; 

break; 

} 

} 

) 

else  /*  Look  through  the  list  of  comps  */ 

{ 

/* 

* Look  for  a duplicate  comp  name 
0; i<NumOfComps; ++i) 

( [strcmp  (Comp Inf o [ i] .name,  nameToGet)) 
status  - ERROR; 

sprintf (tmpStr, "\n\t%s  already  exist s", nameToGet) ; 
user_ack (tmpStr,  HELP_U_ACK) ; 
break; 


OK)  ; 

return  OK; 


*/ 

for  (i- 
( 

if 

{ 


) 

} while  (status 
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